ดาวน์โหลดเนื้อหาทั้งหมดในหน้ารีโมตในครั้งเดียวหน้า 1/2

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

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