'===========保存cookies Response.Cookies("UserName").Value = UserName.Value Response.Cookies("PWD").Value = Password.Value Response.Cookies("Nickname").Value = Session("NickName") Dim Tm As DateTime = DateTime.Now() Dim ts As TimeSpan Select Case method.SelectedIndex Case 0 ts = New TimeSpan(0, 0, 0, 0) Case 1 ts = New TimeSpan(1, 0, 0, 0) Case 2 ts = New TimeSpan(30, 0, 0, 0) Case 3 ts = New TimeSpan(365, 0, 0, 0) End Select Response.Cookies("UserName").Expires = Tm.Add(ts) Response.Cookies("PWD").Expires = Tm.Add(ts) Response.Cookies("Nickname").Expires = Tm.Add(ts)
Response.Cookies("UserName").Value = UserName.Value
Response.Cookies("PWD").Value = Password.Value
Response.Cookies("Nickname").Value = Session("NickName")
Dim Tm As DateTime = DateTime.Now()
Dim ts As TimeSpan
Select Case method.SelectedIndex
Case 0
ts = New TimeSpan(0, 0, 0, 0)
Case 1
ts = New TimeSpan(1, 0, 0, 0)
Case 2
ts = New TimeSpan(30, 0, 0, 0)
Case 3
ts = New TimeSpan(365, 0, 0, 0)
End Select
Response.Cookies("UserName").Expires = Tm.Add(ts)
Response.Cookies("PWD").Expires = Tm.Add(ts)
Response.Cookies("Nickname").Expires = Tm.Add(ts)