62,046
社区成员
发帖
与我相关
我的任务
分享
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Randomize()
Dim CIK As String
If IsNothing(Request.Cookies("id")) Then
With Response.Cookies("id")
.Value = New Random(Second(Now)).Next(10000, 99999) & (New Random(Second(Now)).Next(1, 99999) + 100000).ToString.Substring(1)
.Expires = Now.AddYears(50)
.Domain = ".a.com"
.Path = "/"
CIK = "uks='N" & .Value & "';"
End With
Else
CIK = "uks='" & Request.Cookies("id").Value & "';"
End If
Response.ContentType = "text/javascript"
Response.Write(CIK)
End Sub