<%
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =5
objres.CursorLocation =3
objres.LockType =2
set objres2=server.CreateObject ("adodb.recordset")
objres2.CursorType =5
objres2.CursorLocation =5
objres2.LockType =2
'读取该用户所有模块权限的一级模块
'usercode=session("usercode")
strsql="select 模块编码,模块名称 from XT_VP_ModuleUserRole where 用户编码= '"&session("usercode")&"' and len(模块编码)=2"
objres.Open strsql,strconn
dim module1sum '一级模块个数
module1sum=objres.RecordCount
%>
无标题文档<%dim i%>
<%for i=0 to module1sum-1%>
") onmouseout=hide("a<%=i+1%>")><%=objres("模块名称")%> |
<% strsql2="select 模块名称,模块路径 from XT_VP_ModuleUserRole where 用户编码= '002001' and 模块编码 like'"+objres.Fields("模块编码").value+"%' and len(模块编码)<>2"
objres2.Open strsql2,strconn%>
style="position:absolute;display:none;left:<%=i*100+10%>;top:39" onmouseover=show("a<%=i+1%>") onmouseout=hide("a<%=i+1%>")>
<%
objres.movenext
next%>
