Response.Cookies(CookiesName & "User")("UserName") = rs("UserName")
Response.Cookies(CookiesName & "User")("PassWord") = rs("PassWord")
If IsNumeric(Request.Form("CookieDate")) Then
If Clng(Request.Form("CookieDate")) > 0 Then
'保存的天数(CookiesDate)
Response.Cookies(CookiesName & "User").Expires = Date + clng(Request.Form("CookieDate"))
End If
End If
这样根据用户自己的喜好天数选择自动保存该用户信息