checknode0.asp

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

<%
	Sub CheckNode (ObjDB,NodeID)
		Dim ObjRS,StrSQL
		Dim IntNodeID
		Dim IntIsEnd,IntComMsgID
		Dim IsNeed
		Dim IntNextNodeID
		

		IntNodeID = NodeID
		
	
		If IsNodeEnd(ObjDB,IntNodeID) then
			
			StrSQL = "Select * from t_OA_Work_ComMessage_Record where ID = "& IntNodeID
			Set ObjRS = ObjDB.execute (StrSQL)
			IntIsEnd = ObjRS("IsEnd")
			IntComMsgID = ObjRS("ComMsgID")
			ObjRS.close
			Set ObjRS = Nothing
			
			StrSQL = "Update t_OA_Work_ComMessage_Record Set State = 2,UpdateTime=getdate() where ID = "&IntNodeID
			ObjDB.execute StrSQL
			If IntIsEnd  then
				StrSQL = "Update t_Hrms_JobApplications_DepRequirement Set State = 2,SendTime=getdate() where ID = "& IntComMsgID
				conn.execute StrSQL
			Else
				StrSQL = "Select ID From t_OA_Work_ComMessage_Record Where ParentID = " & IntNodeID
				Set ObjRS = ObjDB.Execute(StrSQL)
				IntNextNodeID = ObJRS("ID")
				ObjRS.Close
				Set ObjRS = Nothing
				Call StimulateNode(ObjDB,IntNextNodeID)
			End if
		
		End if
			
				
			
				
	End Sub
%>