无法获取COOKIE的值

Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.HttpStyleUriParser
Imports System.IO

Partial Class Login
    Inherits System.Web.UI.Page

    Dim showmsg As New alertmessage
    Dim m_con As New SqlConnection
    Dim m_cmd As New SqlCommand
    Dim m_ada As New SqlDataAdapter
    Dim str As String
    Dim m_ds As New DataSet

    Function Code()
        Dim 验证码 As String
        Dim arrstring() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "I", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        Dim i As Integer

        Dim r As New Random
        For i = 0 To 3
            验证码 += arrstring(r.Next(0, 34))
        Next
        Lb1.Text = 验证码
        Lb1.Font.Bold = True
        Lb1.Font.Italic = True
        Lb1.Font.Name = "Arial"
        Lb1.ForeColor = Drawing.Color.YellowGreen
        Lb1.Style.Add("font-size", "15px")
    End Function


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            Code()
            Bt1.Attributes.Add("OnClick", "return  disp_alert()")
            Bt2.Attributes.Add("OnClick", "return  chongzhi()")
            TB1.Focus()
        Else
            TB1.Focus()
        End If
    End Sub


    Protected Sub Bt1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt1.Click

        Dim 返回值 As String
        Dim 权限 As String
        Dim 用户名 As String


        m_con.ConnectionString = WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
        If m_con.State = ConnectionState.Closed Then
            m_con.Open()
        End If
        Dim md5 As New MD5


        m_cmd.CommandType = CommandType.StoredProcedure
        m_cmd.CommandText = "UserLogin"
        m_cmd.Connection = m_con
        m_cmd.Parameters.Add("@userID", SqlDbType.VarChar, 100).Value = TB1.Text
        m_cmd.Parameters.Add("@password", SqlDbType.VarChar, 100).Value = md5.MD5(TB2.Text, 32)
        m_cmd.Parameters.Add("@OptDescription", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
        m_cmd.Parameters.Add("@Jurisdiction", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
        m_cmd.ExecuteNonQuery()
        返回值 = m_cmd.Parameters("@OptDescription").Value.ToString
        If 返回值 = "您输入的用户不存在!" Then
            showmsg.showMsg(Me.Page, "您输入的用户不存在!")
        Else
            If 返回值 = "您输入的密码错误!" Then
                showmsg.showMsg(Me.Page, "您输入的密码错误!")
            Else
                权限 = m_cmd.Parameters("@Jurisdiction").Value.ToString
                用户名 = TB1.Text


                Dim myCookie As HttpCookie = New HttpCookie("用户信息")
                myCookie("Font") = 权限
                myCookie("user") = 用户名
                myCookie.Expires = DateTime.Now.AddHours(1)
                Response.Cookies.Add(myCookie)


                FormsAuthentication.RedirectFromLoginPage(TB1.Text, True)
            End If
        End If

        m_ds.Clear()
        m_con.Dispose()

    End Sub
End Class


以上是我login.aspx的代码，放在虚拟空间中后，取不到COOKIE的值。
以下是主页的代码：


Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.HttpStyleUriParser
Imports System.IO

Partial Class _Default
    Inherits System.Web.UI.Page

    Dim showmsg As New alertmessage
    Dim m_con As New SqlConnection
    Dim m_cmd As New SqlCommand
    Dim m_ada As New SqlDataAdapter
    Dim str As String
    Dim m_ds As New DataSet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (User.Identity.IsAuthenticated = False) Then
            FormsAuthentication.RedirectToLoginPage()
        Else
            If Request.Cookies("用户信息") IsNot Nothing AndAlso Request.Cookies("用户信息").Value IsNot Nothing AndAlso Request.Cookies("用户信息")("user") IsNot Nothing Then
                LB1.Text = Request.Cookies("用户信息")("user").ToString
                LB2.Text = Request.Cookies("用户信息")("font").ToString

            Else

            End If
        End If
    End Sub
End Class

16 个解决方案

#1

浏览器是不是禁止了cookies

#2

浏览器没有禁止COOKIE。我在星辉互联的虚拟空间上就是这种情况，星辉互联的技术说是瞬间 虚拟内存占用超标，用云主机不限制使用内存就没问题了。

我在万网试用云主机确实没问题。  在虚拟空间中就不行，我也不知道再怎样优化程序。

#3

自己顶一下，大侠们有知道的吗？

#4

COOKIE存储实在浏览器，应该和服务器的关系不大；

不然你自己找一个网页抓包的工具，看看你存的值是啥……

#5

wangnaisheng：那怎么使用云主机就没问题了呢？晕

#6

使用HttpWatch Studio网页抓包，也有COOKIE的传递，但是就是取不到值。

#7

这个怕是没多少人知道怎么解决。

#8

smthgdin：为什么呢？？？能把你的想法告诉我吗？

#9

这是幸会互联的技术发给我的时间跟踪结果。

有大侠知道怎么回事吗？

#10

引用 2 楼 zhx850516 的回复:

浏览器没有禁止COOKIE。我在星辉互联的虚拟空间上就是这种情况，星辉互联的技术说是瞬间 虚拟内存占用超标，

标准是多少？

#11

sp1234:你好！

虚拟内存标准是500兆。

我觉着就这两个页面能用500兆？真是不可思议。

#12

还没见过这样的问题，楼下接上

#13

实现Cookie值的记忆功能
//将用户名密码值存入Cookie
protected void Button1_Click(object sender, EventArgs e)
    {
        if (txtname.Text.Trim().Equals("mr") && txtpwd.Text.Trim().Equals("mrsoft"))
        {
            Session["username"] = txtname.Text.Trim();
            if (ckbauto.Checked)
            {
                if (Request.Cookies["username"] == null)
                {
                    Response.Cookies["username"].Expires = DateTime.Now.AddDays(30);
                    Response.Cookies["userpwd"].Expires = DateTime.Now.AddDays(30);
                    Response.Cookies["username"].Value = txtname.Text.Trim();
                    Response.Cookies["userpwd"].Value = txtpwd.Text.Trim();
                }
            }
            Response.Redirect("admin.aspx");
        }
        else
        {
            ClientScript.RegisterStartupScript(this.GetType(),"","alert('用户名或密码错误！');",true);
        }
    }//CodeGo.net/
//把上次输入记忆的密码显示在文本框
 protected void txtname_TextChanged(object sender, EventArgs e)
    {
        if (Request.Cookies["username"] != null)
        {
            if (Request.Cookies["username"].Value.Equals(txtname.Text.Trim()))
            {
                txtpwd.Attributes["value"] = Request.Cookies["userpwd"].Value;
            }
        }
    }

#14

asp.net  怎么会用import  应该是using吧    你应该去java

#15

zhao_WX:你好！

我用的VB语言，正准备改到C#

#16

求大神们给看看啊！