getroleids.asp

功能齐全的oa系统

<!-- #include file="DataEnvi.asp" -->
<%
Dim GetRolesObjDB,GetRolesStrSQL,GetRolesObjRS,GetRoleIds

GetRolesStrSQL = "Select RoleIDs From V_OA_SYS_Account Where ID=" & Session("AccountID")

Set GetRolesObjDB = Server.CreateObject("Adodb.Connection")
OpenDB GetRolesObjDB
Set GetRoleIds = Server.CreateObject("CMS2003.DBHandle")
GetRoleIds.Init(GetRolesObjDB)
Set GetRolesObjRS = GetRoleIds.View(GetRolesStrSQL)

GetRolesObjDB.Close
Set GetRolesObjDB = Nothing

function CheckRole(RoleID)
	dim ArrRole,i
	
	if InStr(GetRolesObjRS("RoleIDs"), ",") <> 0 then
		ArrRole = split(GetRolesObjRS("RoleIDs"),",")
		For i = LBound(ArrRole) To UBound(ArrRole)
			if Cint(ArrRole(i)) = RoleID then
			  CheckRole = true
			  exit for
			else
		  	CheckRole = false
			end if
		Next
	else
  	if Cint(GetRolesObjRS("RoleIDs")) = RoleID then
    	CheckRole = true
  	else
    	CheckRole = false
  	end if
	end if
end function
%>