getrolename.asp

功能齐全的oa系统

<%
	Function GetRoleName(ObjDB,RoleIDs)
		If isNull(RoleIDs) Then
			GetRoleName = ""
			Exit Function
		End If
		If RoleIDs = "" Then
			GetRoleName = ""
			Exit Function
		End If
		Dim StrSQL,C,ObjRS
		Dim StrRe,i
		Set C = Server.CreateObject("CMS2003.DBHandle")
		C.Init(ObjDB)
		StrSQL = "Select RoleName From t_OA_SYS_Role Where ID In (" & RoleIDs & ")"
		ObjRS = C.List(1,0,StrSQL)
		For i = 0 To C.GetRows()
			StrRe = StrRe & ObjRS(0,i) & Vbcrlf
		Next
		GetRoleName = StrRe
	End Function

%>