stimulatenode.asp

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

<%
	Sub StimulateNode(ObjDB,NodeID)
		Dim ObjRS,StrSQL
		Dim IntNodeID,IntComMsgID
		Dim IntExecuteID,ArrIDs
		Dim IntID,IsNeed
		
		
		IntNodeID = NodeID

		
		StrSQL = "Select * from t_OA_Work_ComMessage_Record where ID = " & IntNodeID
		Set ObjRS = ObjDB.execute (StrSQL)
		IntNodeID = ObjRS("ID")
		IntComMsgID = ObjRS("ComMsgID")
		IsNeed = ObjRS("IsNeed")
		ObjRS.close
		
		StrSQL = "Select ExecuteID From t_OA_Work_ComMessage_Record_Des Where NodeID = " & IntNodeID
		Set ObjRS = ObjDB.Execute(StrSQL)
		While Not ObjRS.Eof
			Call SendMessage(ObjDB,IntComMsgID,ObjRS("ExecuteID"))
			ObjRS.MoveNext
		Wend
		

		Set ObjRS = Nothing
		
		If IsNeed Then
			StrSQL = "Update t_OA_Work_ComMessage_Record_Des Set State = 1,UpdateTime=getdate() where NodeID = " & IntNodeID
			ObjDB.execute StrSQL

			StrSQL = "Update t_OA_Work_ComMessage_Record Set State = 1,UpdateTime=getdate() where ID = " & IntNodeID
			ObjDB.execute StrSQL
		Else
			StrSQL = "Update t_OA_Work_ComMessage_Record_Des Set State = 1,UpdateTime=getdate() where NodeID = " & IntNodeID
			ObjDB.execute StrSQL

			StrSQL = "Update t_OA_Work_ComMessage_Record Set State = 2,UpdateTime=getdate() where ID = " & IntNodeID
			ObjDB.execute StrSQL

			StrSQL = "Select ID From t_OA_Work_ComMessage_Record Where ParentID = " & IntNodeID
			Set ObjRS = ObjDB.Execute(StrSQL)
			If Not ObjRS.Eof Then
				Call StimulateNode(ObjDB,ObJRS("ID"))
			End If
		End If		
		
	End Sub

%>