【例15.5】 编程实现添加新纪录功能，结果如下图15.7及图15.8所示。在浏览器上显示简单的HTML文本框，为Web客户提供输入用户名、密码、电子信箱、电话、简历的窗口，把客户输入的新记录加入数据库。（基础模块2.2”添加记录”）
图15.7 添加记录
图15.8 记录添加成功
“添加新记录”模块由两段程序代码（add_record.htm与add_record.asp）组成。add_record.htm是建立新记录输入的界面；add_record.asp是接受输入的新记录并把新记录添加到数据库中，
Add_record.htm程序可在Frontpage中调用【例15.2】的“数据输入”模块，即新记录输入界面。
<add_record.htm>源程序：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“添加记录”之“输入数据”</title>
</head>
<body bgcolor="#C0C0C0">
<form method="POST" action="add_record.asp">
<p>
<font face="华文行楷" size="6">输入数据</font></h1>
</p>
<h3>请输入要添加的记录数据：</h3>
<p>
用户名： <input type="text" name="txtUserName" size="20">
</p>
<p>
密码： <input type="password" name="txtPassword" size="20">
</p>
<p>
电子邮箱：<input type="text" name="txtEmail" size="20">
</p>
<p>
电话： <input type="text" name="txtPhone" size="20">
</p>
<p>简历：</p>
<p>
<textarea rows="4" name="txtResume" cols="30"></textarea>
</p>
<p>
<input type="submit" value="添加记录" ><input type="reset" value="全部重填">
</p>
</form>
</body>
</html>
Add_record.asp程序流程如下图15.9所示：
图 15.9 Add_record.asp程序流程图从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查询结果”及“接受表单输入数据”与【例15.4】的模块中这三个程序段相同.可直接引用这三个程序段，再加上“写入数据库表”程序段就可实现“添加新记录”的功能。
<add_record.asp>源程序：
<% Option Explicit %>
<%
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集，存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users"
rsUsers.Open strSqlSelectUsers,connDemo,1,3
'接受表单输入数据，写入数据库表
rsUsers.AddNew
rsUsers("username")=Request.Form("txtUserName")
rsUsers("password")=Request.Form("txtPassword")
rsUsers("email")=Request.Form("txtEmail")
rsUsers("phone")=Request.Form("txtPhone")
rsUsers("resume")=Request.Form("txtResume")
rsUsers.Update
rsUsers.Close
set rsUsers=Nothing
'返回成功信息
Dim msg
msg="添加成功！\n"
Response.Write("<script>alert('" & msg & "')</script>")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“添加记录”之“添加记录”</title>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">添加记录</font></h1>
</p>
<h3>已成功添加您输入的记录</h3>
</body>
</html>
图15.7 添加记录
图15.8 记录添加成功
“添加新记录”模块由两段程序代码（add_record.htm与add_record.asp）组成。add_record.htm是建立新记录输入的界面；add_record.asp是接受输入的新记录并把新记录添加到数据库中，
Add_record.htm程序可在Frontpage中调用【例15.2】的“数据输入”模块，即新记录输入界面。
<add_record.htm>源程序：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“添加记录”之“输入数据”</title>
</head>
<body bgcolor="#C0C0C0">
<form method="POST" action="add_record.asp">
<p>
<font face="华文行楷" size="6">输入数据</font></h1>
</p>
<h3>请输入要添加的记录数据：</h3>
<p>
用户名： <input type="text" name="txtUserName" size="20">
</p>
<p>
密码： <input type="password" name="txtPassword" size="20">
</p>
<p>
电子邮箱：<input type="text" name="txtEmail" size="20">
</p>
<p>
电话： <input type="text" name="txtPhone" size="20">
</p>
<p>简历：</p>
<p>
<textarea rows="4" name="txtResume" cols="30"></textarea>
</p>
<p>
<input type="submit" value="添加记录" ><input type="reset" value="全部重填">
</p>
</form>
</body>
</html>
Add_record.asp程序流程如下图15.9所示：
图 15.9 Add_record.asp程序流程图从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查询结果”及“接受表单输入数据”与【例15.4】的模块中这三个程序段相同.可直接引用这三个程序段，再加上“写入数据库表”程序段就可实现“添加新记录”的功能。
<add_record.asp>源程序：
<% Option Explicit %>
<%
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集，存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users"
rsUsers.Open strSqlSelectUsers,connDemo,1,3
'接受表单输入数据，写入数据库表
rsUsers.AddNew
rsUsers("username")=Request.Form("txtUserName")
rsUsers("password")=Request.Form("txtPassword")
rsUsers("email")=Request.Form("txtEmail")
rsUsers("phone")=Request.Form("txtPhone")
rsUsers("resume")=Request.Form("txtResume")
rsUsers.Update
rsUsers.Close
set rsUsers=Nothing
'返回成功信息
Dim msg
msg="添加成功！\n"
Response.Write("<script>alert('" & msg & "')</script>")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“添加记录”之“添加记录”</title>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">添加记录</font></h1>
</p>
<h3>已成功添加您输入的记录</h3>
</body>
</html>
