gettruenames.asp

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

<%
Function GetTrueNames(ObjDB,AccountIDs)
	Dim StrTrueNames
	StrTrueNames = "  "
	If isNull(AccountIDs) Then
		GetTrueNames = ""
		Exit Function
	End If
	Dim StrSQL,C,ObjRS

	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(ObjDB)

	If AccountIDs = "" Then
		StrSQL = "Select TrueName From t_OA_SYS_Account_Character"
	Else
		StrSQL = "Select TrueName From t_OA_SYS_Account_Character Where AccountID  In (" & AccountIDs & ")"
	End If

	ObjRS = C.List(1,0,StrSQL)
	Dim i
	For i = 0 TO C.GetRows
		StrTrueNames = StrTrueNames & ObjRS(0,i) & Vbcrlf
	Next
	GetTrueNames = StrTrueNames
End Function
%>