繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 一个判断email合法性的函数[非正则]
- Javascript
- javascript实现的动态添加表单元素input,button等(appendChild)
- javascript动态添加单元格的脚本代码
- [原创]仿google adsense颜色选择器代码，从中易广告联盟程序提取
- asp javascript 实现关闭窗口时保存数据的办法
- javascript 下拉框显示当前日期
- 惊云JS随机排序程序随机显示信息-每次新闻显示顺序都不一样
- javascript下有关dom以及xml节点访问兼容问题
- js 复制功能 支持 for IE/FireFox/mozilla/ns
- css图片自适应大小
- 比较简单的一个符合web标准的JS调用flash方法
- javascript数组组合成字符串的脚本
- XRegExp 0.2: Now With Named Capture
- jQuery 研究心得 取得属性的值
- 防止网站内容被拷贝的一些方法与优缺点好处与坏处分析
- Prototype1.6 JS 官方下载地址
- jquery 指南/入门基础
- jquery api参考 visualjquery 中国线路 速度快
- js控制fieldset高度的代码
- document.documentElement && document.documentElement.scrollTop
- js同时按下两个方向键
Javascript 中的 一个判断email合法性的函数[非正则]
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 381 ::
收藏到网摘: 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
