電子工業出版社 JSHING HOUSE DF 【例15.5】编程实现添加新纪录功能,结果如下图15.7及图15.8所示。在浏览器上 显示简单的HIML文本框,为web客户提供输入用户名、密码、电子信箱、电话、简历的 窗口,把客户输入的新记录加入数据库。(基础模块2.2”添加记录”) 种到| 输入据 请输入要添加的记录数据: 密码: 电子邽箱 加记录全部重填 本地last 勇开叫22”文档:0,划理具值息,包基对块添…办中团9 图15.7添加记录 国收露④历史分,日即O c转到链接 添加记最 己成功添加您输入的记录 典开要山22“文档:刘理工具m慎息。e)基础块落,的办中以国s 图15.8记录添加成功 “添加新记录”模块由两段程序代码( add record.htm与 add record.asp)组成 record.htm是建立新记录输入的界面; add record.asp是接受输入的新记录并把新记录 加到数据库中, 录 record,htm程序可在 Frontpage中调用【例12】的“数据输入”模块,即新记 入界面 < add record.htm>源程序:
【例 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>
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR <metahttp-equiv=content-typecontent=text/html:charset=gb2312> < title>基础模块“添加记录”之“输入数据”< title〉 <body bgcolor=#COCCO"> Form me thod="POSt action="add record. asp> font face="华文行楷"size="6>输入数据</font></hl <h3>请输入要添加的记录数据:</h3 用户名: < Input type="text"name=" txtUserName"size="20" 2b4: <input type="password" name="txtPassword size="20"> <p> 电子邮箱:< input type="text"name=" txtEmail"size="20" </p> EBiE:  :  : <input type="text" name="txt Phone"size=20"> p>简历:</p <textarea rows="4" name="txtResume" cols=30>/textarea> </p> p input type=" submit" value="添加记录"〉< input type=" reset" value="全部重 填" </form> </body〉 /html> Add record.asp程序流程如下图15.9所示:
<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 所示：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 建立记录集,存放查询结果 接受表单输入数据,写入数据库 图15.9 Add record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放查 询结果”及“接受表单输入数据”与【例15.4】的模块中这三个程序段相同.可直接引用这 三个程序段,再加上“写入数据库表”程序段就可实现“添加新记录”的功能 < add record.asp>源程序: < Option Explicit 建立一个到数据源的连接 Dim strDsN Dim condE strDSN="Provider=MSDASQL: DRIVER=SQL rver): SERVER=127. 0. 0. 1: DATABASE=Demo: UID-chen: PWD=123 Set connDemo Server. CreateObject("ADODB Connection) connDemo. Open strDSN 建立记录集,存放查询结果 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("txtEmai1") rsUsers("phone")=Request Form("txtPhone") rsUsers("resume")=Request. Form("txt Resume") rsUsers. Update rsUsers. Close
图 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
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR set rsUsers=Nothing 返回成功信息 msg="添加成功!n” Response. Write("<script>alert("&msg&")/script>") html> Head> <metahttp-equiv=content-typecontent=text/html:charset=gb2312> < title>基础模块“添加记录”之“添加记录”/ title <body bgcolor=#COCCO"> < font face="华文行楷"size="6">添加记录</font></h1 </p <h3>已成功添加您输入的记录</h3 </body> /html>
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>