isnodeend.asp

功能齐全的oa系统

<%
	
	Function IsNodeEnd(ObjDB,NodeID)
		Dim ObjRS,StrSQL,IntNodeID
		Dim IsAllPass,ExecuteID
		Dim IsNeed,ArrIDs,IntPassCount,IntDoCount
		Dim PassType,IntAllExeCount
		Dim IntIsPass,IntState
		Dim i,t,q
		
		i = 0 
		t = 0
		q = 0
		
		IntNodeID = NodeID
		StrSQL = "Select * from t_OA_Work_ComMessage_Record Where ID = " & IntNodeID
		Set ObjRS = ObjDB.execute (StrSQL)
		
		If ObjRS("State") = 2 Then
			IsNodeEnd = True
			Exit Function
		End If
		
		IsNeed = ObjRS("IsNeed")
		IsAllPass = ObjRS("IsAllPass")
		PassType = ObjRS("PassType")
		ExecuteID = ObjRS("ExecuteID")
		ObjRS.close
		
'		Response.Write ExecuteID
'		Response.End 
		ArrIDs = Split (ExecuteID,",")
		
		StrSQL = "Select Count(*) from t_OA_Work_ComMessage_Record_Des Where NodeID = " & IntNodeID
		Set ObjRS = ObjDB.execute (StrSQL)
		IntAllExeCount = ObjRS(0)
		
		StrSQL = "Select Count(*) from t_OA_Work_ComMessage_Record_Des Where IsPass=1 And NodeID = " & IntNodeID
		Set ObjRS = ObjDB.execute (StrSQL)
		IntPassCount = ObjRS(0)
		
		StrSQL = "Select Count(*) from t_OA_Work_ComMessage_Record_Des Where State=2 And NodeID = " & IntNodeID
		Set ObjRS = ObjDB.execute (StrSQL)
		IntDoCount = ObjRS(0)
		
		

		ObjRS.close	
		Set ObjRS = Nothing
		


		If Not IsNeed Then
			'结束本节点
			'返回True
			IsNodeEnd = True
			Exit Function
		End If
		
		
		
		
		If IsAllPass And PassType =1 Then
			'检查所有人是否都通过，检查IsPass=True
			If IntAllExeCount = IntPassCount Then 
				IsPass = True
			Else
				Ispass = false
			End If
		End If
	
		If Not IsAllPass And PassType=1 Then
			'检查是否有一人以上同意，是否有一人IsPass=True
			If IntPassCount >= 1 Then
				IsPass = True
			Else 
				IsPass = False
			End If
		End If
		
		
		
		If IsAllPass And PassType =0 Then
			'检查所有人是否都阅读过，检查State=2
			If IntAllExeCount = IntDoCount Then 
				IsPass = True
			Else
				IsPass = False
			End If
			
		End If
	

	
		If Not IsAllPass And PassType=0 Then
			'检查是否有一人以上阅读State=2
			If IntDoCount >= 1 Then
				IsPass = True
			Else
				IsPass = False
			End If
		End If
	

	
	
	IsNodeEnd = IsPass
	End Function	
	

%>