📄 gettruenames.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -