以下为判断email输入是否正确的函数,应该可能满足要求。
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 '如果后缀的主域名不是两位或三位,如.com,.net
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then '如果出现边续两个..
IsValidEmail = false
end if
解决方案 »
- Lucene实现定制排序时,CPU占用率高的问题
- 前台删除数据时 jsp中的 id 传不到后台 struts2 后台取得的值为null
- 大家有没有玩过roller,我部署的时候发现异常
- 高手帮忙看下代码哪错了,怎么出不来
- 请教:JSP页面定义一个按钮function,onclick时如何让服务器运行这个function
- 请问如何给servlet提交和获取返回值?
- sdfh
- javascript中写数据到csv文件
- 关于一个登录验证的问题
- 遇到问题了!!!!Need帮助!
- 让SUN开发JSP for IIS 和 JSP for apache 的插件,同意者来签名吧,等满一万人我就把这个帖子交到SUN去。
- 有关jsp上传服务器的问题,请教各位高手(一定给分!!!!!!!!)
你说用户会接受那个?
我自己已经搞定了,呵呵,谢谢各位. 因为我是为日方的i-mode手机做开发,所以不能用任何脚本,呵呵,所有的任务都要置于服务器端.
其实也就是判断一个@和.号两个符号是否存在。