delete_forever0.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")
OpenDBH( conn )


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

			StrSQL = "SELECT ComMsgID FROM v_Hrms_DepRequirement_Flow WHERE ExeID = "&Cint(ArrIDs(i))
  			'Response.Write StrSQL
  			'Response.End
			Set ObjRS=Server.CreateObject("ADODB.RecordSet")
			ObjRS.Open StrSQL,ObjDB,1,3
			ArrIDs(i) = ObjRS("ComMsgID")
			If ArrIDs(i) <> "0" Then Call ForeverDel(conn,ArrIDs(i))
			ObjRS.Close
			Set ObjRS = Nothing
		else
		    if Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks" Then
  			StrSQL = "SELECT ComMsgID FROM v_Hrms_DepRequirement_Flow WHERE ExeID = "&Cint(ArrIDs(i))
  			'Response.Write StrSQL
  			'Response.End
			Set ObjRS=Server.CreateObject("ADODB.RecordSet")
			ObjRS.Open StrSQL,ObjDB,1,3
			ArrIDs(i) = ObjRS("ComMsgID")
			If ArrIDs(i) <> "0" Then Call ForeverDel(ObjDB,ArrIDs(i))
			ObjRS.Close
			Set ObjRS = Nothing
	       	    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_Hrms_JobApplications_DepRequirement where ID = " & IntID
  Set conn=Server.CreateObject("ADODB.Connection")
  OpenDBH( conn )
  conn.execute StrSQL
    
  StrSQL = "Delete from t_OA_Work_ComMessage_Record Where ComMsgID = " & IntID
  ObjDB.execute StrSQL
  Set ObjRS = Nothing
  Set conn=Nothing
 ' Response.Write "success"
 ' Response.End()
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%>