📄 adduser.aspx
字号:
<%@ Page Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
'建立Connection对象,注意从web.Config中获取数据库连接字符串
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\asp.net\chapter11\www\userinfo.mdb" )
'建立Command对象
Dim strSql As String
strSql="Insert Into users(username,mypassword,email,submit_date) Values('" & username.Text & "','" & password.Text & "','" & email.Text & "',#" & Now() & "#)"
Dim cmd As New OleDbCommand(strSql,conn)
Dim Exp As Exception
Try
conn.open()
cmd.ExecuteNonQuery() '执行操作，插入记录
conn.close()
Response.Redirect("login.aspx") '重定向到登录页面
Catch Exp
message.Text="<p align='center'>发生错误，可能是用户名已经被人使用。"
End Try
End Sub
</script>
<html>
<body>
<h4 align="center">用户注册</h4>
<form runat="server">
<table border="1" width="80%" align="center">
<tr>
<td>用户名：</td>
<td><asp:textbox id="username" runat="server"/></td>
</tr><tr>
<td>密码：</td>
<td><asp:textbox id="password" textMode="password" runat="server"/></td>
</tr><tr>
<td>E-mail:</td>
<td><asp:textbox id="email" columns="40" runat="server"/></td>
</tr><tr>
<td></td>
<td><asp:button id="Enter" text=" 提 交 " onClick="Enter_Click" runat="server"/></td>
</tr>
</table>
<asp:Label id="message" runat="server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -