ajax+asp判断邮箱地址正确与否

最新推荐文章于 2022-04-07 15:19:53 发布

piperzero

最新推荐文章于 2022-04-07 15:19:53 发布

阅读量1.7k

点赞数

分类专栏： ASP 文章标签： asp ajax email javascript callback html

ASP 专栏收录该内容

176 篇文章 1 订阅

订阅专栏

html
===========
<script language="javascript">
var xmlHttp;
function valideMail() {
  var email = document.getElementById("eMail");
  var url = "main.asp?main="+  email.value;
  if (window.ActiveXObject)
  {
   xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
  }
  else if (window.XMLHttpRequest)
  {
   xmlHttp = new XMLHttpRequest();
  }
  xmlHttp.onreadystatechange = callBack;

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

}

function callBack() {
  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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form action="" method="post">
<table border="1" width="100%">
<tr>
  <td height="30">
请输入电子邮件：
   <input type="test" name="eMail" id="eMail"  onKeyUp="valideMail();" onBlur="valideMail();">
<span id="show"></span>
</td></tr>
<tr>
  <td height="30">

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

aa=request.QueryString("main")
if IsValidEmail(aa) then
response.Write "格式正确"
else
response.Write "格式错误"
end if

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
%>