ใช้ XMLHTTP เพื่อเก็บข้อมูลฐานข้อมูล IP138

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-03-22 10:32:01

ฉันทำไปเพียงบางส่วนเท่านั้น โปรดทำตามตัวอย่างที่ฉันให้ไว้เพื่อกรอกแบบสอบถาม IP ด้วยตัวเอง!

การสาธิต: http://www.goalercn.com/demo/searcher.asp

<%@LANGUAGE=รหัส VBSCRIPT=936%>

<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>

<html>

<หัว>

<title>ข้อความค้นหาทั่วไป</title>

<ประเภทสไตล์=ข้อความ/css>

body {font:14px Tahoma,Verdana,宋体}

อินพุต,วัตถุ {color: #000000;font:12px Tahoma,Verdana,宋体;}

แบบฟอร์ม {ระยะขอบ:0}

A:link{COLOR:#000066;TEXT-DECORATION:none}

A:visited{COLOR:#000066;TEXT-DECORATION:none}

A:โฮเวอร์{COLOR:#FF8D00;TEXT-DECORATION:underline}

</สไตล์>

<ภาษาสคริปต์=จาวาสคริปต์>

String.prototype.Trim = ฟังก์ชั่น()

กลับ this.replace(/(^/s*)|(/s*$)/g, );

ฟังก์ชั่นตรวจสอบมือถือ () {

var sMobile = document.mobileForm.MobileNumber.value.Trim();

ถ้า(!(/^13[0-9]/d{4,8}$/.test(sMobile))){

การแจ้งเตือน (กรุณากรอกหมายเลขโทรศัพท์มือถือ 11 หลักให้ครบถ้วน หรือหมายเลขโทรศัพท์มือถือ 7 หลักแรก)

document.mobileForm.MobileNumber.focus();

กลับเท็จ;

ฟังก์ชั่นตรวจสอบPR()

ถ้า (document.prForm.domainName.value.Trim() == )

กลับเท็จ;

ฟังก์ชั่น checkZone2NumberForm()

ถ้า (document.Zone2NumberForm.zoneName.value.Trim() == )

alert(กรุณากรอกชื่อภูมิภาค!);

document.Zone2NumberForm.zoneName.focus();

กลับเท็จ;

ฟังก์ชั่นตรวจสอบหมายเลข2ZoneForm()

var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();

ถ้า (!(/^0/d{2,3}$/.test(sZoneNumber)))

การแจ้งเตือน(กรุณากรอกรหัสพื้นที่ 3 หรือ 4 หลัก);

document.Number2ZoneForm.zoneNumber.focus();

กลับเท็จ;

ฟังก์ชั่นตรวจสอบ IdentityForm()

var sIdentityNumber = document.identityForm.identityNumber.value.Trim();

ถ้า (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))

การแจ้งเตือน (กรุณากรอกหมายเลขประจำตัว 15 หลักหรือ 18 หลัก);

document.identityForm.identityNumber.focus();

กลับเท็จ;

ฟังก์ชั่นตรวจสอบ IdentityUpForm()

var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();

ถ้า (!(/^/d{15}$/.test(sIdentityNumber)))

การแจ้งเตือน (กรุณากรอกหมายเลขประจำตัว 15 หลัก);

document.identityUpForm.identityNumber.focus();

กลับเท็จ;

</สคริปต์>

</หัว>

<ร่างกาย>

'==========กรุณาเก็บข้อมูลต่อไปนี้================

'ผู้เขียน: ผู้รักษาประตู

'หน้าแรก: http://www.goalercn.com'

เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป

Dim url,PostStr,sType,getContent,i

sType = Trim (คำขอ QueryString (sType))

<ชุดสนาม>

<legend><strong>การค้นหาตำแหน่งหมายเลขโทรศัพท์มือถือ</strong></legend>

<div>

DimMobileNumber

MobileNumber = Trim (คำขอแบบฟอร์ม (MobileNumber))

โปรดป้อนส่วนของหมายเลขโทรศัพท์มือถือ: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>

กรอกหมายเลขโทรศัพท์มือถือให้ครบถ้วน 11 หลัก หรือหมายเลขโทรศัพท์มือถือ 7 หลักแรก

</แบบฟอร์ม>

</div>

IF(sType = mobile AND MobileNumber<>)แล้ว

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

การตอบสนองเขียน(<UL>)

Response.Write(<li><strong>ส่วนหมายเลขโทรศัพท์มือถือ: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)

Response.Write(<li><strong>ตำแหน่งหมายเลข: </strong><font color=#008000><strong> & แทนที่(getArea,,,) & </strong></font></li>)

Response.Write(<li><strong>ประเภทการ์ด: </strong><font color=#008000><strong> & แทนที่(getType,,,) & </strong></font></li>)

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

</div>

</ฟิลด์เซ็ต>

<ชุดสนาม>

<legend><strong>การค้นหาคุณค่าของ Google PR</strong></legend>

<div>

ชื่อโดเมนสลัว

ชื่อโดเมน = แทนที่ (แทนที่ (LCASE (ตัดแต่ง (คำขอแบบฟอร์ม (ชื่อโดเมน))), www.,), http://,)

<ชื่อฟอร์ม=prForm method=post action=searcher.asp?sType=pr onsubmit=return checkPR()>

โปรดป้อนชื่อโดเมน: www.<input type=text name=domainName value=<%=domainName%> /> <input type=submit value=submit/>

ห้ามนำ http://www.

</แบบฟอร์ม>

</div>

ถ้า(sType = pr และชื่อโดเมน<>)แล้ว

โพสต์Str=

getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &ชื่อโดเมน,PostStr)

getContent=RegExpText(getContent รับ <font color=#FB5E3C>((.|/n)*?)</font> คะแนนเต็ม 10 คะแนน)

'getContent=ReplaceKey(getContent รับ <font color=#FB5E3C>|||||</font> คะแนนเต็ม 10 คะแนน)

DimArrayPr

ArrayPr=Split(getContent,,)

การตอบสนองเขียน(<UL>)

Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;ค่า Google PageRank ของ &domainName&</strong></font></a>: <font color =#FF0000><strong>&ArrayPr(0)&</strong></font></li>)

Response.Write(<li><a href=http://www.&domainName& target=new><font color= ... uot;&domainName&</font></strong></a> ค่า Google PageRank: < สีแบบอักษร=#FF0000><strong>&ArrayPr(1)&</strong></font>)

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

</div>

</ฟิลด์เซต>

<ชุดสนาม>

<legend><strong>ภูมิภาค<->แบบสอบถามรหัสพื้นที่</strong></legend>

<div>

ชื่อโซนติ่มซำ

ZoneName = Trim (คำขอแบบฟอร์ม (ชื่อโซน))

<ชื่อฟอร์ม=วิธี Zone2NumberForm=การกระทำที่โพสต์=searcher.asp?sType=zone2number onsubmit=ส่งคืน checkZone2NumberForm()>

ภูมิภาค<strong>→</strong> รหัสพื้นที่: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>

</แบบฟอร์ม>

</div>

ถ้า(sType = Zone2number และชื่อโซน <> ) แล้ว

หรี่ getNumber, ArrayNumber

PostStr = พื้นที่= & หลบหนี (ชื่อโซน) & &action=area2zone

getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)

getNumber = RegExpText(getContent,<TR><TD class=tdc2>○((.|/n)*?)</TD>)

การตอบสนองเขียน(<UL>)

ถ้า(getNumber=)แล้ว

Response.Write(<li><strong><font color=#FF0000>ไม่พบบันทึก</font></strong></li>)

อื่น

ArrayNumber = แยก (getNumber,,)

ถ้า(isArray(ArrayNumber))แล้ว

สำหรับ i=0 ถึง UBOUND(ArrayNumber)-1

Response.Write(<li><strong><font color=#008000>&แทนที่(ArrayNumber(i),,,)&</font></strong></li>)

ต่อไป

อื่น

Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)

สิ้นสุด ถ้า

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

โซนสลัวหมายเลข

ZoneNumber = Trim (คำขอแบบฟอร์ม (zoneNumber))

<ชื่อฟอร์ม=วิธี Number2ZoneForm=การกระทำที่โพสต์=searcher.asp?sType=number2zone onsubmit=return checkNumber2ZoneForm()>

รหัสพื้นที่<strong>→</strong> ภูมิภาค: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>

</แบบฟอร์ม>

</div>

ถ้า(sType = number2zone และzoneNumber <> )แล้ว

หรี่ 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>)

การตอบสนองเขียน(<UL>)

ถ้า(getZone=)แล้ว

Response.Write(<li><strong><font color=#FF0000>ไม่พบบันทึก</font></strong></li>)

อื่น

ArrayZone = แยก (getZone,,)

ถ้า(isArray(ArrayZone))แล้ว

สำหรับ i=0 ถึง UBOUND(ArrayZone)-1

Response.Write(<li><strong><font color=#008000>&แทนที่(ArrayZone(i),,,)&</font></strong></li>)

ต่อไป

อื่น

Response.Write(<li><strong><font color=#008000>&แทนที่(getZone,,,)&</font></strong></li>)

สิ้นสุด ถ้า

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

</div>

</ฟิลด์เซ็ต>

<ชุดสนาม>

<legend><strong>การค้นหาตำแหน่ง IP</strong></legend>

<div>

<ชื่อฟอร์ม=วิธีการ ipForm=การกระทำที่โพสต์=searcher.asp?sType=ip onsubmit=return checkIPForm()>

ที่อยู่ IP ที่จะสอบถาม: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>

</แบบฟอร์ม>

</div>

</ฟิลด์เซ็ต>

<ชุดสนาม>

<legend><strong>สอบถามหมายเลข ID</strong></legend>

<div>

หมายเลขประจำตัวสลัว

IdentityNumber = Trim (คำขอแบบฟอร์ม (identityNumber))

<ชื่อฟอร์ม=identityForm method=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>

หมายเลข ID 15 หรือ 18 หลัก: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>

</แบบฟอร์ม>

</div>

ถ้า(sType = ข้อมูลประจำตัวและหมายเลขประจำตัว<>)แล้ว

Dim ArrayIDCardInfo

PostStr = action=idcard&userid=&identityNumber

getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)

getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)

การตอบสนองเขียน(<UL>)

ถ้า(getContent=)แล้ว

Response.Write(<li>หมายเลข ID ไม่ถูกต้องหรือไม่พบข้อมูลที่เกี่ยวข้อง</li>)

อื่น

ArrayIDCardInfo = แยก (getContent,,)

Response.Write(<li><strong>เพศ:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)

Response.Write(<li><strong>วันเกิด:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )

Response.Write(<li><strong>พื้นที่การออก:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )

สิ้นสุด ถ้า

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

<ชื่อฟอร์ม=identityUpForm method=post action=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>

หมายเลข 15 หลักเพิ่มขึ้นเป็น 18 หลัก: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>

</แบบฟอร์ม>

</div>

ถ้า(sType = upIdentity และ IdentityNumber<>)แล้ว

PostStr = action=upto18&userid=&identityNumber

getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)

getContent=RegExpText(getContent ตัวเลขหลังเลื่อนระดับ: ((.|/n)*?)</TD>)

การตอบสนองเขียน(<UL>)

ถ้า(getContent=)แล้ว

Response.Write(<li>หมายเลข ID ไม่ถูกต้องหรือไม่พบข้อมูลที่เกี่ยวข้อง</li>)

อื่น

Response.Write(<li><strong>ตัวเลขหลังเลื่อนตำแหน่ง (18 หลัก) คือ:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)

สิ้นสุด ถ้า

ตอบกลับเขียน(</UL>)

สิ้นสุด ถ้า

</div>

</ฟิลด์เซต>

ออกแบบโดย <a href=http://www.goalercn.com target= ... R</a><BR />

</div>

</ร่างกาย>

</html>

ฟังก์ชั่น ByteToStr (vIn)

Dim strReturn, i, ThisCharCode, รหัสภายใน, Hight8, Low8, NextCharCode

strReturn=

สำหรับ i = 1 ถึง LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

ถ้า ThisCharCode < &H80 แล้ว

strReturn = strReturn & Chr(ThisCharCode)

อื่น

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

ฉัน = ฉัน + 1

สิ้นสุดถ้า

ต่อไป

ByteToStr = strReturn

ฟังก์ชันสิ้นสุด

ฟังก์ชั่น GetURL (url, PostStr)

ตั้งค่าการเรียกข้อมูล = Server.CreateObject(Microsoft.XMLHTTP)

ด้วยการเรียกค้น

.เปิด POST, url, false , ,

.setRequestHeader Content-Type,application/x-www-form-urlencoded

.ส่ง(PostStr)

GetURL = .ResponseBody

จบด้วย

ตั้งค่าการดึงข้อมูล = ไม่มีเลย

GetURL=ByteToStr(GetURL)

ฟังก์ชันสิ้นสุด

ฟังก์ชัน RegExpText(strng,regStr)

Dim regEx, แมตช์, แมตช์, RetStr

ตั้งค่า regEx = RegExp ใหม่

regEx.Pattern = regStr

regEx.IgnoreCase = จริง

regEx.Global = จริง

ตั้งค่าการจับคู่ = regEx.Execute(strng)

สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน

RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,

ต่อไป

RegExpText = RetStr

ตั้งค่า regEx=nothing

ฟังก์ชันสิ้นสุด