delete_forever.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 47 行

<%option explicit%>
<!--#include file ="../../../Include/DataEnvi.asp"-->
<!--#include file ="CanDel.asp"-->
<%
Dim ObjDB,ArrIDs,IntIDs,i
IntIDs = Request.QueryString("IDs")
ArrIDs = Split(IntIDs,",")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
For i = LBound(ArrIDs) To UBound(ArrIDs)
  If ArrIDs(i) <> "0" Then Call ForeverDel(ObjDB,ArrIDs(i))
Next
ObjDB.Close
Set ObjDB = Nothing

Sub ForeverDel(ObjDB,ID)
  Dim ObjRS,StrSQL
  Dim IntID,IntComMsgID 
  
  IntID = ID
  
  StrSQL = "Update t_OA_Work_ComMessage_Delete Set IsDel = 1 where ID = " & IntID
  ObjDB.execute StrSQL
  StrSQL = "Select ComMsgID from t_OA_Work_ComMessage_Delete where ID = " & IntID
  Set ObjRS = ObjDB.execute (StrSQL)
  IntComMsgID = ObjRS("ComMsgID")
  ObjRS.close
  If CanDel(ObjDB,IntComMsgID) Then
    StrSQL = "Delete from t_OA_Work_ComMessage_Record_Des where NodeID In (Select ID from t_OA_Work_ComMessage_Record where ComMsgID = " & IntComMsgID & " )"
    ObjDB.execute StrSQL
    
    StrSQL = "Delete from t_OA_Work_ComMessage_Delete where ComMsgID = " & IntComMsgID
    ObjDB.execute StrSQL 
    
    StrSQL = "Delete from t_OA_Work_ComMessage where ID = " & IntComMsgID
    ObjDB.execute StrSQL
    
    StrSQL = "Delete from t_OA_Work_ComMessage_Record Where ComMsgID = " & IntComMsgID
    ObjDB.execute StrSQL
  End If
  
  Set ObjRS = Nothing
End Sub
%>
<Script Language = Javascript>
  parent.frmToolbar.doList(5)
</Script>