delete_forever.asp

功能齐全的oa系统

<%option explicit%>
<!--#include file ="../../../Include/DataEnvi.asp"-->

<%
Dim ObjDB,ArrIDs,IntIDs,i,StrSQL,ObjRS,conn
IntIDs = Request.QueryString("IDs")
ArrIDs = Split(IntIDs,",")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )


For i = LBound(ArrIDs) To UBound(ArrIDs)
	if Session("Delete_already_Shock_Application")="icomeformxinjianggood" Then
		If ArrIDs(i) <> "0" Then
			Set conn=Server.CreateObject("ADODB.Connection")
			OpenDBCrm( conn )
			StrSQL = "Delete from T_CRM_Stock_Application where ID = " & Cint(ArrIDs(i))
  			conn.execute StrSQL
  			conn.close
  			Set conn=Nothing
  		End if
		
	Elseif Session("Delete_already_Shock_Application")="dontaskmewhereicomefromicomeformxinjianggood" Then
			StrSQL = "SELECT ComMsgID FROM V_CRM_Stock_Application WHERE ExeID = "&Cint(ArrIDs(i))
  			Response.Write StrSQL
  			Set ObjRS=Server.CreateObject("ADODB.RecordSet")
			ObjRS.Open StrSQL,ObjDB,1,3
			if Not ObjRS.Eof then
				ArrIDs(i) = ObjRS("ComMsgID")
				If ArrIDs(i) <> "0" Then Call ForeverDel(ObjDB,ArrIDs(i))
				ObjRS.Close
				Set ObjRS = Nothing
			End if
	else
		 if Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks" Then
  			StrSQL = "SELECT ComMsgID FROM V_CRM_Stock_Application WHERE ExeID = "&Cint(ArrIDs(i))
  			Set ObjRS=Server.CreateObject("ADODB.RecordSet")
			ObjRS.Open StrSQL,ObjDB,1,3
			if Not ObjRS.Eof then
				ArrIDs(i) = ObjRS("ComMsgID")
				If ArrIDs(i) <> "0" Then Call ForeverDel(ObjDB,ArrIDs(i))
				ObjRS.Close
				Set ObjRS = Nothing
	    	End if
    	End if
    End if
Next
ObjDB.Close
Set ObjDB = Nothing

Sub ForeverDel(ObjDB,ID)
  Dim ObjRS,StrSQL
  Dim IntID,IntComMsgID 
  
  IntID = ID


  StrSQL = "Delete from t_OA_Work_ComMessage_Record_Des where NodeID In (Select ID from t_OA_Work_ComMessage_Record where ComMsgID = " & IntID & " )"
  ObjDB.execute StrSQL
  StrSQL = "Delete from T_CRM_Stock_Application where ID = " & IntID
  Set conn=Server.CreateObject("ADODB.Connection")
  OpenDBCrm( conn )
  conn.execute StrSQL
  StrSQL = "Delete from t_OA_Work_ComMessage_Record Where ComMsgID = " & IntID
  ObjDB.execute StrSQL
  Set ObjRS = Nothing
  Set conn=Nothing
End Sub
%>

<%if Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks" Then%>
<Script Language = Javascript>
  parent.frmToolbar.doList(3)
</Script>
<%Elseif Session("Delete_already_Shock_Application")="icomeformxinjianggood" Then
  Session("Delete_already_Shock_Application")=""%>
<Script Language = Javascript>
  parent.frmToolbar.doList(2)
</Script>

<%Elseif Session("Delete_already_Shock_Application")="dontaskmewhereicomefromicomeformxinjianggood" Then
Session("Delete_already_Shock_Application")=""%>
<Script Language = Javascript>
  parent.frmToolbar.doList(4)
</Script>
<%End if%>