function.asp

功能齐全的oa系统

<%
	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
	
	Function GetPassType(PassType)
		If PassType = 0 Then
			GetPassType	=	"阅读"
		Else
			GetPassType	=	"审核"
		End If
	End Function
	
	Function GetIsNeed(IsNeed)
		If IsNeed Then
			GetIsNeed	=	"是"
		Else 
			GetIsNeed	=	"否"
		End If
	End Function
%>