電子工業出版社 JSHING HOUSE DF 【例15.7】编程实现下图15.14及15.,15所示的结果:在浏览器上显示Demo数据库uers 表中的所有记录,选择要修改的记录,修改该记录。(基础模块2.4”修改记录”) 历8·0带 选拌要修改的记最 请选择要修改的记录: 记粱号 地日2“mkou则e要略,回b9以2国1m 图15.14选择要修改的记录 于基根权记录 后·+日a赞案国收(历史山⑧·日@0帐 地址]数 CHl mody ecmd& 修改形 请修改记录数据 qqL11ll 电子邮箱:F 个人简历 e]成 奥开时山如”档上理工具值是,基吸读,的非心金国9% 图15.15修改记录 “修改记录”模块由两段程序代码组成( sele modi record.htm与 modify record.asp)组成。 Sele modi record.htm是选择要修改的记录, modify record.asp是修改选定的记录。 le modi record.htm程序流程如下图15.16所示:
【例 15.7】编程实现下图 15.14及 15.15 所示的结果：在浏览器上显示 Demo 数据库 users 表中的所有记录，选择要修改的记录，修改该记录。（基础模块 2.4”修改记录”） 图 15.14 选择要修改的记录 图 15.15 修改记录 “ 修改记录 ” 模 块 由 两 段 程 序 代 码 组 成 （ sele_modi_record.htm 与 modify_record.asp ） 组成。 Sele_modi_record.htm 是 选 择 要 修 改 的 记 录 ， modify_record.asp 是修改选定的记录。 Sele_modi_record.htm 程序流程如下图 15.16 所示：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 建立记录集,存放查询结果 结果输出,提供选择 15.16Sele_ modi record.htm程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数,就可直接引 用这两个程序段 chtml>
图 15.16 Sele_modi_record.htm程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引 用这两个程序段。 :
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 选择要修改的记录 请选择要修改的记录: If Not rsUsers Eof Then . 记录号 姓名* Do While Not rsUsers Eof > s Users MoveNext L End If modify record.asp程序流程如下图15.17所示:
基础模块“修改记录”之“选择要修改的记录” 选择要修改的记录 请选择要修改的记录： . 记录号 姓名 * "> modify_record.asp 程序流程如下图 15.17 所示：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 接受表单输入数据 建立一个到数据源的连结 保存按钮被点击 建立记录集,存放查询结果 建立一个到数据源的连结 受表单输入数据,写入数据库 建立记录集,存放查询结果 建立表单与记录集的连接 图15.17 modify record.asp程序流程图 modify record.asp源程序 接受从表单读出输入的数据 Dim save id=Request QueryString("id") save=Request Form("btnSave") 判断本页面的”保存”按钮是否被点击 If save="保存"Then 建立一个到数据源的连接 Dim strdsN Dim conn Demo strDSN="ProviderMSDASQL DRIVER=SQL Server: SERVER=127.0.0.1: DATABASE=Demo UID=chen, PWD=123 Set connDemo= Server CreateObject("ADODB Connection") conn Demo. Open strDSN 建立记录集,存放查询结果 Dim strSqISelectUsers Set rsUsers= Server CreateObject("ADODB. Recordset")
图 15.17 modify_record.asp程序流程图 <% '接受从表单读出输入的数据 Dim id Dim save id=Request.QueryString("id") save=Request.Form("btnSave") '判断本页面的"保存"按钮是否被点击 If save="保存" Then '建立一个到数据源的连接 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")
電子工業出版社 SHING HOUSE DF ELECTRONCS strSqlSelectUsers="SELECT* FROM users WHERE username"& Request Form("txtUser Name") rsUsers. Open strSqlselectUsers, connDemo, 1, 3 接受表单输入数据,写入数据库 rsUsers("username"REquest Form(txtUserName") rs Users("phone"REquest Form("txtPhone") rsUsers("email"REquest Form(txtEmail") rsUsers("resume"REquest Form("txtResume") rsUsers. close Set rsUsers=Nothing 显示执行结果 msg="编辑成功!ln" Response. Write(" " Response. End 建立一个到数据源的连接 strDSN="ProviderMSDASQL, DRIVER=ISQL Server): SERVER=127.0.0.1; DATABASE=Demo UID=chen, PWD=123 Set connDemo =Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集,存放查询结果 Set rsUsers= Server CreateObject("ADODB. Recordset") strSqlSelectUsers="SELECT*FROM users WhEre id="& id rsUsers. Open strSqlselectUsers, connDemo, 3, 3 title>基础模块“修改记录”之“修改记录” 修改记录 请修改记录数据:
strSqlSelectUsers="SELECT * FROM users WHERE username='" & Request.Form("txtUserName") & "'" rsUsers.Open strSqlSelectUsers, connDemo,1,3 '接受表单输入数据,写入数据库 rsUsers("username")=Request.Form("txtUserName") rsUsers("phone")=Request.Form("txtPhone") rsUsers("email")=Request.Form("txtEmail") rsUsers("resume")=Request.Form("txtResume") rsUsers.Update rsUsers.Close Set rsUsers=Nothing '显示执行结果 Dim msg msg="编辑成功！\n" Response.Write("alert('" & msg & "');history.go(-1)") Response.End Else '建立一个到数据源的连接 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 '建立记录集,存放查询结果 Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users WHERE id=" & id & "" rsUsers.Open strSqlSelectUsers, connDemo,3,3 End If %> 基础模块“修改记录”之“修改记录” 修改记录 请修改记录数据：
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR t:     > Etia:  :  :; > 电子邮箱:
姓名： "> 电话： "> 电子邮箱："> 个人简历：