gettruename.asp

功能齐全的oa系统

<%
'**************************************************************************
'输出以Vbcrlf分割的姓名列表
'人员姓名存放于表t_OA_SYS_Account_Character里的 TrueName字段，索引为AccountID
'**************************************************************************

Function GetTrueName(ObjDB,AccountID)

	If isNull(AccountID) Then
		GetTrueName = ""
		Exit Function
	End If
	If AccountID = "" Then
		GetTrueName = ""
		Exit Function
	End If

	Dim StrSQL,C,ObjRS

	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(ObjDB)
		
	StrSQL = "Select TrueName From t_OA_SYS_Account_Character Where AccountID  ='" & AccountID & "'"
	
	Set ObjRS = C.View(StrSQL)
	GetTrueName = ObjRS("TrueName")
		
End Function

%>