add.aspx
来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 96 行
ASPX
96 行
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
'建立Connection对象
Dim conn As New SqlConnection("Server=localhost;Database=address;Uid=test;Pwd=123456")
'建立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 SqlCommand(strSql, conn)
'下面给参数赋值
cmd.Parameters.Add(New SqlParameter("@name",SqlDbType.NVarChar,50))
cmd.Parameters("@name").Value=txtName.Text
cmd.Parameters.Add(New SqlParameter("@tel",SqlDbType.NVarChar,50))
cmd.Parameters("@tel").Value=txtTel.Text
'下面给@email赋值，如果客户没有输入，则赋NULL值
cmd.Parameters.Add(New SqlParameter("@email",SqlDbType.NVarChar,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 SqlParameter("@intro",SqlDbType.NText))
If txtIntro.Text<>"" Then
cmd.Parameters("@intro").Value=txtIntro.Text
Else
cmd.Parameters("@intro").Value=DBNull.Value '赋值NULL
End If
cmd.Parameters.Add(New SqlParameter("@submit_date",SqlDbType.SmallDateTime))
cmd.Parameters("@submit_date").Value=Now()
cmd.Parameters.Add(New SqlParameter("@UserPWD",SqlDbType.NVarChar,50))
cmd.Parameters("@UserPWD").Value=txtUserPWD.Text
conn.open() '打开数据库
cmd.ExecuteNonQuery()
conn.close() '关闭数据库
'这里要将DataSet从缓存中删除，这样返回到首页后就会重新从数据库中读取更新后的数据
Cache.Remove("ds")
Response.Redirect("index.aspx") '返回首页
End Sub
</script>
<html>
<head>
<link href="Style.css" type="text/css" rel="stylesheet">
</head>
<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" CssClass="inputbox"/>
<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" CssClass="inputbox"/>（格式：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" CssClass="inputbox"/>
<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" CssClass="inputbox"/></td>
</tr>
<tr>
<td>密码：</td>
<td>
<asp:Textbox id="txtUserPWD" TextMode="password" runat="server" CssClass="inputbox"/>
<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" CssClass="inputbutton"/></td>
</tr>
</table>
</form>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?