?? ch15-04-01.aspx
字號:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Script Language="VB" Runat="Server">
' 在這里設置聯機字符串的內容
Dim DSN As String
Dim tSQL As String = "Select * From UserDatas"
Sub Page_Load(Obj As Object, e As EventArgs)
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("/ASP/Chap14/ASP.NET網頁數據庫.mdb") & ";"
ShowResultSet(DSN, tSQL)
End Sub
' 用戶單擊“注冊”按鈕
Sub Button1_Click(Obj As Object, e As EventArgs)
Dim lRet As Boolean = False
tSQL = "INSERT INTO UserDatas(UserAccount, UserPWD, UserName, EMail)"
tSQL = tSQL & " VALUES('" & Request.Form("UserAaccount") & "',"
tSQL = tSQL & "'" & Request.Form("UserPWD") & "',"
tSQL = tSQL & "'" & Request.Form("UserName") & "',"
tSQL = tSQL & "'" & Request.Form("EMail") & "')"
Dim Counts As Integer
Counts = OpCommand(DSN, tSQL)
IF Counts > 0 Then' SQL語句執行成功
Response.Redirect("Ch15-04-01.aspx")
ELSE
Show1.InnerHtml = "數據操作命令執行失?。?quot;
END IF
End Sub
</Script>
<!-- #Include Virtual="/ASP/Chap15/ShowResultSet.inc" -->
<!-- #Include Virtual="/ASP/Chap15/OPCommand.inc" -->
</Head>
<Body>
<H2>添加用戶注冊信息</H2>
<Form Method="Post" Runat="Server">
登錄賬號：<asp:TextBox ID="UserAaccount" Runat="Server" /><BR>
密 碼：<asp:TextBox ID="UserPWD" TextMode="Password"
Runat="Server" /><BR>
真實姓名：<asp:TextBox ID="UserName" Runat="Server" /><BR>
電子郵件：<asp:TextBox ID="EMail" Columns="30"
Runat="Server" /><BR>
<asp:Button ID="Button1" Text="注冊"
OnClick="Button1_Click" Runat="Server" />
<Span ID="Show1" Runat="Server" />
</Form>
</Body>
</Html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -