電子工業出版社 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】的“数据输入”模块,即新记 入界面 源程序:
【例 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】的“数据输入”模块，即新记 录输入界面。 源程序：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 基础模块“添加记录”之“输入数据” Form me thod="POSt action="add record. asp> font face="华文行楷"size="6>输入数据请输入要添加的记录数据: 电子邮箱: EBiE:  :  : p>简历:/textarea> p input type=" submit" value="添加记录"〉 Add record.asp程序流程如下图15.9所示:
基础模块“添加记录”之“输入数据” 输入数据 请输入要添加的记录数据： 用户名： 密码： 电子邮箱： 电话： 简历： Add_record.asp 程序流程如下图 15.9 所示：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 建立记录集,存放查询结果 接受表单输入数据,写入数据库 图15.9 Add record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放查 询结果”及“接受表单输入数据”与【例15.4】的模块中这三个程序段相同.可直接引用这 三个程序段,再加上“写入数据库表”程序段就可实现“添加新记录”的功能 源程序: < 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】的模块中这三个程序段相同.可直接引用这 三个程序段，再加上“写入数据库表”程序段就可实现“添加新记录”的功能。 源程序： <% '建立一个到数据源的连接 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("alert("&msg&")/script>") html> Head> 基础模块“添加记录”之“添加记录”/ title 添加记录已成功添加您输入的记录 /html>
set rsUsers=Nothing '返回成功信息 Dim msg msg="添加成功！\n" Response.Write("alert('" & msg & "')") %> 基础模块“添加记录”之“添加记录” 添加记录 已成功添加您输入的记录