delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim C,ParentID,IntID
	Dim IntIDS

	IntIDS = Request.QueryString ("IDS")
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Call C.Delete(IntIDS,"t_OA_Work_Document")
	
	ObjDB.Close
	Set ObjDB = Nothing
%>
<script language=javascript>
parent.doList()
</script>