ดาวน์โหลดเนื้อหาทั้งหมดในหน้ารีโมตในครั้งเดียว
ใช้วิธีการบันทึกรหัสด้านบนเป็นตัวอย่าง: downfile.asp
เข้าสู่เบราว์เซอร์:
http: // ที่อยู่ของคุณ/downfile.asp? url = http: //www.baidu.com/index.html
| 'กำหนดเวลาหมดเวลา Server.scriptTimeOut = 9999 - 'ฟังก์ชันบันทึกไฟล์ - ฟังก์ชั่น savetofile (จาก, tofile) เมื่อเกิดข้อผิดพลาดต่อไป Dim Geturl, Objstream, IMGS getUrl = trim (จาก) myByVal = gethttpStr (getUrl) ตั้งค่า objstream = server.createObject ("adodb.stream")) objstream.type = 1 objstream.open objstream.write mybyval objstream.savetofile tofile, 2 objstream.close () ตั้งค่า objstream = ไม่มีอะไร ถ้า err.number0 แล้ว err.clear ฟังก์ชันสิ้นสุด - 'การเปลี่ยนการประมวลผลอักขระ - ฟังก์ชั่น geturlencodel (byval url) 'การแปลงชื่อไฟล์ภาษาจีน Dim I, รหัส getURLENCODEL = "" ถ้า trim (url) = "" จากนั้นออกจากฟังก์ชัน สำหรับ i = 1 ถึง len (url) รหัส = asc (mid (url, i, 1)) ถ้ารหัสรหัส> 255 แล้ว geturlencodel = geturlencodel & "%" & left (hex (รหัส), 2) & "%" & ขวา (hex (รหัส), 2) อื่น geturlencodel = geturlencodel & mid (url, i, 1) สิ้นสุดถ้า ต่อไป ฟังก์ชันสิ้นสุด - 'xml เริ่มต้นหน้าระยะไกลเริ่มต้น - ฟังก์ชั่น gethttppage (url) เมื่อเกิดข้อผิดพลาดต่อไป สลัว http ตั้งค่า http = server.createObject ("msxml2.xmlhttp")) http.open "get", url, false http.send () ถ้า http.readystate4 แล้วออกจากฟังก์ชัน gethttppage = bytes2bstr (http.responsebody) ตั้งค่า http = ไม่มีอะไร ถ้า err.number0 แล้ว err.clear ฟังก์ชันสิ้นสุด ฟังก์ชั่น BYTES2BSTR (VIN) สลัว strreturn Dim I, ThischArcode, NextCharcode strreturn = "" สำหรับ i = 1 ถึง lenb (vin) thischArcode = ascb (midb (vin, i, 1)) ถ้า thischode strreturn = strreturn & ch chr (thischarcode) อื่น NextCharcode = ASCB (MIDB (VIN, I+1,1))) strreturn = strreturn & chr (clng (thischarcode) * & h100 + cint (nextcharcode)) i = i + 1 สิ้นสุดถ้า ต่อไป bytes2bstr = streturn ฟังก์ชันสิ้นสุด - 'XML ได้รับหน้าระยะไกลถึงจุดสิ้นสุดนี่เป็นส่วนหนึ่งของโปรแกรมขโมยทั้งหมด - - 'สลายที่อยู่และรับชื่อไฟล์ - ฟังก์ชั่น getFilename (ชื่อไฟล์ byval) ถ้า instr (ชื่อไฟล์, "/")> 0 แล้ว fileext_a = split (ชื่อไฟล์, "/") getFileName = lcase (fileext_a (ubund (fileext_a)))) ถ้า instr (getFilename, "?")> 0 แล้ว getFileName = ซ้าย (getFilename, instr (getFilename, "?")-1) สิ้นสุดถ้า อื่น getFileName = ชื่อไฟล์ สิ้นสุดถ้า ฟังก์ชันสิ้นสุด - 'รับฟังก์ชั่นหน้าระยะไกล - ฟังก์ชั่น gethttpstr (url) เมื่อเกิดข้อผิดพลาดต่อไป สลัว http ตั้งค่า http = server.createObject ("msxml2.xmlhttp")) http.open "get", url, false http.send () ถ้า http.readystate4 แล้วออกจากฟังก์ชัน gethttpstr = http.responsebody ตั้งค่า http = ไม่มีอะไร ถ้า err.number0 แล้ว err.clear ฟังก์ชันสิ้นสุด - 'ฟังก์ชั่นการประมวลผล FSO สร้างไดเรกทอรี - ฟังก์ชั่นสร้างขึ้น (Byval localpath) 'โปรแกรมที่สร้างไดเรกทอรี หากมีไดเรกทอรีหลายระดับให้สร้างทีละระดับ เมื่อเกิดข้อผิดพลาดต่อไป localpath = แทนที่ (localpath, "/", "/") ตั้งค่า fileObject = server.createObject ("scripting.filesystemobject") patharr = split (localpath, "/") path_level = ubound (patharr) สำหรับ i = 0 ถึง path_level ถ้า i = 0 แล้ว pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/" cPath = ซ้าย (pathtmp, len (pathtmp) - 1) ถ้าไม่ใช่ fileobject.folderexists (cPath) จากนั้น fileObject.createFolder cpath ต่อไป ตั้งค่า fileObject = ไม่มีอะไร ถ้า err.number 0 แล้ว createDir = false err.lear อื่น createDir = true สิ้นสุดถ้า ฟังก์ชันสิ้นสุด ฟังก์ชั่น getFileext (ชื่อไฟล์ byval) fileext_a = split (ชื่อไฟล์, ".") getFileext = lcase (fileext_a (ubund (fileext_a)))) ฟังก์ชันสิ้นสุด - 'วิธีรับเส้นทางเสมือนจริง - ฟังก์ชั่น getVirtual (str, path, urlhead) ถ้าเหลือ (str, 7) = "http: //" แล้ว url = str elseif left (str, 1) = "/" แล้ว start = instrrev (str, "/") ถ้าเริ่ม = 1 จากนั้น url = "/" อื่น url = ซ้าย (str, start) สิ้นสุดถ้า url = urlhead & url elseif left (str, 3) = "../" แล้ว str1 = mid (str, strrev (str, "../")+2) AR = แยก (str, "../") LV = Ubund (AR) +1 AR = แยก (เส้นทาง, "/") url = "/" สำหรับ i = 1 ถึง (ubund (ar) -lv) url = url & ar (i) ต่อไป url = url & str1 url = urlhead & url อื่น url = urlhead & str สิ้นสุดถ้า getVirtual = url ฟังก์ชันสิ้นสุด |