bookdel1.asp

《动态网页设计基础教程》,胡杰,科学出版社

<!--#include file="adovbs.inc"-->
<%
'取得被删除记录的标识
del=Request("delid")
'建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'利用Provider属性设置Connection对象的提供者（数据库管理程序的名称，默认为MSDASQL)
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
'使用Connection对象的Open方法建立数据库的连接
Conn.Open Server.MapPath("BookSys.mdb")
'建立RecordSet对象
Set rsTest=Server.CreateObject("ADODB.RecordSet")
'利用Open方法打开指定的数据表，采用开放式锁定（AdLockOptimistic）
rsTest.Open "BookCatalog",Conn,adOpenKeySet,adLockOptimistic
'找到符合条件的记录，删除
While Not rsTest.EOF
	If rsTest("图书代码").Value=del Then
		rsTest.Delete
	End If
	rsTest.MoveNext
Wend
'更新数据库
rsTest.UpdateBatch
Response.Write "该记录已被成功删除！"
Response.Write "<A href=BookEdit.asp>返回</A>"
rsTest.Close
Conn.Close
Set Conn=nothing
Set rsTest=nothing
%>