Saya hanya melakukan sebagian saja. Silakan ikuti contoh yang saya berikan untuk menyelesaikan sendiri kueri IP!
Demo: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=KODE VBSCRIPT=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html>
<kepala>
<meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312 />
<META NAME=Author CONTENT=goler />
<META NAME=Kata Kunci CONTENT=Lokasi nomor ponsel,ip,google pr,kode pos,kartu identitas,query,upgrade,goaler,www.goalercn.com />
<META NAME=Deskripsi KONTEN=Lokasi nomor ponsel,ip,google pr,kode pos,kartu id,query,upgrade,goaler,www.goalercn.com />
<title>Pertanyaan umum</title>
<tipe gaya=teks/css>
<!--
badan {font:14px Tahoma,Verdana,宋体}
input,objek {color: #000000;font:12px Tahoma,Verdana,宋体;}
bentuk{margin:0}
A:link{COLOR:#000066;TEKS-DEKORASI:tidak ada}
A:dikunjungi{COLOR:#000066;TEKS-DEKORASI:tidak ada}
A:hover{WARNA:#FF8D00;DEKORASI TEKS:garis bawah}
-->
</gaya>
<BAHASA SKRIP=JavaScript>
<!--
String.prototipe.Trim = fungsi()
{
kembalikan ini.ganti(/(^/s*)|(/s*$)/g, );
}
fungsi checkMobile(){
var sMobile = dokumen.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){
peringatan(silakan masukkan 11 digit nomor ponsel secara lengkap atau tujuh digit pertama nomor ponsel);
dokumen.mobileForm.MobileNumber.fokus();
kembali salah;
}
}
pemeriksaan fungsiPR()
{
if (dokumen.prForm.namadomain.nilai.Trim() == )
{
kembali salah;
}
}
fungsi checkZone2NumberForm()
{
jika (dokumen.Zone2NumberForm.zoneName.value.Trim() == )
{
alert(silakan masukkan nama wilayah!);
dokumen.Zone2NumberForm.zoneName.fokus();
kembali salah;
}
}
fungsi checkNumber2ZoneForm()
{
var sZoneNumber = dokumen.Number2ZoneForm.zoneNumber.value.Trim();
jika (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
peringatan (silakan masukkan 3 atau 4 digit kode area);
dokumen.Number2ZoneForm.zoneNumber.focus();
kembali salah;
}
}
fungsi checkIdentityForm()
{
var sIdentityNumber = dokumen.identityForm.identityNumber.value.Trim();
jika (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
alert(silakan masukkan 15 digit atau 18 digit nomor ID);
dokumen.identityForm.identityNumber.focus();
kembali salah;
}
}
fungsi checkIdentityUpForm()
{
var sIdentityNumber = dokumen.identityUpForm.identityNumber.value.Trim();
jika (!(/^/d{15}$/.test(sIdentityNumber)))
{
alert(silakan masukkan 15 digit nomor ID);
dokumen.identityUpForm.identityNumber.focus();
kembali salah;
}
}
//-->
</SKRIP>
</kepala>
<tubuh>
<%
'==========Harap simpan informasi berikut=
'Penulis: penjaga gawang
'Beranda: http://www.goalercn.com
'===========
pada kesalahan lanjutkan berikutnya
Redupkan url,PostStr,sType,getContent,i
sType = Memangkas(Permintaan.QueryString(sType))
%>
<kumpulan bidang>
<legend><strong>Permintaan lokasi nomor ponsel</strong></legend>
<div>
<%
DimMobileNumber
MobileNumber = Pangkas(Permintaan.Formulir(MobileNumber))
%>
<div style=padding-kiri:23px;margin-bottom:8px;>
<metode formulir=nama postingan=mobileForm action=searcher.asp?sType=mobile onsubmit=return checkMobile()>
Silakan masukkan segmen nomor ponsel: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>
Masukkan 11 digit nomor ponsel secara lengkap atau tujuh digit pertama nomor ponsel
</bentuk>
</div>
<%
IF(sType = ponsel DAN Nomor Ponsel<>) MAKA
Redupkan getArea,getType
PostStr = tindakan=ponsel&ponsel=&Nomor Seluler
getContent=GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = RegExpText(getContent, lokasi nomor kartu</TD>((.|/n)*?)</TD>)
getType = RegExpText(getContent,jenis kartu</TD>((.|/n)*?)</TD>)
Respon.Tulis(<UL>)
Response.Write(<li><strong>Segmen nomor ponsel: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)
Response.Write(<li><strong>Lokasi nomor: </strong><font color=#008000><strong> & Ganti(getArea,,,) & </strong></font></li>)
Response.Write(<li><strong>Jenis kartu: </strong><font color=#008000><strong> & Ganti(getType,,,) & </strong></font></li>)
Respon.Tulis(</UL>)
AKHIR JIKA
%>
</div>
</set bidang>
<kumpulan bidang>
<legend><strong>Kueri nilai PR Google</strong></legend>
<div>
<%
Redupkan nama domain
namadomain = Ganti(Ganti(LCASE(Trim(Permintaan.Form(Namadomain))),www.,),http://,)
%>
<div style=padding-kiri:23px;margin-bottom:8px;>
<nama formulir=prForm method=post action=searcher.asp?sType=pr onsubmit=return checkPR()>
Silakan masukkan nama domain: www.<input type=text name=domainName value=<%=domainName%> /> <input type=submit value=submit/>
Jangan membawa http://www.
</bentuk>
</div>
<%
JIKA(sType = pr DAN nama domain<>) MAKA
PostStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &Namadomain,PostStr)
getContent=RegExpText(getContent, dapatkan <font color=#FB5E3C>((.|/n)*?)</font> poin dari 10 poin)
'getContent=ReplaceKey(getContent, dapatkan <font color=#FB5E3C>|||||</font> poin dari 10 poin)
DimArrayPr
ArrayPr=Pisahkan(dapatkan Konten,,)
Respon.Tulis(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;Nilai PageRank Google dari &domainName&</strong></font></a>: <warna font =#FF0000><strong>&ArrayPr(0)&</strong></font></li>)
Response.Write(nilai Google PageRank<li><a href=http://www.&domainName& target=new><font color= ... uot;&domainName&</font></strong></a>: < warna font=#FF0000><strong>&ArrayPr(1)&</strong></font>)
Respon.Tulis(</UL>)
AKHIR JIKA
%>
</div>
</set bidang>
<kumpulan bidang>
<legend><strong>Wilayah<->Kueri Kode Area</strong></legend>
<div>
<div style=padding-kiri:23px;margin-bottom:8px;>
<%
Nama zona redup
zoneName = Pangkas(Permintaan.Formulir(Namazona))
%>
<nama formulir=Metode Zone2NumberForm=tindakan posting=searcher.asp?sType=zone2number onsubmit=kembalikan checkZone2NumberForm()>
Wilayah<strong>→</strong> Kode area: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>
</bentuk>
</div>
<%
JIKA(sType = zone2number DAN zoneName <> ) MAKA
Redupkan 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>)
Respon.Tulis(<UL>)
JIKA(getNumber=)MAKA
Response.Write(<li><strong><font color=#FF0000>Catatan tidak ditemukan</font></strong></li>)
KALAU TIDAK
ArrayNumber = pisah(dapatkanNumber,,)
JIKA(isArray(ArrayNumber))MAKA
Untuk i=0 SAMPAI UBOUND(ArrayNumber)-1
Respon.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
Berikutnya
KALAU TIDAK
Respon.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
AKHIR JIKA
AKHIR JIKA
Respon.Tulis(</UL>)
AKHIR JIKA
Nomor zona redup
zoneNumber = Pangkas(Permintaan.Formulir(zoneNumber))
%>
<div style=padding-kiri:23px;margin-bottom:8px;>
<nama formulir=Metode Number2ZoneForm=tindakan posting=searcher.asp?sType=number2zone onsubmit=kembalikan checkNumber2ZoneForm()>
Kode area<strong>→</strong> Wilayah: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>
</bentuk>
</div>
<%
JIKA(sType = number2zone DAN zoneNumber <> ) MAKA
Redupkan getZone,ArrayZone
PostStr = tindakan=zona2area&zona=&nomor zona
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getZone = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Respon.Tulis(<UL>)
JIKA(getZone=) MAKA
Response.Write(<li><strong><font color=#FF0000>Catatan tidak ditemukan</font></strong></li>)
KALAU TIDAK
ArrayZone = terbagi(getZone,,)
JIKA(isArray(ArrayZone))MAKA
Untuk i=0 SAMPAI UBOUND(ArrayZone)-1
Respon.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
Berikutnya
KALAU TIDAK
Respon.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
AKHIR JIKA
AKHIR JIKA
Respon.Tulis(</UL>)
AKHIR JIKA
%>
</div>
</set bidang>
<kumpulan bidang>
<legend><strong>Kueri lokasi IP</strong></legend>
<div>
<div style=padding-kiri:23px;margin-bottom:8px;>
<nama formulir=metode ipForm=tindakan posting=searcher.asp?sType=ip onsubmit=kembalikan checkIPForm()>
Alamat IP yang ingin ditanyakan: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>
</bentuk>
</div>
</div>
</set bidang>
<kumpulan bidang>
<legend><strong>Permintaan nomor ID</strong></legend>
<div>
<%
Redupkan Nomor Identitas
IdentityNumber = Pangkas(Permintaan.Formulir(IDNumber))
%>
<div style=padding-kiri:23px;margin-bottom:8px;>
<nama formulir=metode identitasForm=tindakan posting=searcher.asp?sType=identitas onsubmit=kembalikan checkIdentityForm()>
Nomor ID 15 atau 18 digit: <tipe input=nama teks=nilaiNomoridentitas=<%=Nomoridentitas%> /> <tipe input=kirim nilai=kirim/>
</bentuk>
</div>
<%
IF(sType = identitas DAN IdentityNumber<>)THEN
Redupkan ArrayIDCardInfo
PostStr = action=idcard&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)
Respon.Tulis(<UL>)
JIKA(getContent=)MAKA
Response.Write(<li>Nomor ID salah atau tidak ditemukan data relevan</li>)
KALAU TIDAK
ArrayIDCardInfo = membagi(getContent,,)
Response.Write(<li><strong>Jenis Kelamin:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)
Response.Write(<li><strong>Tanggal lahir:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )
Response.Write(<li><strong>Area penerbitan:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )
AKHIR JIKA
Respon.Tulis(</UL>)
AKHIR JIKA
%>
<div style=padding-kiri:23px;margin-bottom:8px;>
<nama formulir=metode identitasUpForm=tindakan posting=searcher.asp?sType=upIdentity onsubmit=kembalikan checkIdentityUpForm()>
Angka 15 digit bertambah menjadi 18 digit: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</bentuk>
</div>
<%
IF(sType = upIdentity DAN IdentityNumber<>)THEN
PostStr = tindakan=upto18&userid=&nomor identitas
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent, nomor setelah promosi: ((.|/n)*?)</TD>)
Respon.Tulis(<UL>)
JIKA(getContent=)MAKA
Response.Write(<li>Nomor ID salah atau tidak ditemukan data relevan</li>)
KALAU TIDAK
Response.Write(<li><strong>Angka setelah promosi (18 digit) adalah:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)
AKHIR JIKA
Respon.Tulis(</UL>)
AKHIR JIKA
%>
</div>
</set bidang>
<div style=padding:15px;text-align:center;>
DIRANCANG OLEH <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</tubuh>
</html>
<%
Fungsi ByteToStr(vIn)
Redupkan strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strKembali =
Untuk i = 1 Ke LenB(vIn)
KodeKar ini = AscB(MidB(vIn,i,1))
Jika ThisCharCode < &H80 Lalu
strReturn = strReturn & Chr(KodeCharIni)
Kalau tidak
KodeChar Berikutnya = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
saya = saya + 1
Akhiri Jika
Berikutnya
ByteToStr = strKembali
Fungsi Akhir
Fungsi GetURL(url,PostStr)
Setel Pengambilan = Server.CreateObject(Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka POST, url, false , ,
.setRequestHeader Tipe Konten, aplikasi/x-www-form-urlencoded
.Kirim(PostStr)
GetURL = .ResponseBody
Akhiri Dengan
Atur Pengambilan = Tidak Ada
GetURL=ByteToStr(GetURL)
Fungsi Akhir
Fungsi RegExpText(strng,regStr)
Redupkan regEx, Cocokkan, Cocok, RetStr
Setel regEx = RegExp Baru
regEx.Pattern = regStr
regEx.IgnoreCase = Benar
regEx.Global = Benar
Setel Kecocokan = regEx.Execute(strng)
Untuk Setiap Pertandingan dalam Pertandingan
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Berikutnya
RegExpText = RetStr
atur regEx=tidak ada
Fungsi Akhir
%>