随机码的生成
1<%
2Function RndCode()
3CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
4AmountSet = 62 ' 文字数量
5Randomize
6
7' 随机产生字符
8Dim vCode(10), vCodes
9For i = 0 To 9
10 vCode(i) = Int(Rnd * AmountSet)
11 vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
12Next
13RndCode=vCodes
14End Function
15
16%>
17<%=RndCode()%>
2Function RndCode()
3CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
4AmountSet = 62 ' 文字数量
5Randomize
6
7' 随机产生字符
8Dim vCode(10), vCodes
9For i = 0 To 9
10 vCode(i) = Int(Rnd * AmountSet)
11 vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
12Next
13RndCode=vCodes
14End Function
15
16%>
17<%=RndCode()%>
posted on 2005-05-25 23:26 ξσ Dicky σξ 阅读(435) 评论(0) 编辑 收藏 举报