繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 一个判断email合法性的函数[非正则]
- Javascript
- JQuery 学习笔记 选择器之四
- JQuery 学习笔记 选择器之五
- JQuery 学习笔记 选择器之六
- JQuery CSS样式控制 学习笔记
- 用js模仿word格式刷功能实现代码 [推荐]
- 运用jquery实现table单双行不同显示并能单行选中
- jqPlot jquery的页面图表绘制工具
- jquery tools之tabs 选项卡/页签
- jquery tools之tooltip
- 浅析Javascript原型继承 推荐
- JQuery UI皮肤定制
- 实现lightBox时的样式与行为分离减少JS
- JQuery 表格操作(交替显示、拖动表格行、选择行等)
- javascript 进度条 实现代码
- Javascript this指针
- jquery imgareaselect 使用利用js与程序结合实现图片剪切
- javascript 写的一个简单的timer
- javascript 处理HTML元素必须避免使用的一种方法
- Javascript 验证上传图片大小[客户端]
- jQuery 隔行换色 支持键盘上下键，按Enter选定值
Javascript 中的 一个判断email合法性的函数[非正则]
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 470 ::
收藏到网摘: n/a
没用到正则，看起来这个函数的准确度还是比较高的。
<%
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
%>
评论 (0) All
