เรียกหน้าเว็บบนเว็บไซต์อื่นผ่านคอมโพเนนต์ XMLHTTP ใน XML จากนั้นสกัดกั้นหรือแทนที่ข้อมูลต้นฉบับเป็นชุดเพื่อแปลงเป็นตัวแปร จากนั้นจัดเก็บไว้ในฐานข้อมูลทีละรายการ ข้อได้เปรียบหลักคือไม่จำเป็นต้องเพิ่มข้อมูลจำนวนมากด้วยตนเอง คุณสามารถระบุการสกัดกั้นข้อมูลจากสถานีบางแห่งที่จะป้อนเป็นชุด ซึ่งช่วยประหยัดเวลาและความพยายาม ความแตกต่างกับโปรแกรมขโมย ASP ล้วนๆ ก็คือ ไม่ต้องอาศัยเว็บไซต์เป้าหมายอีกต่อไป
รหัสอ้างอิง:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ประกาศฟังก์ชันเพื่อรับข้อมูลเป้าหมาย ใช้งานผ่านส่วนประกอบ XML
ฟังก์ชัน Geturl(/blog/url)
ตั้งค่าการดึงข้อมูล = CreateObject(Microsoft.XMLHTTP)
ด้วยการเรียกค้น
. เปิด GET, url, False
.ส่ง
GetURL = bytes2bstr(.responsebody)
'ตรวจสอบข้อมูลที่ได้รับ หากความยาวของข้อมูลน้อยกว่า 100 การสกัดกั้นจะล้มเหลว
ถ้า len(.responsebody)<100 แล้ว
response.write ล้มเหลวในการรับไฟล์ระยะไกล <a href=&url& target=_blank>&url&</a>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
ฟังก์ชันสิ้นสุด
' แปลงไบนารีเป็นสตริง ไม่เช่นนั้นอักขระที่อ่านไม่ออกจะปรากฏขึ้น!
ฟังก์ชั่น bytes2bstr (วิน)
สเตรทเทิร์น =
สำหรับ i = 1 ถึง lenb (vin)
thischarcode = ascb(midb(vin,i,1))
ถ้า thischarcode < &h80 แล้ว
strreturn = strreturn & chr (รหัสอักขระนี้)
อื่น
โค้ดถัดไป = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(โค้ดถัดไป))
ฉัน = ฉัน + 1
สิ้นสุดถ้า
ต่อไป
bytes2bstr = strreturn
ฟังก์ชั่นสิ้นสุด
'ประกาศรูปแบบการสกัดกั้น เริ่มต้นจาก Start และสิ้นสุดด้วย Last
ฟังก์ชั่น GetKey (HTML, เริ่ม, สุดท้าย)
filearray=split(HTML,เริ่ม)
filearray2=split(filearray(1),สุดท้าย)
GetKey=filearray2(0)
ฟังก์ชันสิ้นสุด
Dim Softid,Url,Html,ชื่อเรื่อง
'รับ ID ของเพจที่คุณต้องการดึงข้อมูล
SoftId=คำขอ(Id)
URL=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/บล็อก/Url)
'นำชื่อซอฟต์แวร์สกัดกั้นซอฟต์แวร์ท้องฟ้าเป็นตัวอย่าง'
หัวข้อ = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'เปิดฐานข้อมูลและเตรียมจัดเก็บ'
connstr, conn, rs, sql สลัว
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={ไดรเวอร์ Microsoft Access (*.mdb)};
ตั้งค่า conn=server.createobject (ADODB.CONNECTION)
conn.open constr
ตั้งค่า rs=server.createobject (adodb.recordset)
sql=select [ชื่อคอลัมน์] จาก [ชื่อตาราง] โดยที่ [ชื่อคอลัมน์]='&Title&'
rs.open sql,conn,3,3
ถ้า rs.eof และ rs.bof แล้ว
rs(ชื่อคอลัมน์)=หัวเรื่อง
อาร์เอสอัปเดต
ตั้งค่า rs=nothing
สิ้นสุดถ้า
ตั้งค่า rs=nothing
ตอบกลับ เขียนคอลเลกชั่นเสร็จแล้ว!
-