使用Cookie存取少量数据

来源：互联网发布：找对象学历重要吗知乎编辑：程序博客网时间：2024/04/27 23:50

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) '进入到主页面