<%
Function RndCode()
CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
AmountSet = 62 ' 文字数量
Randomize

' 随机产生字符
Dim vCode(10), vCodes
For i = 0 To 9
vCode(i) = Int(Rnd * AmountSet)
vCodes = vCodes & Mid(CodeSet, vCode(i), 1)
Next
RndCode=vCodes
End Function

%>
<%=RndCode()%>