001.
<%@ Import
Namespace
=
"System.Data"
%>
002.
<%@ Import
Namespace
=
"System.Data.OleDb"
%>
003.
<%@ Page Language=
"VB"
%>
004.
<script runat=
"server"
>
005.
006.
Dim
objConn
As
New
OleDbConnection
007.
Dim
objCmd
As
New
OleDbCommand
008.
Dim
strConnString,strSQL
As
String
009.
010.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
011.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";Jet OLEDB:Database Password=;"
012.
objConn.ConnectionString = strConnString
013.
objConn.Open()
014.
End
Sub
015.
016.
Sub
btnSave_Click(sender
As
Object
, e
As
EventArgs)
017.
Dim
intNumRows
As
Integer
018.
strSQL =
"SELECT COUNT(*) FROM member WHERE Username = '"
&
Me
.txtUsername.Text &
"' "
019.
objCmd =
New
OleDbCommand(strSQL, objConn)
020.
intNumRows = objCmd.ExecuteScalar()
021.
022.
IF intNumRows > 0
Then
023.
Me
.pnlAdd.Visible =
False
024.
Me
.lblStatus.Visible =
True
025.
Me
.lblStatus.Text =
"Username already exists."
026.
Else
027.
strSQL =
"INSERT INTO member (Username,[Password],Name,Email) "
& _
028.
" VALUES "
& _
029.
" ('"
&
Me
.txtUsername.Text &
"','"
&
Me
.txtPassword.Text &
"', "
& _
030.
" '"
&
Me
.txtName.Text &
"','"
&
Me
.txtEmail.Text &
"')"
031.
032.
objCmd =
New
OleDbCommand
033.
With
objCmd
034.
.Connection = objConn
035.
.CommandText = strSQL
036.
.CommandType = CommandType.Text
037.
End
With
038.
039.
Me
.pnlAdd.Visible =
False
040.
Try
041.
objCmd.ExecuteNonQuery()
042.
Me
.lblStatus.Text =
"Register Sucessful."
043.
Me
.lblStatus.Visible =
True
044.
Catch
ex
As
Exception
045.
Me
.lblStatus.Visible =
True
046.
Me
.lblStatus.Text =
"Cannot Register : Error ("
& ex.Message &
")"
047.
End
Try
048.
End
IF
049.
050.
objConn.Close()
051.
objConn =
Nothing
052.
053.
End
Sub
054.
055.
</script>
056.
<html>
057.
<head>
058.
<title>ThaiCreate.Com Tutorial</title>
059.
</head>
060.
<body>
061.
<form id=
"form1"
runat=
"server"
>
062.
<asp:Panel id=
"pnlAdd"
runat=
"server"
>
063.
<asp:Label id=
"lblRegister"
Text=
"Register New Member."
runat=
"server"
/>
064.
<br />
065.
<br />
066.
<table border=
"1"
style=
"width: 387px"
>
067.
<tbody>
068.
<tr>
069.
<td>
070.
<asp:Label id=
"lblUsername"
runat=
"server"
text=
"Username"
></asp:Label></td>
071.
<td>
072.
<asp:TextBox id=
"txtUsername"
runat=
"server"
Width=
"120px"
></asp:TextBox>
073.
<asp:RequiredFieldValidator ID=
"ChkUsername"
runat=
"server"
074.
ControlToValidate=
"txtUsername"
ErrorMessage=
"* Username"
></asp:RequiredFieldValidator>
075.
</td>
076.
</tr>
077.
<tr>
078.
<td>
079.
<asp:Label id=
"lblPassword"
runat=
"server"
text=
"Password"
></asp:Label></td>
080.
<td>
081.
<asp:TextBox id=
"txtPassword"
runat=
"server"
Width=
"100px"
082.
TextMode=
"Password"
></asp:TextBox>
083.
</td>
084.
</tr>
085.
<tr>
086.
<td>
087.
<asp:Label id=
"lblConPassword"
runat=
"server"
text=
"Confirm Password"
></asp:Label></td>
088.
<td>
089.
<asp:TextBox id=
"txtConPassword"
runat=
"server"
Width=
"100px"
090.
TextMode=
"Password"
></asp:TextBox>
091.
</td>
092.
</tr>
093.
<tr>
094.
<td>
095.
<asp:Label id=
"lblName"
runat=
"server"
text=
"Name"
></asp:Label></td>
096.
<td>
097.
<asp:TextBox id=
"txtName"
runat=
"server"
Width=
"199px"
></asp:TextBox>
098.
</td>
099.
</tr>
100.
<tr>
101.
<td>
102.
<asp:Label id=
"lblEmail"
runat=
"server"
text=
"Email"
></asp:Label></td>
103.
<td>
104.
<asp:TextBox id=
"txtEmail"
runat=
"server"
Width=
"196px"
></asp:TextBox>
105.
</td>
106.
</tr>
107.
</tbody>
108.
</table>
109.
<br />
110.
<asp:Button id=
"btnSave"
onclick=
"btnSave_Click"
runat=
"server"
Text=
"Save"
></asp:Button>
111.
<br />
112.
</asp:Panel>
113.
<asp:Label id=
"lblStatus"
runat=
"server"
visible=
"False"
></asp:Label>
114.
</form>
115.
</body>
116.
</html>