📄 functionuser.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 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>bzmtv音乐网-错误提示</title>
<link rel=stylesheet href=../images/index.css>
</head>
<body topmargin="111" leftmargin="0">
<div align="center">
<table border="1" cellpadding="15" cellspacing="0" width="60%" bordercolor="RED" bordercolordark="#FFFFFF">
<tr>
<td width="100%" bgcolor="#FFFFFF" height="80" align="center" nowrap>
<SCRIPT language=JavaScript>alert(' 对不起, 本功能只对VIP会员开放! 您尚未登陆或您的VIP资格已经到期！');javascript:top.window.close();</SCRIPT>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -