繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 一个判断email合法性的函数[非正则]
- Javascript
- 推荐js实现商品分类到搜索栏友好提示（人机交互）
- attachEvent的使用方法与传递参数[IE|firefox]
- 用javascript实现鼠标框选
- 一个不错的动感导航菜单
- JavaScript网页制作特殊效果用随机数
- 一段非常好的滑动门[可感应触发或点击触发]兼容IE7 IE6 FireFox Opera
- js实现的的 文字自动''到google search框
- JS值当前DIV的ID值的代码
- 在javascript中，如果删除二维数组中重复的元素
- 一个用js实现的页内搜索代码
- 不用MOUSEMOVE也能滑动啊
- asp 的 分词实现代码
- 更正确的asp冒泡排序
- 用Javscript实现表单复选框的全选功能
- 向fckeditor编辑器插入指定代码的方法
- javascript实现 在光标处插入指定内容
- 如何实现动态删除javascript函数
- javascript父子通信
- JS获取scrollHeight问题想到的标准问题
- 從博客網扣了一個效果出來
Javascript 中的 一个判断email合法性的函数[非正则]
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 405 ::
收藏到网摘: 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
