www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/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()
%>
<html>
<head><title>操作错误!</title></head>
<br>
<br>
<center>
<table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>
<tr>
<td style=font:9pt Verdana>
<center>↓产生错误的可能原因↓<br><br><%=errmsg%>!</center>
</td>
</tr>
</table>
</center>
</body>
</html>
<%
end sub
%>