初学做了个带SQL数据表的录入、查询小网站，想要求使用特定帐号、密码登录此网站，却不知如何下手？

使用cookie好一些
登陆判断姓名密码正确进入页面然后就判断一下
cookie是否等于过期就可以了
因为还有一个in.htm文件，不是ASPX的，是否必须将其改为in.aspx ？不要改
密码不正确，就直接转向登陆界面了，怎么能看到body呢

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

能否给段代码演示，如何存储、调用cookie，判断是否过期？（手头书不够~）如果某些客户端浏览器禁用cookie怎么办？谢谢！
用session也可以得啊，给你参考一下：webform.aspx
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication1.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" runat="server">
 
 

<TABLE id="Table1" style="WIDTH: 300px; HEIGHT: 94px" cellSpacing="1" cols="3" cellPadding="1"
width="300" border="1">
<TR>
<TD style="WIDTH: 116px; HEIGHT: 22px" colSpan="3">
用户登陆
</TD>
</TR>
<TR>
<TD style="WIDTH: 121px; HEIGHT: 22px">用户名:</TD>
<TD style="WIDTH: 116px; HEIGHT: 22px" colSpan="3"><asp:textbox id="TextBox1" runat="server"></asp:textbox></TD>
</TR>
<TR>
<TD style="WIDTH: 121px">密码:</TD>
<TD style="WIDTH: 116px" colSpan="3"><asp:textbox id="TextBox2" runat="server" TextMode="Password"></asp:textbox></TD>
</TR>
<TR>
<TD style="WIDTH: 121px" colSpan="4">
<asp:button id="ButtonOk" runat="server" Onclick="ButtonOk_Click" Text="登陆"></asp:button>
<asp:button id="ButtonCancel" runat="server" Onclick="ButtonCancel_Click" Text="取消"></asp:button>
</TD>
</TR>
</TABLE>

</form>
                                    
<asp:Label id="lblMsg" runat="server"></asp:Label>
</body>
</HTML>webform.aspx.vb
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControlsPublic Class WebForm1
 Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub
 Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
 Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
 Protected WithEvents ButtonOk As System.Web.UI.WebControls.Button
 Protected WithEvents ButtonCancel As System.Web.UI.WebControls.Button
 Protected WithEvents lblMsg As System.Web.UI.WebControls.Label '注意: 以下占位符声明是 Web 窗体设计器所必需的。
 '不要删除或移动它。
 Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
 '不要使用代码编辑器修改它。
 InitializeComponent()
 End Sub#End Region Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
 '在此处放置初始化页的用户代码
 If Not Page.IsPostBack Then
 '网页组件初始设置
 lblMsg.Text = "开始登陆"
 TextBox1.Text = ""
 TextBox2.Text = ""
 End If
 End Sub Sub ButtonOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click Dim strConn, strSQL As String
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Intranet.mdb")
 strSQL = "select e.emp01,d.dep02,e.emp03,e.emp04,e.emp05 from emp e,dept d"
 strSQL = strSQL & " where e.emp01='" & TextBox1.Text & "' and e.emp09='" & TextBox2.Text & "'"
 strSQL = strSQL & " and e.emp02=d.dep01" '建立数据库连接
 Dim myConn As New OleDbConnection(strConn)
 myConn.Open() '建立OleDbCommand对象,以便执行SQL指令或获取OleDbDataReader对象
 Dim myCommand As New OleDbCommand(strSQL, myConn) '取得OleDbDataReader对象
 Dim dr As OleDbDataReader
 dr = myCommand.ExecuteReader() If dr.Read() Then
 Session("UserID") = dr.Item(0)
 If dr.IsDBNull(1) Then
 Session("UserDep") = ""
 Else
 Session("UserDep") = dr.Item(1)
 End If If dr.IsDBNull(2) Then
 Session("UserCName") = ""
 Else
 Session("UserCName") = dr.Item(2)
 End If If dr.IsDBNull(3) Then
 Session("UserEName") = ""
 Else
 Session("UserEName") = dr.Item(3)
 End If If dr.IsDBNull(4) Then
 Session("UserEmail") = ""
 Else
 Session("UserEmail") = dr.Item(4)
 End If Page.Response.Redirect("WebForm2.aspx") 'WebForm2.aspx为主功能页面 Else
 Session("UserID") = ""
 Session("UserDep") = ""
 Session("UserCName") = ""
 Session("UserEName") = ""
 Session("UserEmail") = "" lblMsg.Text = "用户ID或用户密码输入错误!!请重新输入!!"
 TextBox1.Text = ""
 TextBox2.Text = ""
 End If myConn.Close() End Sub Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
 TextBox1.Text = ""
 TextBox2.Text = ""
 End SubEnd Class-----------努力学习不断实践虚心讨教---------