delete.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->

<%
	Dim ObjDB,StrSQL,ObjRS
	Dim C,IntParentID,IntID
	Dim IntIDS
	
	IntIDS = Request.QueryString ("IDS")

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	Set ObjRS = C.View ("Select ParentID From t_OA_Public_BBS Where ID In(" & IntIDs & ")")
	If ObjRS("ParentID")<>"" Then 
		IntParentID = ObjRS("ParentID")
		StrSQL = "Update t_OA_Public_BBS Set ReCount = (Select Count(*) From t_OA_Public_BBS Where ParentID = " & IntParentID & ") Where ID = " & IntParentID
		ObjDB.Execute StrSQL
	End If
	Call C.Delete (IntIDS,"t_OA_Public_BBS")

	If IntParentID="0" Then 
%>
<script language=javascript>
	parent.doList()
</script>
<%	else
	'Response.Write IntParentID
	'Response.End 
	Response.Redirect "View.asp?ID="&IntParentID
	
	end if
	ObjDB.Close
	Set ObjDB = Nothing
%>