asp检测邮箱的合法性
来源:互联网 发布:数控网络广播系统 编辑:程序博客网 时间:2024/04/28 02:30
<%
dim email
email=request.form("email")
if IsValidEmail(email) then
if request("action")="退订" then
response.redirect "del_email.asp?email="&email
else
response.redirect "add_email.asp?email="&email
end if
else
'response.write "无效的电子邮件格式,请按“后退”按钮,重填一个有效的Email"
response.write"<SCRIPT language=JavaScript>alert('无效的电子邮件格式,请重填一个有效的Email!');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.
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
- asp检测邮箱的合法性
- 用asp检测email的合法性函数
- 判断邮箱的合法性
- ios 验证邮箱的合法性
- JavaScript验证邮箱的合法性
- 判断邮箱合法性的方法
- 对email合法性的检测
- 时间合法性检测的方法
- 检测密码格式的合法性
- 出栈的合法性检测
- 检测表单输入EMAIL的合法性
- 17_7_20:元素入栈出栈的合法性检测
- PHP验证邮箱合法性
- 检查邮箱合法性
- 邮箱合法性验证
- 不用正则和使用正则验证邮箱的合法性
- iOS判断邮箱合法性的代码实现案例
- iOS开发之判断手机号和邮箱的合法性
- 链表总结
- 一个研究生毕业以后的人生规划[转载]
- 2006年5月灵川两次面试经历
- 奇词妙语
- Heritrix在Windows下的安装,运行
- asp检测邮箱的合法性
- There is no such thing as something for nothing.
- SQL Server 2005高可用性之复制
- 判断文件类型(文件的真正类型,不是根据扩展名判断),通过文件头来判断
- C++中Static的完全解析
- 一个简单的JavaScript类--Tree
- 2007年1月灵川电话面试
- 自己做了個只能輸入數字的TextBox自定義控件
- 发布webservice IIS要设置net 2.0