28,398
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
<%
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
%>