邮箱地址的过滤

原创 2004年10月19日 13:19:00

<%
'-------------------EMAIL判定-----------------
function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.

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
%>
用vbscript判断email地址的合法性
<%
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^/w+((-/w+)|(/./w+))*/@[A-Za-z0-9]+((/.|-)[A-Za-z0-9]+)*/.[A-Za-z0-9]+$" 'Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(strng) ' Execute search.
if match.count then isemail= true
End Function
%>

解析一个邮箱地址的合法性

目录目录 正则表达式 代码解析一个地址的合法性,在这里我们需要用正则表达式,用正则表达式来匹配给定的邮箱地址的合法性,首先我们来看一下正则表达式的内容:正则表达式代码给出匹配的正则表达式,并给出相应的...
  • DFL_always
  • DFL_always
  • 2015年10月21日 16:55
  • 854

网页爬虫--从网页中获取邮箱地址

/* 网页爬虫(蜘蛛): 获取指定文档或者网页中的邮件地址 使用获取功能,Pattern Matcher */ import java.net.*; import java.i...
  • Java__chuchu
  • Java__chuchu
  • 2012年06月20日 19:02
  • 943

伪造发件人邮件地址

Author:lake2 这篇文章完全没技术含量L记得若干年前第一次看《黑客X档案》的时候,有篇名为《社会工程学破解Email》的文章,就是利用邮件冒充管理员里骗取用户密码。当时真的太菜,居然真的照着...
  • lake2
  • lake2
  • 2006年08月30日 07:48
  • 35574

用正则表达式匹配邮箱地址

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.T...
  • frombegintoend
  • frombegintoend
  • 2013年07月02日 22:04
  • 2911

Java网页爬虫获取邮件地址

java正则表达式网页爬虫
  • hoho_12
  • hoho_12
  • 2016年05月02日 21:44
  • 714

华为OJ:2192 邮箱地址合法性校验

注意输入的字符串里面可能有空格,所以要nextLine()而不是next(),其他一个个验证就好了,@要计算次数,多了少了都不行。 import java.util.Scanner; public c...
  • wwwwwly
  • wwwwwly
  • 2014年07月09日 12:01
  • 1417

用正则表达式提取网页中的邮箱地址

import java.io.BufferedReader;import java.io.FileReader;import java.io.IOException;import java.util....
  • thc1987
  • thc1987
  • 2009年03月29日 15:59
  • 4921

Java - 验证邮箱地址是否符合要求

问题描述: 4、解析一个邮箱地址是否合法,如果合法则打印出用户名部分和该邮箱所属的网站域名 如果邮箱地址不合法则显示不合法的原因 提示:邮箱地址不合法的因素: 1)    邮箱地址中不包含@或。 2...
  • PeersLee
  • PeersLee
  • 2016年04月20日 19:45
  • 2908

邮箱地址

验证电子邮件地址验证Str是否是合法的电子邮件地址Public Function ValidEmail(Str)    Dim StrArray, TempStr, I, TempChar    Va...
  • minghui000
  • minghui000
  • 2005年03月23日 20:32
  • 749

javascript验证邮箱有效性函数

function isEmail(strEmail) { if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za...
  • xinying0424
  • xinying0424
  • 2012年08月07日 15:28
  • 961
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:邮箱地址的过滤
举报原因:
原因补充:

(最多只允许输入30个字)