一个判断email合法性的函数[非正则]


<%
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
%>



相关阅读:
使用PHP编写基于Web的文件管理系统
Js智能判断浏览器是关闭还是刷新的代码
在Win2000环境中管理域名服务器
要 ftp 不要 telnet 如何设?
在电影业 Linux仍是大赢家
Oracle存储结构与进程实例
一个安全WEB服务器的安装
SQLServer 批量导入目录文件
巧妙的从Windows进程中判断出病毒和木马的三点突破
1.17 ADO 存取数据库时如何分页显示
Linux系统下内核定时器的用法
网页选项卡TAB设计原则和应用案例教程
jQuery each()方法的使用方法
win2008无线网络"没有正确配置为使用IP协议" 错误解决办法
快速导航

Copyright © 2016 phpStudy |