ฉันทำไปเพียงบางส่วนเท่านั้น โปรดทำตามตัวอย่างที่ฉันให้ไว้เพื่อกรอกแบบสอบถาม 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>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html; charset=gb2312 />
<META NAME=ผู้เขียน CONTENT=ผู้รักษาประตู />
<META NAME=คำหลัก CONTENT=ตำแหน่งหมายเลขโทรศัพท์มือถือ,ip,google pr,รหัสไปรษณีย์,บัตรประจำตัว,แบบสอบถาม,อัปเกรด,ผู้รักษาประตู,www.goalercn.com />
<META NAME=คำอธิบาย CONTENT=ตำแหน่งหมายเลขโทรศัพท์มือถือ,ip,google pr,รหัสไปรษณีย์,บัตรประจำตัว,แบบสอบถาม,อัปเกรด,ผู้รักษาประตู,www.goalercn.com />
<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))
-
<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=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://,)
-
<div style=padding-left:23px;margin-bottom:8px;>
<ชื่อฟอร์ม=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>
<div style=padding-left:23px;margin-bottom:8px;>
-
ชื่อโซนติ่มซำ
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))
-
<div style=padding-left:23px;margin-bottom:8px;>
<ชื่อฟอร์ม=วิธี 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>
<div style=padding-left:23px;margin-bottom:8px;>
<ชื่อฟอร์ม=วิธีการ ipForm=การกระทำที่โพสต์=searcher.asp?sType=ip onsubmit=return checkIPForm()>
ที่อยู่ IP ที่จะสอบถาม: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>
</แบบฟอร์ม>
</div>
</div>
</ฟิลด์เซ็ต>
<ชุดสนาม>
<legend><strong>สอบถามหมายเลข ID</strong></legend>
<div>
-
หมายเลขประจำตัวสลัว
IdentityNumber = Trim (คำขอแบบฟอร์ม (identityNumber))
-
<div style=padding-left:23px;margin-bottom:8px;>
<ชื่อฟอร์ม=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>)
สิ้นสุด ถ้า
-
<div style=padding-left:23px;margin-bottom:8px;>
<ชื่อฟอร์ม=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>
</ฟิลด์เซต>
<div style=padding:15px;text-align:center;>
ออกแบบโดย <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
ฟังก์ชันสิ้นสุด
-