電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 删除记录 建立记录集,存放查询结 匚输出结果 图15.13 delete record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”及“输出结果”与【例15.4】模块中这三个程序段相同.只要检査修改相应的参数 就可直接引用这三个程序段。 < delete record.asp>源程序: 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】模块中这三个程序段相同.只要检查修改相应的参数， 就可直接引用这三个程序段。 <delete_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 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