Ich habe nur einen Teil davon durchgeführt. Bitte befolgen Sie das von mir bereitgestellte Beispiel, um die IP-Abfrage selbst durchzuführen!
Demo: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html>
<Kopf>
<meta http-equiv=Content-Type content=text/html;
<META NAME=Autor CONTENT=Goaler />
<META NAME=Keywords CONTENT=Standort der Mobiltelefonnummer, IP, Google PR, Postleitzahl, Personalausweis, Abfrage, Upgrade, Torwart, www.goalercn.com />
<META NAME=Beschreibung CONTENT=Standort der Mobiltelefonnummer, IP, Google PR, Postleitzahl, Personalausweis, Abfrage, Upgrade, Torwart, www.goalercn.com />
<title>Häufige Abfragen</title>
<style type=text/css>
<!--
Körper {font:14px Tahoma,Verdana,宋体}
Eingabe,Objekt {Farbe: #000000;Schriftart: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, );
}
Funktion checkMobile(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){
Benachrichtigung (bitte geben Sie die vollständige 11-stellige Mobiltelefonnummer oder die ersten sieben Ziffern der Mobiltelefonnummer ein);
document.mobileForm.MobileNumber.focus();
return false;
}
}
Funktion checkPR()
{
if (document.prForm.domainName.value.Trim() == )
{
return false;
}
}
Funktion checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == )
{
Warnung (bitte geben Sie den Namen der Region ein!);
document.Zone2NumberForm.zoneName.focus();
return false;
}
}
Funktion checkNumber2ZoneForm()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
Alarm (bitte geben Sie eine drei- oder vierstellige Vorwahl ein);
document.Number2ZoneForm.zoneNumber.focus();
return false;
}
}
Funktion checkIdentityForm()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
Alarm (bitte geben Sie die 15-stellige oder 18-stellige ID-Nummer ein);
document.identityForm.identityNumber.focus();
return false;
}
}
Funktion checkIdentityUpForm()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^/d{15}$/.test(sIdentityNumber)))
{
Alarm (bitte geben Sie die 15-stellige ID-Nummer ein);
document.identityUpForm.identityNumber.focus();
return false;
}
}
//-->
</SCRIPT>
</head>
<Körper>
<%
'==========Bitte bewahren Sie die folgenden Informationen auf================
'Autor: Torwart
'Homepage: http://www.goalercn.com
'=======================================
Bei Fehler als nächstes fortfahren
URL,PostStr,sType,getContent,i dimmen
sType = Trim(Request.QueryString(sType))
%>
<fieldset>
<legend><strong>Standortabfrage der Mobiltelefonnummer</strong></legend>
<div>
<%
DimMobileNumber
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()>
Bitte geben Sie das Mobiltelefonnummernsegment ein: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>
Geben Sie die vollständige 11-stellige Mobiltelefonnummer oder die ersten sieben Ziffern der Mobiltelefonnummer ein
</form>
</div>
<%
IF(sType = mobile AND MobileNumber<>)DANN
Dimmen Sie getArea, getType
PostStr = action=mobile&mobile=&MobileNumber
getContent=GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = RegExpText(getContent, Speicherort der Kartennummer</TD>((.|/n)*?)</TD>)
getType = RegExpText(getContent,card type</TD>((.|/n)*?)</TD>)
Response.Write(<UL>)
Response.Write(<li><strong>Segment der Mobiltelefonnummer: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)
Response.Write(<li><strong>Nummernposition: </strong><font color=#008000><strong> & Replacement(getArea,,,) & </strong></font></li>)
Response.Write(<li><strong>Kartentyp: </strong><font color=#008000><strong> & Replacement(getType,,,) & </strong></font></li>)
Response.Write(</UL>)
ENDE WENN
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR-Wertabfrage</strong></legend>
<div>
<%
Domänennamen abblenden
domainName = Replacement(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()>
Bitte geben Sie den Domänennamen ein: www.<input type=text name=domainName value=<%=domainName%> /> <input type=submit value=submit/>
Bringen Sie nicht http://www mit.
</form>
</div>
<%
IF(sType = pr AND domainName<>)THEN
PostStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &domainName,PostStr)
getContent=RegExpText(getContent, get <font color=#FB5E3C>((.|/n)*?)</font> Punkte von 10 Punkten)
'getContent=ReplaceKey(getContent, get <font color=#FB5E3C>|||||</font> Punkte von 10 Punkten)
DimArrayPr
ArrayPr=Split(getContent,,)
Response.Write(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;Google PageRank-Wert von &domainName&</strong></font></a>: <Schriftfarbe =#FF0000><strong>&ArrayPr(0)&</strong></font></li>)
Response.Write(<li><a href=http://www.&domainName& target=new><font color= ... uot;&domainName&</font></strong></a>s Google PageRank-Wert: <font color=#FF0000><strong>&ArrayPr(1)&</strong></font>)
Response.Write(</UL>)
ENDE WENN
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Region<->Vorwahlabfrage</strong></legend>
<div>
<div style=padding-left:23px;margin-bottom:8px;>
<%
Zonenname dimmen
zoneName = Trim(Request.Form(zoneName))
%>
<form name=Zone2NumberForm method=post action=searcher.asp?sType=zone2number onsubmit=return checkZone2NumberForm()>
Region<strong>→</strong> Ortsvorwahl: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>
</form>
</div>
<%
IF(sType = zone2number AND zoneName <> )DANN
Dimmen Sie 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>)
WENN(getNumber=)DANN
Response.Write(<li><strong><font color=#FF0000>Kein Datensatz gefunden</font></strong></li>)
ANDERS
ArrayNumber = split(getNumber,,)
IF(isArray(ArrayNumber))THEN
Für i=0 TO UBOUND(ArrayNumber)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
Nächste
ANDERS
Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
ENDE WENN
ENDE WENN
Response.Write(</UL>)
ENDE WENN
Dimmzonennummer
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()>
Vorwahl<strong>→</strong> Region: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>
</form>
</div>
<%
IF(sType = number2zone AND zoneNumber <> )THEN
Dimmen Sie 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>)
WENN(getZone=)DANN
Response.Write(<li><strong><font color=#FF0000>Kein Datensatz gefunden</font></strong></li>)
ANDERS
ArrayZone = split(getZone,,)
WENN(isArray(ArrayZone))DANN
Für i=0 TO UBOUND(ArrayZone)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
Nächste
ANDERS
Response.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
ENDE WENN
ENDE WENN
Response.Write(</UL>)
ENDE WENN
%>
</div>
</fieldset>
<fieldset>
<legend><strong>IP-Standortabfrage</strong></legend>
<div>
<div style=padding-left:23px;margin-bottom:8px;>
<form name=ipForm method=post action=searcher.asp?sType=ip onsubmit=return checkIPForm()>
Die abzufragende IP-Adresse: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>
</form>
</div>
</div>
</fieldset>
<fieldset>
<legend><strong>ID-Nummer-Abfrage</strong></legend>
<div>
<%
Identitätsnummer dimmen
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- oder 18-stellige ID-Nummer: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</form>
</div>
<%
WENN(sType = Identität UND Identitätsnummer<>)DANN
Dimmen Sie 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>)
WENN(getContent=)DANN
Response.Write(<li>Die ID-Nummer ist falsch oder es wurden keine relevanten Daten gefunden</li>)
ANDERS
ArrayIDCardInfo = split(getContent,,)
Response.Write(<li><strong>Gender:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)
Response.Write(<li><strong>Geburtsdatum:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )
Response.Write(<li><strong>Ausgabebereich:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )
ENDE WENN
Response.Write(</UL>)
ENDE WENN
%>
<div style=padding-left:23px;margin-bottom:8px;>
<form name=identityUpForm method=post action=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>
Die 15-stellige Zahl wird auf 18 Stellen erhöht: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</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, die Zahl nach der Heraufstufung: ((.|/n)*?)</TD>)
Response.Write(<UL>)
WENN(getContent=)DANN
Response.Write(<li>Die ID-Nummer ist falsch oder es wurden keine relevanten Daten gefunden</li>)
ANDERS
Response.Write(<li><strong>Die Zahl nach der Heraufstufung (18 Ziffern) ist:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)
ENDE WENN
Response.Write(</UL>)
ENDE WENN
%>
</div>
</fieldset>
<div style=padding:15px;text-align:center;>
ENTWICKELT VON <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</body>
</html>
<%
Funktion ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn =
Für i = 1 Zu LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Wenn ThisCharCode < &H80 Dann
strReturn = strReturn & Chr(ThisCharCode)
Anders
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ich = ich + 1
Ende wenn
Nächste
ByteToStr = strReturn
Funktion beenden
Funktion GetURL(url,PostStr)
Set Retrieval = Server.CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Öffnen Sie POST, URL, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.Send(PostStr)
GetURL = .ResponseBody
Ende mit
Abruf festlegen = Nichts
GetURL=ByteToStr(GetURL)
Funktion beenden
Funktion RegExpText(strng,regStr)
Dimmen Sie regEx,Match,Matches,RetStr
Setze regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
Für jedes Spiel in Spielen
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Nächste
RegExpText = RetStr
setze regEx=nichts
Funktion beenden
%>