<%
Response.Write session("operatorID")
set DbCommand=server.CreateObject("ADODB.Command")
DbCommand.ActiveConnection=DbConn
DbCommand.CommandType=adCmdStoredProc
DbCommand.CommandText="sp_Functions_SelByStaffID" '读取角色成员列表的存储过程
DbCommand.Parameters.Refresh
DbCommand("@StaffID")=session("operatorID")
set rs=server.CreateObject("ADODB.Recordset")
rs.CursorLocation=3
rs.CursorType=3
rs.Open DbCommand
operFunStr="|"
do while not rs.EOF
operFunStr=operFunStr&rs("FunID")&"|"
rs.MoveNext
loop
DbCommand.CommandText="sp_Functions_SelByParentID" '读取角色列表的存储过程
DbCommand.Parameters.Refresh()
DbCommand("@ParentID")=0
set rs1=server.CreateObject("ADODB.Recordset")
rs1.CursorLocation=3
rs1.CursorType=3
rs1.Open DbCommand
set rs2=server.CreateObject("ADODB.Recordset")
i=1
do while not rs1.EOF
GroupText="OutBarFolder"&i&"=new Array("""&rs1("funName")&""""
isUse=0
DbCommand("@ParentID")=rs1("funID")
rs2.Open DbCommand
do while not rs2.EOF
if instr(1,operFunStr,"|"&rs2("funID")&"|")>0 then
if isUse=0 then
Response.Write GroupText
isUse=1
i=i+1
end if
if instr(1,rs2("FunName"),"(")>0 then
funName=mid(rs2("funName"),1,instr(1,rs2("FunName"),"(")-1)
else
funName=rs2("funName")
end if
Response.Write ","""&rs2("ImageURL")&""","""&funName&""","""&rs2("FunURL")&""",""parent.right"""&chr(13)
end if
rs2.MoveNext
loop
if isUse=1 then
Response.Write");"&chr(13)
end if
rs2.Close
rs1.MoveNext
loop
%>