movetodustbin.asp

功能齐全的oa系统

<%
	Sub MoveToDustbin(ObjDB,BoxID,ID)
	Dim ObjRS,StrSQL
	Dim IntID,IntBoxID
	Dim IntExeID,IntComMsgID
	

	IntBoxID =  BoxID
	
	If IntBoxID = 2 Then
		IntID = ID
	Else
		IntExeID = ID
	End If 
	
	Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
	If IntBoxID = 2 Then
		StrSQL = "Update t_OA_Work_ComMessage Set IsDel = 1 Where ID = " & IntID
		ObjDB.Execute StrSQL
		StrSQL = "Select * from t_OA_Work_Commessage_Delete where ID = 1"
		ObjRS.Open StrSQL,ObjDB,1,3
		ObjRS.AddNew 
		ObjRS("ComMsgID") = IntID
		ObjRS("BoxID") = IntBoxID
		ObjRS.Update
		ObjRS.Close 
		Set ObjRS = Nothing 
	Else
		StrSQL = "Update t_OA_Work_ComMessage_Record_Des Set IsDel = 1 where ID = " & IntExeID
		ObjDB.Execute StrSQL
		StrSQL = "Select ComMsgID from V_OA_Work_Commessage where ExeID = " & IntExeID
		Set ObjRS = ObjDB.Execute (StrSQL)
		IntComMsgID = ObjRS("ComMsgID")
		ObjRS.Close 
		StrSQL = "Select * from t_OA_Work_Commessage_Delete where ID = 1"
		ObjRS.Open StrSQL,ObjDB,1,3
		ObjRS.AddNew 
		ObjRS("ComMsgID") = IntComMsgID
		ObjRS("ExeID") = IntExeID
		ObjRS("BoxID") = IntBoxID
		ObjRS.Update
		ObjRS.Close
		Set ObjRS = Nothing
 
	End If
	
	End Sub
		
%>