add.aspx

来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 89 行

ASPX
89 行
字号 
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
	'建立Connection对象
	Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("address.mdb"))
	'建立Command对象，注意这里使用了含有参数的SQL语句
	Dim strSql="Insert Into users(name,tel,email,intro,submit_date,UserPWD) Values(@name,@tel,@email,@intro,@submit_date,@UserPWD)"
	Dim cmd As New OleDbCommand(strSql, conn)
	'下面给参数赋值
	cmd.Parameters.Add(New OleDbParameter("@name",OleDbType.VarWChar,5))
	cmd.Parameters("@name").Value=txtName.Text
	cmd.Parameters.Add(New OleDbParameter("@tel",OleDbType.VarWChar,13))
	cmd.Parameters("@tel").Value=txtTel.Text
	'下面给@email赋值，如果客户没有输入，则赋NULL值
	cmd.Parameters.Add(New OleDbParameter("@email",OleDbType.VarWChar,50))
	If txtEmail.Text<>"" Then
		cmd.Parameters("@email").Value=txtEmail.Text
	Else
		cmd.Parameters("@email").Value=DBNull.Value						'赋值NULL
	End If
	'下面给@intro赋值，如果客户没有输入，则赋NULL值
	cmd.Parameters.Add(New OleDbParameter("@intro",OleDbType.VarWChar))
	If txtIntro.Text<>"" Then
		cmd.Parameters("@intro").Value=txtIntro.Text
	Else
		cmd.Parameters("@intro").Value=DBNull.Value						'赋值NULL
	End If		
	cmd.Parameters.Add(New OleDbParameter("@submit_date",OleDbType.Date))
	cmd.Parameters("@submit_date").Value=Now()
	cmd.Parameters.Add(New OleDbParameter("@UserPWD",OleDbType.Char,8))
	cmd.Parameters("@UserPWD").Value=txtUserPWD.Text
	conn.open()                             '打开数据库
	cmd.ExecuteNonQuery()
	conn.close()                            '关闭数据库
	Response.Redirect("index.aspx")			'返回首页
End Sub
</script>
<html>
<body>
	<h3 align="center">添加新记录</h3>
	<center>
	<form runat="server">
		<table border="1" align="center" cellpadding="2" bgcolor="#FFFFFF" cellspacing="0" style="border-collapse: collapse" bordercolor="#D4D4D4" width="80%" >
			<tr>
				<td>姓名：</td>
				<td>
					<asp:Textbox id="txtName" runat="server"/>
					<asp:RequiredFieldValidator id="require1" ControlToValidate="txtName" ErrorMessage="必须输入用户名"  runat="server"/>
					<asp:RegularExpressionValidator id="Regular1" ControlToValidate="txtName" ValidationExpression="^[\u4e00-\u9fa5]{2,5}$" ErrorMessage="必须输入2位到5位汉字" runat="server" />
				</td>
			</tr>
			<tr>
				<td>电话：</td>
				<td>
					<asp:Textbox id="txtTel" runat="server"/>（格式：010-12345678或手机号码)
					<asp:RequiredFieldValidator id="require2" ControlToValidate="txtTel" ErrorMessage="必须输入电话"  runat="server"/>
					<asp:RegularExpressionValidator id="Regular2" ControlToValidate="txtTel" ValidationExpression="^([0-9]{3,4}-[0-9]{7,8})|([0-9]{11})$" ErrorMessage="电话格式不正确" runat="server" />
				</td>
			</tr>
			<tr>
				<td>E-mail：</td>
				<td>
					<asp:Textbox id="txtEmail" columns="40" runat="server"/>
					<asp:RegularExpressionValidator id="Regular3" ControlToValidate="txtEmail" ValidationExpression="^.{1,}@.{1,}\.[a-zA-Z]{2,3}$" ErrorMessage="E-mail格式不正确" runat="server" />
				</td>
			</tr>
			<tr>
				<td>简介：</td>
				<td><asp:Textbox id="txtIntro" Textmode="multiline" columns="40" rows="4" runat="server"/></td>
			</tr>
			<tr>
				<td>密码：</td>
				<td>
					<asp:Textbox id="txtUserPWD" TextMode="password" runat="server"/>
					<asp:RequiredFieldValidator id="require4" ControlToValidate="txtUserPWD" ErrorMessage="必须输入密码"  runat="server"/>
					<asp:RegularExpressionValidator id="Regular4" ControlToValidate="txtUserPWD" ValidationExpression="^\w{4,8}$" ErrorMessage="必须输入4到8位字母、数字和下划线" runat="server" />
				</td>
			</tr>
			<tr>
				<td></td>
				<td><asp:button id="Enter" Text=" 提 交 " onClick="Enter_Click" runat="server"/></td>
			</tr>
		</table>
	</form>
	</center>
</body>
</html>

add.aspx - 源码说明

本页面展示了「《ASP.NET C#程序设计案例教程》」中的 add.aspx 源码文件，采用 ASPX 编程语言编写，共 89 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?