如何判断电子邮件的地址格式是否正确？

如何判断电子邮件的地址格式是否正确？
我在网站上设置了邮件列表功能，实现用户自动订阅和发送，但很多用户输入和提交的邮件地址格式都是无效的，无法处理。请问如何解决这一问题？
    我们可用下列办法来解决这一问题——但只是能够判断每个电子邮件地址的格式是否有效，并不能保证该地址确实存在。
第一种办法：
<% 
Function IsValidEmail(Email) 
ValidFlag = False 
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then 
atCount = 0 
SpecialFlag = False 
For atLoop = 1 To Len(Email) 
atChr = Mid(Email, atLoop, 1) 
If atChr = "@" Then atCount = atCount + 1 
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True 
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True 
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True 
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True 
Next 
If (atCount = 1) And (SpecialFlag = False) Then 
BadFlag = False 
tAry1 = Split(Email, "@") 
UserName = tAry1(0) 
DomainName = tAry1(1) 
If (UserName = "") Or (DomainName = "") Then BadFlag = True 
If Mid(DomainName, 1, 1) = "." then BadFlag = True 
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True 
ValidFlag = True 
’ 格式正确返回Ture
End If 
End If 
If BadFlag = True Then ValidFlag = False 
’ 格式不正确返回False
IsValidEmail = ValidFlag 
End Function 
%> 

[NextPage]

    第二种办法：
<%
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

• RSS订阅

• 返回WEB编程
  返回到首页

相关新闻>>

最新推荐更多>>>

用ASP+XML打造留

• 动态修改页面的Title, Keywords and Description
• asp 如何做个视频播放网页--像优酷一样
• ASP代码获取网页源代码
• ASP 检测字符串是否包括汉字、数字、韩文、日文，以及其他语种字
• ABAP 中 Table Control例子
• 利用asp:scriptmanager和updatepanel进行异步更新，然后再回调js
• ASP.NET MVC 3程序如何绑定JQuery插件JQgrid

热门新闻进入WEB编程频道>>

ASP

多个域名绑定一个空间互不影响(ASP)

ASP

ASP中数据库调用时常见错误的现象和解决

ASP

asp+sqlserver 分页方法（不用存储过程）

ASP

ASP＋Access的安全隐患及对策

ASP

ASP判断文件地址是否有效!

ASP

ASP提速技巧