01.
<%@ Import
Namespace
=
"System.Data"
%>
02.
<%@ Import
Namespace
=
"System.Data.OleDb"
%>
03.
<%@ Page Language=
"VB"
%>
04.
<script runat=
"server"
>
05.
Dim
objConn
As
New
OleDbConnection
06.
Dim
objCmd
As
New
OleDbCommand
07.
Dim
strConnString,strSQL
As
String
08.
09.
Sub
btnLogin_Click(sender
As
Object
, e
As
EventArgs)
10.
11.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";Jet OLEDB:Database Password=;"
12.
objConn.ConnectionString = strConnString
13.
objConn.Open()
14.
15.
Dim
intNumRows
As
Integer
16.
strSQL =
"SELECT COUNT(*) FROM member WHERE Username = '"
&
Me
.txtUsername.Text &
"' AND [Password] = '"
&
Me
.txtPassword.Text &
"' "
17.
objCmd =
New
OleDbCommand(strSQL, objConn)
18.
intNumRows = objCmd.ExecuteScalar()
19.
20.
IF intNumRows > 0
Then
21.
Session(
"strUser"
) =
Me
.txtUsername.Text
22.
Response.Redirect(
"Page1.aspx"
)
23.
Else
24.
Me
.pnlLogin.Visible =
False
25.
Me
.lblStatus.Visible =
True
26.
Me
.lblStatus.Text =
"Username/Password is wrong."
27.
End
IF
28.
29.
objConn.Close()
30.
objConn =
Nothing
31.
32.
End
Sub
33.
</script>
34.
<html>
35.
<head>
36.
<title>ThaiCreate.Com Tutorial</title>
37.
</head>
38.
<body>
39.
<form id=
"form1"
runat=
"server"
>
40.
<asp:Panel id=
"pnlLogin"
runat=
"server"
>
41.
<asp:Label id=
"lblLogin"
Text=
"Login."
runat=
"server"
/>
42.
<br />
43.
<br />
44.
<table border=
"1"
style=
"width: 300px"
>
45.
<tbody>
46.
<tr>
47.
<td>
48.
<asp:Label id=
"lblUsername"
runat=
"server"
text=
"Username"
></asp:Label></td>
49.
<td>
50.
<asp:TextBox id=
"txtUsername"
runat=
"server"
Width=
"120px"
></asp:TextBox>
51.
<asp:RequiredFieldValidator ID=
"ChkUsername"
runat=
"server"
52.
ControlToValidate=
"txtUsername"
ErrorMessage=
"* Username"
></asp:RequiredFieldValidator>
53.
</td>
54.
</tr>
55.
<tr>
56.
<td>
57.
<asp:Label id=
"lblPassword"
runat=
"server"
text=
"Password"
></asp:Label></td>
58.
<td>
59.
<asp:TextBox id=
"txtPassword"
runat=
"server"
Width=
"120px"
60.
TextMode=
"Password"
></asp:TextBox>
61.
</td>
62.
</tr>
63.
</tbody>
64.
</table>
65.
<br />
66.
<asp:Button id=
"btnLogin"
onclick=
"btnLogin_Click"
runat=
"server"
Text=
"Login"
></asp:Button>
67.
<br />
68.
</asp:Panel>
69.
<asp:Label id=
"lblStatus"
runat=
"server"
visible=
"False"
></asp:Label>
70.
</form>
71.
</body>
72.
</html>