เมื่อเร็ว ๆ นี้บางโปรแกรมคอลเลกชันได้รับความนิยมบนอินเทอร์เน็ต ผู้คนจำนวนมากกำลังขายสิ่งเหล่านี้ออนไลน์ หลายคนที่ไม่รู้จักมากนักที่อิจฉาโปรแกรมเหล่านั้น ในความเป็นจริงถ้าคุณเข้าใจ ASP และเข้าใจหลักการของโปรแกรมการรวบรวมอัตโนมัติคุณจะรู้สึกว่ามันง่ายมากที่จะใช้งานระบบอัตโนมัติ
หลักการและข้อดี: ผ่านส่วนประกอบ XMLHTTP ใน XML หน้าเว็บบนเว็บไซต์อื่น ๆ จะถูกเรียกและจากนั้นทำการสกัดกั้นหรือแทนที่ข้อมูลดั้งเดิมเพื่อให้มันถูกแปลงเป็นตัวแปรแล้วเก็บไว้ในฐานข้อมูลทีละคน ข้อได้เปรียบหลักคือไม่จำเป็นต้องเพิ่มข้อมูลจำนวนมากด้วยตนเอง คุณสามารถระบุการสกัดกั้นข้อมูลไซต์บางอย่างและอินพุตแบทช์เพื่อให้บรรลุวัตถุประสงค์ในการประหยัดเวลาและความพยายาม ซึ่งแตกต่างจากโปรแกรม ASP Thief ล้วนๆ: มันไม่ได้ขึ้นอยู่กับเว็บไซต์เป้าหมายอีกต่อไป
-
'ประกาศฟังก์ชั่นเพื่อรับข้อมูลเป้าหมายและนำไปใช้ผ่านส่วนประกอบ XML
geturl (/บล็อก/url)
setRetrieval = createObject ("microsoft.xmlhttp"))
เกี่ยวกับการแก้ไข
เปิด "get", url, false
ส่ง
getURL = BYTES2BSTR (.ResponseBody)
'ตรวจสอบข้อมูลที่ได้รับ หากความยาวของข้อมูลน้อยกว่า 100 หมายความว่าการสกัดกั้นล้มเหลว
iflen (.responsebody) <100 แล้ว
Response.write "ล้มเหลวในการรับไฟล์ระยะไกล <ahref ="/blog/"& url &" target = _blank> "& url &" </a> -
Response.end
endif
จบลงด้วย
setRetrieval = ไม่มีอะไร
จบ
'เปลี่ยนไบนารีเป็นสตริงมิฉะนั้นจะอ่านไม่ออกจะปรากฏขึ้น!
Bytes2BSTR (VIN)
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
ต่อไป
bytes2bstr = streturn
จบ
'ประกาศรูปแบบที่สกัดกั้นเริ่มจากจุดเริ่มต้นและสิ้นสุดในที่สุด
getKey (HTML, เริ่ม, สุดท้าย)
filearray = split (html, start)
filearray2 = split (filearray (1), สุดท้าย)
getKey = filearray2 (0)
จบ
Dimsoftid, url, html, title
'รับ ID ของหน้าเพื่อเรียกคืน
softId = คำขอ ("id")
url = "http://www3.skycn.com/soft/" & softid & ".html"
html = geturl (/บล็อก/url)
'ใช้ชื่อซอฟต์แวร์ของซอฟต์แวร์สกัดกั้น Sky เป็นตัวอย่าง
title = getKey (html, "<fontColor = '#004fc6'Size =' 3 '>", "</font> </b> </td> </tr>"
'เปิดฐานข้อมูลและเตรียมพร้อมที่จะป้อนฐานข้อมูล
Dimconnstr, Conn, RS, SQL
connstr = "dbq ="+server.mappath ("db1.mdb")+"; defaultdir =; driver = {microsoft accessiver (*. mdb)};"
setConn = server.createObject ("adodb.connection"))
conn.openconnstr
setRs = server.createObject ("adodb.recordset"))
sql = "เลือก [ชื่อคอลัมน์] จาก [ชื่อตาราง] โดยที่ [ชื่อคอลัมน์] = '" & title & "'
Rs.opensql, Conn, 3,3
ifrs.eofandrs.bofthen
rs ("ชื่อคอลัมน์") = ชื่อเรื่อง
Rs.update
setrs = ไม่มีอะไร
endif
setrs = ไม่มีอะไร
Response.write "คอลเลกชันเสร็จสมบูรณ์!"
-
