Only a part of the IP query please follow me inside the sample to finish it yourself!
Demo: 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 ">
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 "/>
<meta name= "Author" content= "Goaler"/>
<meta name= "Keywords" content= "mobile number attribution, Ip,google PR, postcode, identity card, inquiries, promotions, goaler,www.goalercn.com"/>
<meta name= "Description" content= "mobile number attribution, Ip,google PR, postcode, identity card, inquiries, promotions, goaler,www.goalercn.com"/>
<title> frequently used query </title>
<style type= "Text/css" >
<!--
Body {font:14px Tahoma,verdana, "XXFarEastFont-Arial"}
input,object {color: #000000; font:12px Tahoma,verdana, "Song Body";}
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 ("Please enter the full 11-digit mobile number or the first seven digits of mobile phone number");
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 ("Please enter a region name!") ");
Document. Zone2NumberForm.zoneName.focus ();
return false;
}
}
function Checknumber2zoneform ()
{
var szonenumber = document. Number2ZoneForm.zoneNumber.value.Trim ();
if (!) ( /^0\d{2,3}$/.test (Szonenumber))
{
Alert ("Please enter 3-bit or 4-bit area code");
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 ("Please enter 15-digit or 18-digit ID card number");
Document.identityForm.identityNumber.focus ();
return false;
}
}
function Checkidentityupform ()
{
var sidentitynumber = Document.identityUpForm.identityNumber.value.Trim ();
if (!) ( /^\d{15}$/.test (Sidentitynumber))
{
Alert ("Please enter 15-digit ID number");
Document.identityUpForm.identityNumber.focus ();
return false;
}
}
-->
</SCRIPT>
<body>
<%
' ========== please keep the following information ===============
' Author (Author): goaler
' Homepage (homepage): http://www.goalercn.com
'=======================================
On Error Resume Next
Dim Url,poststr,stype,getcontent,i
stype = Trim (Request.QueryString ("Stype"))
%>
<fieldset>
<legend><strong> mobile phone number attribution to the query </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 ()" >
Please enter mobile phone number: <input type= "text" name= "Mobilenumber" value= "<%=MobileNumber%>" onfocus= "select ()"/> < Input type= "Submit" id= "subbtn" value= "Query"/>
Enter the full 11-digit cell phone number or the first seven digits of mobile phone number
</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, "card number" </TD> (. | \ n) *?) </TD> ")
GetType = Regexptext (getcontent, "card type </TD> (. | \ n) *?) </TD> ")
Response.Write ("<UL>")
Response.Write ("<li><strong> mobile phone Number: </strong><font color=" "#008000" "><strong>" & Mobilenumber & "</strong></font></li>")
Response.Write ("<li><strong> number attribution: </strong><font color=" "#008000" "><strong>" & Replace (Getarea, ",", "") & "</strong></font></li>")
Response.Write ("<li><strong> card type: </strong><font color=" "#008000" "><strong>" & Replace (GetType, ",", "") & "</strong></font></li>")
Response.Write ("</UL>")
End IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>google PR Value Query </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 ()" >
Please enter the domain name: www.<input type= "text" name= "domainname" value= "<%=domainName%>"/> <input type= "Submit" value= " Submit "/>
Don't bring 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) obtained <font color= #FB5E3C > (. | \ n) *?) </font> points ")
' Getcontent=replacekey (getcontent, "<font color= #FB5E3C in the evaluation of the full score 10 >| | | | </font> points ")
Dim ARRAYPR
Arraypr=split (GetContent, ",")
Response.Write ("<UL>")
Response.Write ("<li><a href=")
"&domainName&""Target=_blank rel=nofollow>http://" &domainName& "" "target=" "New" "><font color=" ... t;& domainname& "</strong></font></a>Google PageRank value: <font color= "" #FF0000 "" ><strong> "&ARRAYPR (0) &" </strong></font> </li> ")
Response.Write ("<li><a href=")
www. " &domainName& "' Target=_blank rel=nofollow>http://www. ' &domainName& "" "target=" "New" "><font color=" ... uot;&domainname& "</font></strong ></a>Google PageRank value: <font color= "" #FF0000 "" ><strong> "&ARRAYPR (1) &" </strong></font> ")
Response.Write ("</UL>")
End IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong> Region <-> Area code query </strong></legend>
<div>
<div style= "PADDING-LEFT:23PX;MARGIN-BOTTOM:8PX;" >
<%
Dim ZoneName
ZoneName = Trim (Request.Form ("ZoneName"))
%>
<form name= "Zone2numberform" method= "post" action= "Searcher.asp?stype=zone2number" onsubmit= "return Checkzone2numberform () ">
Region <strong>→</strong> Area code: <input type= "text" name= "ZoneName" value= "<%=zoneName%>" onfocus= "se Lect () "/> <input type=" Submit "value=" submitted "/>
</form>
</div>
<%
IF (stype = "Zone2number" and ZoneName <> "") THEN
Dim Getnumber,arraynumber
Poststr = "Area=" & Escape (ZoneName) & "&action=area2zone"
Getcontent=geturl ("http://www.ip138.com/post/search.asp", Poststr)
GetNumber = Regexptext (getcontent, "<tr><td class=tdc2>" (. | \ n) *?) </TD> ")
Response.Write ("<UL>")
IF (getnumber= "") THEN
Response.Write ("<li><strong><font color=" "#FF0000" > did not find records </font></strong></ Li> ")
ELSE
Arraynumber = Split (GetNumber, ",")
IF (IsArray (arraynumber)) THEN
For i=0 to UBOUND (arraynumber)-1
Response.Write ("<li><strong><font color=" "#008000" ">" &replace (Arraynumber (i), ",", "") & "</font></strong></li>")
Next
ELSE
Response.Write ("<li><strong><font color=" "#008000" ">" &replace (GetNumber, ",", "") & "< /font></strong></li> ")
End IF
End IF
Response.Write ("</UL>")
End IF
Dim Zonenumber
Zonenumber = Trim (Request.Form ("Zonenumber"))
%>
<div style= "PADDING-LEFT:23PX;MARGIN-BOTTOM:8PX;" >
<form name= "Number2zoneform" method= "post" action= "Searcher.asp?stype=number2zone" onsubmit= "return Checknumber2zoneform () ">
Area code <strong>→</strong> Region: <input type= "text" name= "Zonenumber" value= "<%=zoneNumber%>" onfocus = "Select ()"/> <input type= "Submit" value= "submitted"/>
</form>
</div>
<%
IF (stype = "Number2zone" and Zonenumber <> "") THEN
Dim Getzone,arrayzone
Poststr = "Action=zone2area&zone=" &zonenumber
Getcontent=geturl ("http://www.ip138.com/post/search.asp", Poststr)
Getzone = Regexptext (getcontent, "<tr><td class=tdc2>" (. | \ n) *?) </TD> ")
Response.Write ("<UL>")
IF (getzone= "") THEN
Response.Write ("<li><strong><font color=" "#FF0000" > did not find records </font></strong></ Li> ")
ELSE
Arrayzone = Split (Getzone, ",")
IF (IsArray (arrayzone)) THEN
For i=0 to UBOUND (arrayzone)-1
Response.Write ("<li><strong><font color=" "#008000" ">" &replace (Arrayzone (i), ",", "") & " </font></strong></li> ")
Next
ELSE
Response.Write ("<li><strong><font color=" "#008000" ">" &replace (Getzone, ",", "") & "</ Font></strong></li> ")
End IF
End IF
Response.Write ("</UL>")
End IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>ip Location Search </strong></legend>
<div>
<div style= "PADDING-LEFT:23PX;MARGIN-BOTTOM:8PX;" >
<form name= "Ipform" method= "post" action= "Searcher.asp?stype=ip" onsubmit= "return Checkipform ()" >
IP address to query: <input type= "text" Name= "IPAddress" value= "<%=ipAddress%>"/> <input type= "Submit" value= "submitted" />
</form>
</div>
</div>
</fieldset>
<fieldset>
<legend><strong> ID Number Enquiry </strong></legend>
<div>
<%
Dim Identitynumber
Identitynumber = Trim (Request.Form ("Identitynumber"))
%>
<div style= "PADDING-LEFT:23PX;MARGIN-BOTTOM:8PX;" >
<form name= "Identityform" method= "post" action= "searcher.asp?stype=identity" onsubmit= "Return CheckIdentityForm ( ) ">
15 or 18-bit ID number: <input type= "text" name= "Identitynumber" value= "<%=identityNumber%>"/> <input type= " Submit "Value="/>
</form>
</div>
<%
IF (stype = "Identity" and Identitynumber<> "") THEN
Dim Arrayidcardinfo
Poststr = "Action=idcard&userid=" &identitynumber
Getcontent=geturl ("http://www.oicq88.com/idsearch/index.asp", Poststr)
Getcontent=regexptext (getcontent, ":</font>" (. | \ n) *?) <BR> ")
Response.Write ("<UL>")
IF (getcontent= "") THEN
Response.Write ("<li> ID number error or no query to relevant data </li>")
ELSE
Arrayidcardinfo = Split (GetContent, ",")
Response.Write ("<li><strong> Sex: </strong><font color=" "#008000" "><strong>" & Replace (arrayidcardinfo (0), ",", "") & "</strong></font></li>")
Response.Write ("<li><strong> Date of birth: </strong><font color=" "#008000" "><strong>" & Replace (Arrayidcardinfo (1), ",", "") & "</strong></font></li>")
Response.Write ("<li><strong> license area: </strong><font color=" "#008000" "><strong>" & Replace (Arrayidcardinfo (2), ",", "") & "</strong></font></li>")
End IF
Response.Write ("</UL>")
End IF
%>
<div style= "PADDING-LEFT:23PX;MARGIN-BOTTOM:8PX;" >
<form name= "Identityupform" method= "post" action= "searcher.asp?stype=upidentity" onsubmit= "return Checkidentityupform () ">
15 digits to 18 digits: <input type= "text" name= "Identitynumber" value= "<%=identityNumber%>"/> <input type= " Submit "Value="/>
</form>
</div>
<%
IF (stype = "upidentity" and Identitynumber<> "") THEN
Poststr = "Action=upto18&userid=" &identitynumber
Getcontent=geturl ("http://www.oicq88.com/idsearch/index.asp", Poststr)
Getcontent=regexptext (GetContent, "the number after the promotion": (. | \ n) *?) </TD> ")
Response.Write ("<UL>")
IF (getcontent= "") THEN
Response.Write ("<li> ID number error or no query to relevant data </li>")
ELSE
Response.Write ("<li><strong> + 18 digits") After the number is: </strong><font color= "" #008000 "" ><strong> "&replace (GetContent,", "," ") &" </strong></font></li> ")
End IF
Response.Write ("</UL>")
End IF
%>
</div>
</fieldset>
<div style= "Padding:15px;text-align:center;" >
Designed by <a href= "goaler ' Target=_blank rel=nofollow>http://www.goalercn.com ' target= ' ... R</a><br/>
</div>
</body>
<%
Function Bytetostr (vIn)
Dim Strreturn,i,thischarcode,innercode,hight8,low8,nextcharcode
Strreturn = ""
For i = 1 to LenB (vIn)
Thischarcode = AscB (MidB (vin,i,1))
If Thischarcode < &h80 Then
Strreturn = Strreturn & Chr (Thischarcode)
Else
Nextcharcode = AscB (MidB (vin,i+1,1))
Strreturn = Strreturn & Chr (CLng (thischarcode) * &h100 + CInt (nextcharcode))
i = i + 1
End If
Next
Bytetostr = Strreturn
End Function
Function GetURL (URL,POSTSTR)
Set retrieval = Server.CreateObject ("Microsoft.XMLHTTP")
With retrieval
. Open "POST", url, False, "", ""
. setRequestHeader "Content-type", "application/x-www-form-urlencoded"
. Send (POSTSTR)
GetURL =. Responsebody
End With
Set retrieval = Nothing
Geturl=bytetostr (GetURL)
End Function
Function Regexptext (STRNG,REGSTR)
Dim Regex,match,matches,retstr
Set regEx = New RegExp
Regex.pattern = Regstr
Regex.ignorecase = True
Regex.global = True
Set matches = Regex.execute (strng)
For the Match in matches
Retstr = retstr & Regex.Replace (Match.value, "$") & ","
Next
Regexptext = Retstr
Set regex=nothing
End Function
%>
