📄 login.aspx
字号:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="ASPNETBank" TagName="Header" src="header.ascx" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
'*******************************************************
'
' Login.aspx: Logs users in
'
'*******************************************************
'*******************************************************
' When user clicks submit button, verify that they are a
' valid user. If they are, log them in, and set a cookie
' with their user name, and redirect to account.aspx.
' Otherwise display error message
'*******************************************************
sub Login(obj as object, e as eventargs)
dim intId as integer = 0
dim Conn as new OleDbConnection("Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ASPNET\data\banking.mdb")
dim objCmd as OleDbCommand = new OleDbCommand _
("spValidateUser", Conn)
objCmd.CommandType = CommandType.StoredProcedure
dim objReader as OleDbDataReader
'set parameters for stored procedure
dim objParam as OleDbParameter
objParam = objCmd.Parameters.Add("@UserName", _
OleDbType.BSTR)
objParam.Direction = ParameterDirection.Input
objParam.Value = tbUserName.Text
objParam = objCmd.Parameters.Add("@Password", _
OleDbType.BSTR)
objParam.Direction = ParameterDirection.Input
objParam.Value = tbPassword.Text
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader
do while objReader.Read
intId = objReader.GetInt32(0).ToString
loop
catch ex as OleDbException
lblMessage.Text = ex.Message
finally
objReader.Close
objCmd.Connection.Close()
end try
if intID <> 0 then
FormsAuthentication.SetAuthCookie(intID, false)
Response.redirect("account.aspx")
else
lblMessage.Text = "<font color=red>Sorry, invalid username" & _
"or password!</font><p>"
end if
end sub
</script>
<html><body topmargin="0" leftmargin="0">
<ASPNETBank:Header runat="server" />
<font face="arial">
<p>
Welcome to the ASP.NET Banking Center. Please enter your username
and password to gain access to your account information.<p>
<form runat="server">
<asp:Label id="lblMessage" runat="server" />
<table>
<tr>
<td width="75" rowspan="3">
</td>
<td width="50" valign="top">
<font face="arial">
Username:
</font>
</td>
<td width="50" valign="top">
<font face="arial">
<asp:Textbox id="tbUserName" runat="server" />
</font>
</td>
</tr>
<tr>
<td valign="top">
<font face="arial">
Password:
</font>
</td>
<td valign="top">
<font face="arial">
<asp:Textbox id="tbPassword" TextMode="password"
runat="server" /><p>
</font>
</td>
</tr>
<tr>
<td align="right" colspan="2">
<font face="arial">
<ASP:Button id="Submit" runat="server"
onClick="Login"
text="Submit" />
</font>
</td>
</tr>
</table>
</form>
</font>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -