📄 check.asp
字号:
<%
RandNum=Session("CheckCode")
Tyi86ManageSession = "20041006213"&RandNum '不能改动
Tyi86ManageAdminID = "Tyi86ManageAdminID"&RandNum '不能改动
Tyi86ManageUser = "Tyi86ManageUser"&RandNum '不能改动
Tyi86ManageKey = "Tyi86ManageKey"&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(Tyi86ManageSession)<>true then response.redirect "Admin_Login.asp"
end function
'---------------------检查中级管理员-------------------------------
function CheckAdmin2
if Session(Tyi86ManageSession)<>true then response.redirect "Admin_Login.asp"
if Session(Tyi86ManageSession)<>true or (session(Tyi86ManageKey)<>"check" and session(Tyi86ManageKey)<>"super") then response.redirect "Admin_Default.asp?err=你的权限的够!!"
end function
'---------------------检查高级级管理员-------------------------------
function CheckAdmin3
if Session(Tyi86ManageSession)<>true then response.redirect "Admin_Login.asp"
if Session(Tyi86ManageSession)<>true or session(Tyi86ManageKey)<>"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 + -