随机码的生成

<%
2

Function RndCode()
3 随机码的生成

CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
4 随机码的生成

AmountSet = 62 ' 文字数量
5 随机码的生成

Randomize
6 随机码的生成

' 随机产生字符
8 随机码的生成

Dim vCode(10), vCodes
9 随机码的生成

For i = 0 To 9
10 随机码的生成

vCode(i) = Int(Rnd * AmountSet)
11 随机码的生成

vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
12 随机码的生成

Next
13

RndCode=vCodes
14 随机码的生成

End Function
15 随机码的生成

%>
17

<%=RndCode()%>