doexecute.asp

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

<%
	Sub DoExecute(ObjDB,ExeID,Advice,IsPass)
		Dim IntExeID,ObjRS,StrSQL
		Dim IntNodeID
		IntExeID = ExeID
		
		StrSQL = "Select * From t_OA_Work_ComMessage_Record_Des Where ID = " & IntExeID
		Set ObjRS = SErver.CreateObject("Adodb.RecordSet")
		ObjRS.Open StrSQL,ObjDB,1,2
		ObjRS("State") = 2
		ObjRS("Advice") = Advice
		ObjRS("IsPass") = IsPass
		ObjRS("UpdateTime") = Now()
		IntNodeID = ObjRS("NodeID")
		ObjRS.Update 
		
		ObjRS.close
		Set ObjRS = Nothing
		
		Call CheckNode(ObjDB,IntNodeID)
		 
	End Sub

%>