SQL Server 2000 实用教程_【例15.6】

電子工業出版社 SHING HOUSE DF ELECTRONCS IND 【例15.6】编程实现下图15.10及15.11的结果:在浏览器上显示Demo数据库 users 表中的所有记录,删除用户确定的记录。(基础模块2.3”删除记录”) ③历小8·⑥0你 撙记录 请选择要除的记录 电子邮箱 yty barr 成 典开时“的档10J国管度真」是|)动块量,回b9国 图15.10选择要删除的记录 ③历+日即0 刪除记最 您所选择的记录已删除,数据厍中剩余的记录为: 图15.11删除结果显示 删除记录”模块由两段程序代码( sele dele record.htm与 delete record.asp) 组成。 Sele dele record.htm是选择要删除的记录, delete record.asp是从数据库中删除 选定的记录。 Sele dele record.htm程序流程如下图15.12所示: 建立一个到数据源的连结 建立记录集,存放查询结果 结果输出,提供选择 图15.12 Sele dele record.htm程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放查 询结果”与【例15.4】的模块中这两个程序段相同。只要检查修改相应的参数,就可直接引 用这两个程序段

【例 15.6】 编程实现下图 15.10 及 15.11 的结果：在浏览器上显示 Demo 数据库 users 表中的所有记录，删除用户确定的记录。（基础模块 2.3”删除记录”） 图 15.10 选择要删除的记录 图 15.11 删除结果显示 “删除记录”模块由两段程序代码（sele_dele_record.htm 与 delete_record.asp） 组成。Sele_dele_record.htm 是选择要删除的记录，delete_record.asp 是从数据库中删除 选定的记录。 Sele_dele_record.htm 程序流程如下图 15.12 所示： 图 15.12 Sele_dele_record.htm程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同。只要检查修改相应的参数，就可直接引 用这两个程序段

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 源程序 一结果输出,以供选择 metahttp-equiv=content-typecontent=text/html:charset=gb2312> 基础模块“删除记录”之“选择记录” font face="华文行楷”size="6">选择记录请选择要删除的记录: Ktable border="l" cellpadding=8 cellspacing=0 width=342> 姓名《/th 电话√/th> 电子邮箱

源程序： 基础模块“删除记录”之“选择记录” 选择记录 请选择要删除的记录： 姓名 电话 电子邮箱

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR Dim idCollection Do While not rsUsers. eof 将用户所选中的所有记录的id号存放在 coLlection变量中,用","作为分隔符 idCollection=idCollection rsUsers(id)& /td> td> !一-在每条记录后添加一个检查框,供用户选定记录 Input name="chk No type="checkbox"> rsUsers. MoveNex End If rsUsers. Close Set rsUsers=Nothing 将 coLlection贮存在一个隐藏对象中,以传递给下一个页面 Response Write(") delete record.asp程序流程如下图15.13所示:

" type="checkbox"> ") %> delete_record.asp 程序流程如下图 15.13 所示：

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 删除记录 建立记录集,存放查询结 匚输出结果 图15.13 delete record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”及“输出结果”与【例15.4】模块中这三个程序段相同.只要检査修改相应的参数 就可直接引用这三个程序段。 源程序: Option Explicit % 建立一个到数据源的连接 Dim strDsN Dim conn de strDSN="Provider=MSDASQL: DRIVER=SQL erverl: SERVER=127. 0.0. 1: DATABASE=Demo: UID=chen: PWD=123 obJect ("ADOD connDemo. Open strDSN 删除记录 Dim idCollection, strEngth, totalOfIds, 1, id, strSq lDeleteUser idCollection=request form("hidIdCollection") strEngth=Len (idCollection) idCollection=Left(idCollection, strLength-1) idCollection=Split(idCollection, ", " totalOfIds=UBound (idCollection, 1) For i=0 to totaloflds id=Request. Form("chkNo"& idCollection(i)) If Not strsq dEletes DELETE FROM users WhEre id="& Clng(idCollection(i)) connDemo, Execute strSqlDeleteUser End if

图 15.13 delete_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 idCollection, strLength, totalOfIds, i, id, strSqlDeleteUser idCollection=request.form("hidIdCollection") strLength=Len(idCollection) idCollection=Left(idCollection,strLength-1) idCollection=Split(idCollection,",") totalOfIds=UBound(idCollection,1) For i=0 to totalOfIds id=Request.Form("chkNo" & idCollection(i)) If Not IsEmpty(id) Then strSqlDeleteUser="DELETE FROM users WHERE id=" & Clng(idCollection(i)) connDemo.Execute strSqlDeleteUser End If

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR Next 建立记录集,存放查询结果 sers Dim strSql SelectUsers Set rsUsers= Server CreateObject("ADODB. Recordset) strSqlselectUsers=" SELECT FROM users rsUsers. Open strSqlselectUsers, connDemo !一结果输出-一 Head> metahttp-equiv=content-typecontent=text/html:charset=gb2312> 基础模块“删除记录”之“删除记录”/ title font face="华文行楷”size="6">删除记录/hl h3》您所选择的记录已删除。数据库中剩余的记录为: 姓名电话/th 电子邮箱√/th> Do While not rsusers. eof

Next '建立记录集，存放查询结果 Dim rsUsers Dim strSqlSelectUsers Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users" rsUsers.Open strSqlSelectUsers, connDemo %> 基础模块“删除记录”之“删除记录” 删除记录 您所选择的记录已删除。数据库中剩余的记录为： 姓名 电话 电子邮箱

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR rsUsers MoveNext /html>