333.asp

来自「企业版WAP网站」· ASP 代码 · 共 15 行

<%
Function RndCode()
CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
AmountSet = 62
Randomize
Dim vCode(16), vCodes
For i = 0 To 16
  vCode(i) = Int(Rnd * AmountSet)
  vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
Next
RndCode=vCodes
End Function
dim sessionid
sessionid=RndCode()
%>