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()%>
<%2
Function RndCode()3
CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"4
AmountSet = 62 ' 文字数量5
Randomize6
7
' 随机产生字符8
Dim vCode(10), vCodes9
For i = 0 To 910
vCode(i) = Int(Rnd * AmountSet)11
vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)12
Next13
RndCode=vCodes14
End Function15
16
%>17
<%=RndCode()%>