getflowstring.asp

功能齐全的oa系统

<%
	Function GetFlowString (ObjDB,ComMsgID)
		Dim ObjRS,StrSQL
		Dim IntComMsgID
		Dim StrTmp,ArrIDs
		Dim Tick,Cross,Round,NULLSTR
		Dim ObjRS1,IntIsPass
		Dim i,TrueName
		Dim IntNodeID
		
		Tick = "<font color=red><b>√</b></font>"
		Cross = "<font color=red><b>×</b></font>"
		Round = "<font color=red><b>○</b></font>"
		NULLSTR = "<font color=red><b>　</b></font>"
		
		IntComMsgID = ComMsgID
		
		StrSQL = "Select * from t_OA_Work_ComMessage_Record where ComMsgID = " & IntComMsgID
		Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
		ObjRS.Open StrSQL,ObjDB,1,3
		Set ObjRS1 = Server.CreateObject ("ADODB.RecordSet")
		While Not ObjRS.EOF 
			IntNodeID = ObjRS("ID")
			StrTmp = StrTmp & Chr(34)
			StrTmp = StrTmp & ObjRS("NodeName")
			StrTmp = StrTmp & Chr(34) & "," & Chr(34)
			ArrIDs = Split(ObjRS("ExecuteID"),",")

	
			For i = LBound(ArrIDs) To UBound(ArrIDs)
				TrueName = GetTrueName(ObjDB,ArrIDs(i))
				StrSQL = "Select IsPass from t_OA_Work_ComMessage_Record_Des where State=2 And NodeID = " & IntNodeID & " And ExecuteID = " & ArrIDs(i)
				Set ObjRS1 = ObjDB.execute (StrSQL)
				If ObjRS1.EOF Then
					StrTmp = StrTmp & NULLSTR
				Else
					IntIsPass = ObjRS1("IsPass")
					ObjRS1.close
					If ObjRS("PassType") = 0 Then
						StrTmp = StrTmp & Round
					Else
						If IntIsPass Then
							StrTmp = StrTmp & Tick
						Else
							StrTmp = StrTmp & Cross
						End If
					End If
				End If
				StrTmp = StrTmp & TrueName & "<br>"
			Next
			StrTmp = StrTmp & Chr(34) & ","
			StrTmp = StrTmp & ObjRS("PassType") & ","
			StrTmp = StrTmp & LCase(Cstr(ObjRS("IsAllPass"))) & ","
			StrTmp = StrTmp & LCase(Cstr(ObjRS("IsNeed"))) & ","
			ObjRS.MoveNext ()
		Wend
		If StrTmp<>"" Then StrTmp = Left(StrTmp,Len(StrTmp)-1)
	GetFlowString = StrTmp

			
	End Function

	
	Function GetTrueName(objDB,AccountID)
		Dim	objRS,strSQL
		Set	objRS	=	Server.CreateObject("ADODB.Recordset")
		strSQL = "Select TrueName from  t_OA_SYS_Account_Character where AccountID = " & AccountID
		objRS.Open strSQL,objDB,1,3 
		If Not objRS.EOF Then
			GetTrueName	=	objRS.Fields("TrueName")
		End If
		Set objRS = Nothing
	End Function
	
%>