📄 usermenu.asp
字号:
<!--#include file="inc/conn.asp"-->
<%
if session("username")="" then
session("mesg")="请先登录"
Response.Redirect "result.asp"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&session("username")&"'"
rs.open sql,conn,1,1
if rs.eof then
session("mesg")="该用户不存在"
Response.Redirect "result.asp"
end if
group=rs("menu")
set rsg = conn.execute ("select * from usergroup where GroupCode='"&group&"' ")
grouName = rsg("GroupName")
rsg.close
set rsg = nothing
menu = ","
set rst = conn.execute("select * from usergroupFun where groupcode='"&group&"'")
do while not rst.eof
menu = menu & rst("funcode") & ","
rst.movenext
loop
rst.close
set rsc=server.createobject("adodb.recordset")
sql="select * from menuclass order by listID"
rsc.open sql,conn,1,1
set rsm=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>域名主机在线服务系统</title>
<link rel='stylesheet' type='text/css' href='inc/css.css'>
</head>
<body bgcolor='#FFFFFF' text='#000000' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>
<SCRIPT language=JavaScript>var www_url = "images/";</SCRIPT>
<SCRIPT language=JavaScript
src="inc/Menufunction.js"></SCRIPT>
<table width='100%' border='0' cellspacing='0' cellpadding='0' bgcolor='#efefef' height='100%'>
<tr>
<td height="50">
<table width='90%' border='0' cellspacing='0' cellpadding='6' align='center' class='color01'>
<tr>
<td valign='top' class='color01'> 用户:<font color='#FF0000'><%=session("username")%></font><br>
身份:<font color='#FF0000'><%=grouName%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor='D2D2D2' height='1'></td>
</tr>
<%if session ("MENUSTYLE") = "1" then%>
<TR>
<TD width=146>
<br><IMG height=16
src="images/admin_home.gif" width=16
align=absMiddle border=0> <font color="#ff0000"><b>域名注册系统</b></font></TD></TR>
<%end if%>
<!--用户菜单-->
<%
i = 0
do while not rsc.eof
i = i + 1
flag=false
LastMenuID = ""
sql="select * from menu where class='"&rsc("ID")&"' and status<>'0' order by listID"
rsm.open sql,conn,1,1
do while not rsm.eof
if instr(menu,","&rsm("ID")&",") then
flag=true
LastMenuID=rsm("ID")
'exit do
end if
rsm.movenext
loop
rsm.close
rsm.open sql,conn,1,1
if flag=true then
if session ("MENUSTYLE") = "1" then
%>
<!-- 虚拟主机 菜单 开始 -->
<TR>
<TD width=146>
<DIV class=parent id=el<%=i%>Parent><A class=item
onclick="expandIt('el<%=i%>'); return false;"
><IMG id=el<%=i%>Img
height=22 src="images/midclosedfolder.gif"
width=16 align=absMiddle border=0 name=imEx></A><A
class=item onclick="expandIt('el<%=i%>'); return false;"
href=""><IMG height=16
src="<%if rsc("image") = "" then response.write "images/icon_setting.gif" else response.write "images/" &rsc("image") end if %>" width=16
align=absMiddle border=0></A> <A class=item title=<%=rsc("class")%>
onclick="expandIt('el<%=i%>'); return false;" href=""><%=rsc("class")%></A>
</DIV></TD></TR>
<TR>
<TD>
<DIV class=child id=el<%=i%>Child>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%do while not rsm.eof
if instr(menu,","&rsm("ID")&",") then%>
<TR>
<TD width=26><IMG height=22
src="images/vertline.gif" width=16
border=0></TD>
<TD align=left ><IMG height=22
src="<% if LastMenuID <> rsm("ID") then response.write "images/midnodeline.gif" else response.write "images/lastnodeline.gif" end if%>"
width=16 align=absMiddle border=0><IMG height=16
src="images/icon_fd.gif" width=16
align=absMiddle border=0> <A title=<%=rsm("menu")%> href="<%=rsm("URL")%>" target='main'><%=rsm("menu")%></A></TD></TR>
<% end if
rsm.movenext
loop%>
</TBODY></TABLE></DIV></TD></TR>
<!-- 虚拟主机 菜单 结束 -->
<%else%>
<tr>
<td>
<table width='80%' border='0' cellspacing='0' cellpadding='6' align='center'>
<tr>
<td valign='top'><!--<img src='<%=rsc("image")%>' width='61' height='21'>-->
<%=rsc("class")%><br>
<%do while not rsm.eof
if instr(menu,","&rsm("ID")&",") then%>
<a href='<%=rsm("URL")%>' <%if rsm("menu")<>"退出系统" then %>target='main' <%else%>target='_top'<%end if%>><%=rsm("menu")%></a><br>
<% end if
rsm.movenext
loop%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor='D2D2D2' height='1'></td>
</tr>
<%
end if
end if
rsm.close
rsc.movenext
loop
if session ("MENUSTYLE") = "1" then
%>
<TR>
<TD width=146><IMG height=22
src="images/midnodeline.gif" width=16
align=absMiddle border=0><IMG height=16
src="images/admin_home.gif" width=16
align=absMiddle border=0> <A title=系统使用说明
href="userself/help.asp" target='main'>系统帮助</A></TD></TR>
<TR>
<TD width=146><IMG height=22
src="images/lastnodeline.gif" width=16
align=absMiddle border=0><IMG height=16
src="images/icon_exit.gif" width=16
align=absMiddle border=0> <A title=退出域名注册管理系统
href="userself/logout.asp" target='_top'>退出系统</A>
</TD></TR>
<% else %>
<tr>
<td>
<table width='80%' border='0' cellspacing='0' cellpadding='6' align='center'>
<tr>
<td valign='top'><!--<img src='' width='61' height='21'>-->
其它<br>
<a href='userself/help.asp' target='main'>系统帮助</a><br>
<a href='userself/logout.asp' target='_top'>退出系统</a><br>
</td>
</tr>
</table>
</td>
</tr>
<%end if%>
<!--用户菜单-->
<tr>
<td height="100%"> </td>
</tr>
</table>
</body> </html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -