vbscript一个用于验证邮箱的函数
来源:互联网 发布:淘宝标题在线优化工具 编辑:程序博客网 时间:2024/06/09 23:37
function IsValidEmail(email)
dim names, name, i, c
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
- vbscript一个用于验证邮箱的函数
- 写一个验证邮箱函数
- Vbscript身份证验证函数
- 验证手机及邮箱的封装函数
- 一组python用于验证数据的函数
- php 验证邮箱函数
- 邮箱验证函数
- 一个在vbscript中读取cookie的程序函数
- 一个用于Debug的小函数
- 一个用于处理分隔","的函数tf_split_str
- 一个用于检索拼音的SQL函数
- typedef用于函数定义的一个例子
- 一个用于灰度标定的matlab函数
- VBSCRIPT正则表达式验证用户名函数
- 比较全的一个验证邮箱的正则表达式
- 给NSString扩展一个验证邮箱的功能
- javascript验证邮箱有效性函数
- 关于邮箱的验证
- JSF组件开发指南
- VLAN(2)
- 利用MYSQL的C API编程,如何确定一个数据库/表是否存在???
- sybase日志文件位置 配置文件位置
- 配置Sybase数据库编码方法
- vbscript一个用于验证邮箱的函数
- 如何在.NET里插入flash
- 我上大学,还是大学上我
- Spring IOC 学习笔记(一) IoC和DI概述
- 使用SetWindowLongPtr与GetWindowLongPtr的问题
- System.Net.Sockets 命名空间
- 常用JS代码收集
- Debug和Release简介
- C#上传图片到数据库问题