📄 login.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script Language="VB" runat="server">
Sub enter_click(Sender As Object, E As EventArgs)
'建立Connection对象,注意从web.Config中获取数据库连接字符串
Dim conn As New OleDbConnection(ConfigurationSettings.AppSettings("strConn"))
'建立Command对象，注意要根据用户输入的用户名和密码进行查找
Dim strSql As String
strSql="Select * From users Where username='" & username.Text & "' And mypassword='" & password.Text & "'"
Dim cmd As New OleDbCommand(strSql, conn)
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader()
'dr.Read()=True表示有1条记录，说明有该用户。否则表示没有该用户
If dr.Read()=True Then
conn.Close()
'通过认证，并重定向到客户请求页面
FormsAuthentication.RedirectFromLoginPage(username.Text,false)
Else
conn.Close()
message.Text="您必须输入有效的用户名和密码"
End If
End Sub
</script>
<html>
<body>
<h4 align="center">用户登录</h4>
<form runat="server">
<table border="1" width="80%" align="center">
<tr>
<td>用户名：</td>
<td><asp:textbox id="username" runat="server"/></td>
</tr><tr>
<td>密码：</td>
<td><asp:textbox id="password" textMode="password" runat="server"/></td>
</tr><tr>
<td></td>
<td><asp:button id="Enter" text=" 提 交 " onClick="Enter_Click" runat="server"/>  
<asp:hyperlink id="HyperLink1" text="注册" NavigateUrl="adduser.aspx" runat="server" /></td>
</tr>
</table>
<asp:Label id="message" runat="server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -