eg:
Dim student_id As String = Request.Cookies("userInf").Values("userID")
If DateTime.Now.Hour >= 6 And DateTime.Now.Hour < 12 Then
spWelMessage.InnerHtml = "早上好," & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
ElseIf DateTime.Now.Hour >= 12 And DateTime.Now.Hour < 18 Then
spWelMessage.InnerHtml = "下午好," & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
Else
spWelMessage.InnerHtml = "晚上好," & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
End If
If bool1 Then '
'设置cookie参数
Dim userName As String
Dim userIdentity As String
Dim userRealName As String
If (Request.Cookies("userInf")) Is Nothing Then
Dim cookie As HttpCookie = New HttpCookie("userInf") '创建新的cookie
cookie.values.add("userID", TextBox1.Text) '加入用户的账号
cookie.values.add("userIdent", strUserIdent)
Response.AppendCookie(cookie)
Else
Dim cookie As HttpCookie = New HttpCookie("userInf")
cookie.values("userID") = TextBox1.Text
cookie.values("userIdent") = strUserIdent
Response.AppendCookie(cookie)
End If
Response.Redirect(strPath) '进入到主页面