请问验证邮件地址合法性的代码应该怎么样写出呢?最好是加上注释,因为本人是刚学ASP的所以能力有限呀.望赐教.谢谢!

要用javascript脚本的正则表达式做

才接触这个的理解起来有难度

如果看不懂建议下载一个脚本帮助手册看一下

http://www.no1edu.com/download/js.chm

http://www.no1edu.com/download/bvs.chm

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

email = trim(request("email"))

if IsValidEmail(email)=false then

Response.Write"<script Language='javascript'>alert('请输入正确的邮箱!');window.location.reload('reg.asp')</script>"

response.end

end if


上面的方法没有用正则表达式,相对来说代码多一些

if RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$", email)=false then
a=msgbox "您输入的Ｅ－ＭＡＩＬ格式错误！",vbokonly,"错误！"
end if
%>


以上是用正则表达式做的验证

javascript的正则匹配脚本验证Ｅ－ＭＡＩＬ如下
匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

虽然不能一下看得懂,不过非常感谢版主.谢谢!