asp验证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过滤javascript脚本
下一篇: asp新建文本文件并写入内容
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志: