html
===========
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"否则不会显示中文编码
请输入电子邮件：
main.asp
============
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
%>