28,407
社区成员




<%
Function GenSessionID
RemoteAddr=Request.ServerVariables("REMOTE_ADDR")
RemoteAddr=Replace(RemoteAddr,"."," ")
CurrentDateTime=CStr(Month(Now())&Year(Now())&Day(Now())&Minute(Now())&Hour(Now())&Second(Now()))
Randomize
GenSessionID=" "
y=" "
For i=1 to 30
j=Int((2)*Rnd+1)
Select Case j
Case 1
k=Int((57-48+1)*Rnd+48)
y=y&Chr(k)
Case 2
k=Int((90-65+1)*Rnd+65)
y=y&Chr(k)
End Select
Next
GenSessionID=RemoteAddr¤tDateTime&y
GenSessionID=Left(GenSessionID,40)
End Function
%>