📄 check.asp
字号:
<%
RandNum=Session("CheckCode")
xbqqManageSession = "20051006213"&RandNum '不能改动
xbqqManageAdminID = "xbqqManageAdminID"&RandNum '不能改动
xbqqManageUser = "xbqqManageUser"&RandNum '不能改动
xbqqManageKey = "xbqqManageKey"&RandNum '不能改动
'---------------------检查用户名密码-------------------------------
function Checkin(s)
s=trim(s)
s=replace(s," ","&nbsp;")
s=replace(s,"'","&#39;")
s=replace(s,"""","&quot;")
s=replace(s,"<","&lt;")
s=replace(s,">","&gt;")
Checkin=s
end function
'---------------------检查初级管理员-------------------------------
function CheckAdmin1
if Session(xbqqManageSession)<>true then response.redirect "error.htm"
end function
'---------------------检查中级管理员-------------------------------
function CheckAdmin2
if Session(xbqqManageSession)<>true then response.redirect "error.htm"
if Session(xbqqManageSession)<>true or (session(xbqqManageKey)<>"check" and session(xbqqManageKey)<>"super") then response.redirect "Admin_Default.asp?err=你的权限的不够！！"
end function
'---------------------检查高级级管理员-------------------------------
function CheckAdmin3
if Session(xbqqManageSession)<>true then response.redirect "error.htm"
if Session(xbqqManageSession)<>true or session(xbqqManageKey)<>"super" then response.redirect "Admin_Default.asp?err=你的权限的不够！！"
end function
'---------------------错误输出-------------------------------
sub error()
%>
<html>
<head>
<title>西部商务网站管理系统 - 管理员级别检测</title>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<body>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF" height="80" align="center"> <b><font color="#FF0000">Error！</font>
<%=errmsg%>！ <font color="#FF0000"> :(</font></b>
<p><b><a href="javascript:history.go(-1)">...::: 点 此 返 回
:::...</a></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<% End sub %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -