movetodustbin.asp

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

<%
	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_CRM_Stock_Application Set IsDel = 1 Where ID = " & IntID
		ObjDB.Execute StrSQL
		StrSQL = "Select * from T_CRM_Stock_Application_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_CRM_Stock_Application_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_CRM_Stock_Application_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
		
%>