- ·上一篇文章:ASP中使用AspJpeg组件创建图片缩略图的方法
- ·下一篇文章:基于WEB的QQ的实现方法
ASP中判断输入的Email是否正确
我们在编写一些用户注册程序时,经常需要验证用户输入的Email是否正确,本文就给出一个源代码。
判断的基本原理是:
一个Email地址分为两部分,这两部分以@分开,@前面是用户的邮件用户名,@后面是Email的域名。因此,判断函数一开始就将输入就的email以@分为两部分,如果以@分完后,多于或少于两部分都为不正确的邮件。然后,判断函数判断输入的两部分内容是否为英文字母、数字、点(.)、减号(-)和下划线(_),如果包含其它字符,就是非法地址。然后判断域名是否包含“.”,以及“.”后面的字符是否为2位或3位,等等。
'判断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
ASP中判断输入的Email是否正确