通过本文主要向大家介绍了xmlhttprequest,xmlhttp,xmlhttprequest对象,xmlhttp.open,xmlhttp.responsetext等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！
演示：http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "' target=_blank rel=nofollow>http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="Author" CONTENT="goaler" />
<META NAME="Keywords" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<META NAME="Description" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<title>常用查询</title>
<style type="text/css">
<!--
body {font:14px Tahoma,Verdana,"宋体"}
input,object {color: #000000;font:12px Tahoma,Verdana,"宋体";}
form {margin:0}
A:link{COLOR:#000066;TEXT-DECORATION:none}
A:visited{COLOR:#000066;TEXT-DECORATION:none}
A:hover{COLOR:#FF8D00;TEXT-DECORATION:underline}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function checkMobile(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
alert("请输入完整的11位手机号或手机号前七位");
document.mobileForm.MobileNumber.focus();
return false;
}
}
function checkPR()
{
if (document.prForm.domainName.value.Trim() == "")
{
return false;
}
}
function checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == "")
{
alert("请输入地区名称！");
document.Zone2NumberForm.zoneName.focus();
return false;
}
}
function checkNumber2ZoneForm()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0\d{2,3}$/.test(sZoneNumber)))
{
alert("请输入3位或4位区号");
document.Number2ZoneForm.zoneNumber.focus();
return false;
}
}
function checkIdentityForm()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^\d{15}$|^\d{18}$|^\d{17}x$/.test(sIdentityNumber)))
{
alert("请输入15位或18位身份证号码");
document.identityForm.identityNumber.focus();
return false;
}
}
function checkIdentityUpForm()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^\d{15}$/.test(sIdentityNumber)))
{
alert("请输入15位身份证号码");
document.identityUpForm.identityNumber.focus();
return false;
}
}
//-->
</SCRIPT>
</head>
<body>
<%
'==========请保留以下信息===============
'作者(Author)：goaler
'主页(homepage)：http://www.goalercn.com
'=======================================
on error resume next
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString("sType"))
%>
<fieldset>
<legend><strong>手机号归属地查询</strong></legend>
<div>
<%
Dim MobileNumber
MobileNumber = Trim(Request.Form("MobileNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form method="post" name="mobileForm" action="searcher.asp?sType=mobile" onsubmit="return checkMobile()">
请输入手机号码段：<input type="text" name="MobileNumber" value="<%=MobileNumber%>" onfocus="select()" /> <input type="submit" id="subBtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
IF(sType = "mobile" AND MobileNumber<>"")THEN
Dim getArea,getType
PostStr = "action=mobile&mobile="&MobileNumber
getContent=GetURL("http://www.ip138.com:8080/search.asp",PostStr)
getArea = RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>")
getType = RegExpText(getContent,"卡 类 型</TD>((.|\n)*?)</TD>")
Response.Write("<UL>")
Response.Write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & MobileNumber & "</strong></font></li>")
Response.Write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & Replace(getArea,",","") & "</strong></font></li>")
Response.Write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & Replace(getType,",","") & "</strong></font></li>")
Response.Write("</UL>")
END IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR 值查询</strong></legend>
<div>
<%
Dim domainName
domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prForm" method="post" action="searcher.asp?sType=pr" onsubmit="return checkPR()">
请输入域名 ：www.<input type="text" name="domainName" value="<%=domainName%>" /> <input type="submit" value="提 交" />
不要带 http://www.
</form>
</div>
<%
IF(sType = "pr" AND domainName<>"")THEN
PostStr = ""
getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr)
getContent=RegExpText(getContent,"在满分10分评价中获得 <font color=#FB5E3C>((.|\n)*?)</font> 分")
'getContent=ReplaceKey(getContent,"在满分10分评价中获得 <font color=#FB5E3C>|||||</font> 分")
Dim ArrayPr
ArrayPr=Split(getContent,",")
Response.Write("<UL>")
Response.Write("<li><a href="""&domainName&" ' target=_blank rel=
演示：http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "' target=_blank rel=nofollow>http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="Author" CONTENT="goaler" />
<META NAME="Keywords" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<META NAME="Description" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<title>常用查询</title>
<style type="text/css">
<!--
body {font:14px Tahoma,Verdana,"宋体"}
input,object {color: #000000;font:12px Tahoma,Verdana,"宋体";}
form {margin:0}
A:link{COLOR:#000066;TEXT-DECORATION:none}
A:visited{COLOR:#000066;TEXT-DECORATION:none}
A:hover{COLOR:#FF8D00;TEXT-DECORATION:underline}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function checkMobile(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
alert("请输入完整的11位手机号或手机号前七位");
document.mobileForm.MobileNumber.focus();
return false;
}
}
function checkPR()
{
if (document.prForm.domainName.value.Trim() == "")
{
return false;
}
}
function checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == "")
{
alert("请输入地区名称！");
document.Zone2NumberForm.zoneName.focus();
return false;
}
}
function checkNumber2ZoneForm()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0\d{2,3}$/.test(sZoneNumber)))
{
alert("请输入3位或4位区号");
document.Number2ZoneForm.zoneNumber.focus();
return false;
}
}
function checkIdentityForm()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^\d{15}$|^\d{18}$|^\d{17}x$/.test(sIdentityNumber)))
{
alert("请输入15位或18位身份证号码");
document.identityForm.identityNumber.focus();
return false;
}
}
function checkIdentityUpForm()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^\d{15}$/.test(sIdentityNumber)))
{
alert("请输入15位身份证号码");
document.identityUpForm.identityNumber.focus();
return false;
}
}
//-->
</SCRIPT>
</head>
<body>
<%
'==========请保留以下信息===============
'作者(Author)：goaler
'主页(homepage)：http://www.goalercn.com
'=======================================
on error resume next
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString("sType"))
%>
<fieldset>
<legend><strong>手机号归属地查询</strong></legend>
<div>
<%
Dim MobileNumber
MobileNumber = Trim(Request.Form("MobileNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form method="post" name="mobileForm" action="searcher.asp?sType=mobile" onsubmit="return checkMobile()">
请输入手机号码段：<input type="text" name="MobileNumber" value="<%=MobileNumber%>" onfocus="select()" /> <input type="submit" id="subBtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
IF(sType = "mobile" AND MobileNumber<>"")THEN
Dim getArea,getType
PostStr = "action=mobile&mobile="&MobileNumber
getContent=GetURL("http://www.ip138.com:8080/search.asp",PostStr)
getArea = RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>")
getType = RegExpText(getContent,"卡 类 型</TD>((.|\n)*?)</TD>")
Response.Write("<UL>")
Response.Write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & MobileNumber & "</strong></font></li>")
Response.Write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & Replace(getArea,",","") & "</strong></font></li>")
Response.Write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & Replace(getType,",","") & "</strong></font></li>")
Response.Write("</UL>")
END IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR 值查询</strong></legend>
<div>
<%
Dim domainName
domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prForm" method="post" action="searcher.asp?sType=pr" onsubmit="return checkPR()">
请输入域名 ：www.<input type="text" name="domainName" value="<%=domainName%>" /> <input type="submit" value="提 交" />
不要带 http://www.
</form>
</div>
<%
IF(sType = "pr" AND domainName<>"")THEN
PostStr = ""
getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr)
getContent=RegExpText(getContent,"在满分10分评价中获得 <font color=#FB5E3C>((.|\n)*?)</font> 分")
'getContent=ReplaceKey(getContent,"在满分10分评价中获得 <font color=#FB5E3C>|||||</font> 分")
Dim ArrayPr
ArrayPr=Split(getContent,",")
Response.Write("<UL>")
Response.Write("<li><a href=""