📄 exercise2.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
sub Submit(obj as object, e as eventargs)
if Page.IsValid then
lblMessage.Text = "Welcome " & _
Session("User") & "<br>Your " & _
"ID is " & Session("ID")
end if
end sub
function ValidateThis(obj as Object, strValue as _
System.String) As Boolean
dim intId as integer = 0
dim Conn as new OleDbConnection("Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=H:\ASPNET\data\banking.mdb")
dim objCmd as OleDbCommand = new OleDbCommand _
("SELECT UserID FROM tblUsers WHERE " & _
"UserName = '" & tbUserName.Text & "' AND " & _
"Password = '" & tbPassword.Text & "'", Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader
do while objReader.Read
intId = objReader.GetInt32(0).ToString
loop
catch ex as OleDbException
throw ex
end try
if intId <> 0 then
Session("User") = tbUserName.Text
Session("ID") = intID
return true
else
return false
end if
end function
</script>
<html><body>
<form runat="server">
<asp:Label id="lblMessage" runat="server" />
<table>
<tr>
<td valign="top">Username:</td>
<td valign="top">
<asp:Textbox id="tbUserName" runat="server" />
</td>
</tr>
<tr>
<td valign="top">Password:</td>
<td valign="top">
<asp:Textbox id="tbPassword" runat="server"
TextMode="password" />
</td>
</tr>
<tr>
<td align="right" colspan="2">
<asp:CustomValidator runat="server"
OnServerValidate="ValidateThis"
Display="Dynamic"
ControlToValidate="tbUserName"
ErrorMessage="Invalid username or password"/>
<br>
<ASP:Button id="tbSubmit" runat="server"
OnClick="Submit"
text="Submit" />
</td>
</tr>
</table>
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -