delete.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 22 行

<%Option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<!--#include file ="MoveToDustbin.asp"-->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim IntBoxID,ArrIDs
	Dim IntIDs,i
	
	IntBoxID = Request.QueryString ("BoxID")
	IntIDs = Request.QueryString ("IDs")
	ArrIDs = Split(IntIDs,",")
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
	For i = LBound(ArrIDs) To UBound(ArrIDs)
		If ArrIDs(i)<>"0" Then Call MoveToDustbin(ObjDB,IntBoxID,ArrIDs(i))
	Next
	ObjDB.Close
	Set ObjDB = Nothing
%>
<Script Language = Javascript>
	parent.frmToolbar.doList(<%=IntBoxID%>)
</Script>