📄 function.asp
字号:
<%
'---------------------检查用户名密码-------------------------------
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("IsAdmin")<>true then response.redirect "admin_login.asp"
end function
'---------------------检查中级管理员-------------------------------
function CheckAdmin2
if Session("IsAdmin")<>true or (session("KEY")<>"check" and session("KEY")<>"super") then response.redirect "admin_login.asp"
end function
'---------------------检查高级级管理员-------------------------------
function CheckAdmin3
if Session("IsAdmin")<>true or session("KEY")<>"super" then response.redirect "admin_login.asp"
end function
'---------------------检查用户Email-------------------------------
function IsValidEmail(email)
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
'---------------------错误输出-------------------------------
sub error()
%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="style.asp"-->
<html>
<head><title>错误信息提示==<%=WebTitle%></title></head>
<body bgcolor="#D5D5D5">
<div align="center">
<table cellpadding=0 cellspacing=0 border=0 width=99% align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=0 border=0 width=100% bgcolor="#D5D5D5" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center">
<td width="100%" bgcolor="#828F9B"><font size="2">错误信息：</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#596671"><b><font size="2">产生错误的可能原因：<br><%=errmsg%></font></td>
</tr>
<tr align="center">
<td width="100%" bgcolor="#828F9B"><a href="default.asp">
<font size="2">返回首页</font></a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</html>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -