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
标准是多少?
#11
sp1234:你好!
虚拟内存标准是500兆。
我觉着就这两个页面能用500兆?真是不可思议。
虚拟内存标准是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;
}
}
}
//将用户名密码值存入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#
我用的VB语言,正准备改到C#
#16
求大神们给看看啊!
#1
浏览器是不是禁止了cookies
#2
浏览器没有禁止COOKIE。我在星辉互联的虚拟空间上就是这种情况,星辉互联的技术说是瞬间 虚拟内存占用超标,用云主机不限制使用内存就没问题了。
我在万网试用云主机确实没问题。 在虚拟空间中就不行,我也不知道再怎样优化程序。
我在万网试用云主机确实没问题。 在虚拟空间中就不行,我也不知道再怎样优化程序。
#3
自己顶一下,大侠们有知道的吗?
#4
COOKIE存储实在浏览器,应该和服务器的关系不大;
不然你自己找一个网页抓包的工具,看看你存的值是啥……
不然你自己找一个网页抓包的工具,看看你存的值是啥……
#5
wangnaisheng:那怎么使用云主机就没问题了呢?晕
#6
使用HttpWatch Studio网页抓包,也有COOKIE的传递,但是就是取不到值。
#7
这个怕是没多少人知道怎么解决。
#8
smthgdin:为什么呢???能把你的想法告诉我吗?
#9
这是幸会互联的技术发给我的时间跟踪结果。
有大侠知道怎么回事吗?
#10
标准是多少?
#11
sp1234:你好!
虚拟内存标准是500兆。
我觉着就这两个页面能用500兆?真是不可思议。
虚拟内存标准是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;
}
}
}
//将用户名密码值存入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#
我用的VB语言,正准备改到C#
#16
求大神们给看看啊!