ajax+asp判断邮箱地址正确与否-优快云博客

本文介绍了一个使用 JavaScript 和 ASP 实现的简单网页应用，该应用能够实时验证用户输入的电子邮件地址格式是否正确，并通过 AJAX 技术在后台进行校验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

html
===========
<scriptlanguage="javascript">
varxmlHttp;
functionvalideMail(){
varemail=document.getElementById("eMail");
varurl="main.asp?main="+email.value;
if(window.ActiveXObject)
{
xmlHttp=newActiveXObject("Microsoft.XMLHTTP");
}
elseif(window.XMLHttpRequest)
{
xmlHttp=newXMLHttpRequest();
}
xmlHttp.onreadystatechange=callBack;

xmlHttp.open('GET',url,true);
xmlHttp.send(null);

}

functioncallBack(){
if(xmlHttp.readyState==4){//这里如果写成readystate就在FF浏览器不成功
if(xmlHttp.status==200){
document.getElementById("show").innerHTML="友情提示:"+xmlHttp.responseText;
}
}
}
//记得要在ASP页面在最前端+Response.ContentType="text/html"和Response.Charset="gb2312"否则不会显示中文编码
</script>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<formaction=""method="post">
<tableborder="1"width="100%">
<tr>
<tdheight="30">
请输入电子邮件：
<inputtype="test"name="eMail"id="eMail"onKeyUp="valideMail();"onBlur="valideMail();">
<spanid="show"></span>
</td></tr>
<tr>
<tdheight="30">

<spanid="show"></span></td>
</tr>
</table>
</form>
</body>
</html>
main.asp
============
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<%
Response.ContentType="text/html"
Response.Charset="gb2312"

aa=request.QueryString("main")
ifIsValidEmail(aa)then
response.Write"格式正确"
else
response.Write"格式错误"
endif

functionIsValidEmail(email)
dimnames,name,i,c
IsValidEmail=true
names=Split(email,"@")
ifUBound(names)<>1then
IsValidEmail=false
exitfunction
endif
foreachnameinnames
ifLen(name)<=0then
IsValidEmail=false
exitfunction
endif
fori=1toLen(name)
c=Lcase(Mid(name,i,1))
ifInStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0andnotIsNumeric(c)then
IsValidEmail=false
exitfunction
endif
next
ifLeft(name,1)="."orRight(name,1)="."then
IsValidEmail=false
exitfunction
endif
next
ifInStr(names(1),".")<=0then
IsValidEmail=false
exitfunction
endif
i=Len(names(1))-InStrRev(names(1),".")
ifi<>2andi<>3then
IsValidEmail=false
exitfunction
endif
ifInStr(email,"..")>0then
IsValidEmail=false
endif
endfunction
%>