restore.asp

功能齐全的oa系统

<%Option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<%
Dim ObjRS, ObjDB, StrSQL
Dim IntIDs,ArrIDs
Dim IntBoxID,IntComMsgID,IntExeID
Dim i

IntIDs = Request.QueryString ("IDs")
ArrIDs = Split(IntIDs,",")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB

For i = LBound(ArrIDs) To UBound(ArrIDs)
  StrSQL = "Select * from t_OA_Work_Commessage_Delete where ID = " & ArrIDs(i)
  Set ObjRS = ObjDB.Execute (StrSQL)
  IntBoxID = ObjRS("BoxID")
  IntComMsgID = ObjRS("ComMsgID")
  IntExeID = ObjRS("ExeID")
  ObjRS.close
  StrSQL = "Delete t_OA_Work_Commessage_Delete where ID = " &ArrIDs(i)
  ObjDB.Execute StrSQL
  If IntBoxID = 2 Then
    StrSQL = "Update t_OA_Work_Commessage Set IsDel = 0 where ID = " &IntComMsgID
    ObjDB.Execute StrSQL
  Else
    StrSQL = "Update t_OA_Work_Commessage_Record_Des Set IsDel = 0 where ID = " & IntExeID
    ObjDB.Execute StrSQL
  End If
Next
%>
<script language=javascript>
parent.frmToolbar.doList(5)
</script>