delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
	Dim ObjDB,StrSQL,ItemArray
	Dim ParentID
	Dim IntIDS,i

	IntIDS = Request.QueryString ("IDS")
	ItemArray = Split(IntIDS, ",")

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	
	For i= 0 to Ubound(ItemArray)
		StrSQL = "delete from t_OA_Public_Vote where parentid in (Select parentid from t_OA_Public_Vote where id=" & ItemArray(i) & ")"
		ObjDB.Execute StrSQL
	next
	
	ObjDB.Close
	Set ObjDB = Nothing
%>
<script language=javascript>
parent.doList()
</script>