随机码的生成

来源:互联网 发布:htc re 软件 编辑:程序博客网 时间:2024/05/17 00:52
 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) + 11)
12Next
13RndCode=vCodes
14End Function
15
16%>
17<%=RndCode()%>