📄 webadmin.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="../inc/const.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</head>
<body leftmargin=3 marginwidth=3>
<div align="center">
<table border=0 cellpadding=3 cellspacing=1 bgcolor=#0047b0 width="100%">
<tr bgcolor=#ffffff><td colspan=2>
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
'analyse user rights
dim UserRights
Set Rs= server.createobject ("adodb.recordset")
Rs.open "select * from tblUser where ID="& LoginID , Conn
UserRights = trim(Rs("Rights")&"")
Rs.close
set Rs=nothing
'show all the rights
response.write "<b> "& GetUserName(Session("LoginID")) &" </b></td></tr>"
response.write "<tr bgcolor=#ffffff><td>"
response.write "<table border=0 width=""100%"" cellpadding=1 cellspacing=0>"
Set Rs= server.createobject ("adodb.recordset")
Rs.open "select * from tblRights order by ID", Conn, 1, 1
dim rightkey
if not rs.eof then
while not Rs.eof
rightkey = trim(Rs("Rkey"))
if instr(userRights,rightkey)>=1 then
response.write "<tr><td><img src=""../Images/List.gif"" width=14 height=14></td><td><a target=""FrmRight"" href="&trim(Rs("FileName"))&">"&trim(Rs("Title"))&"</a></td></tr>"
end if
Rs.movenext
wend
else
response.write "对不起，您没有任何维护的权限，请和系统管理员联系！<BR>"
end if
Rs.close
set Rs=nothing
response.write "<tr><td><img src=""../Images/List.gif"" width=14 height=14></td><td><a target=""FrmRight"" href=""../Manage/UpdatePwd.asp"">修改用户口令</a></td></tr>"
response.write "</table>"
%>
</td></tr>
</table>
</div>
</body>
</html>
<!-- #include file="../inc/connclose.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -