Unduh semua konten di halaman jarak jauh sekaligus halaman 1/2

Server.ScriptTimeout = 9999

'#######################

'Fungsi Simpan File

'###################

function savetofile (dari, tofile)

pada kesalahan resume berikutnya

redup geturl, objstream, imgs

getUrl = trim (dari)

Mybyval = getHttpStr (getUrl)

Set ObjStream = Server.CreateObject ("AdodB.Stream")

objstream.type = 1

objstream.open

objstream.write mybyval

objstream.savetofile tofile, 2

objstream.close ()

atur objstream = tidak ada

Jika err.number0 maka err.clear

fungsi akhir

'#######################

'Penggantian pemrosesan karakter

'###################

fungsi getUrlencodel (BYVAL URL) 'Konversi Nama File Cina

Redup i, kode

getUrlencodel = ""

Jika trim (url) = "" Kemudian fungsi keluar

untuk i = 1 ke len (url)

kode = ASC (mid (url, i, 1))

Jika kode CodeF> 255 maka

getUrlencodel = getUrlencodel & "%" & kiri (hex (kode), 2) & "%" & kanan (hex (kode), 2)

kalau tidak

getUrlencodel = getUrlencodel & mid (url, i, 1)

akhiri jika

Berikutnya

fungsi akhir

'#######################

'XML Dapatkan Halaman Jarak Jauh Mulai

'###################

function getHttppage (URL)

pada kesalahan resume berikutnya

redup http

Setel http = server.CreateObject ("msxml2.xmlhttp")

Http.open "get", url, false

Http.send ()

Jika http.readystate4 maka fungsi keluar

getHttppage = bytes2btr (http.responseBody)

atur http = tidak ada

Jika err.number0 maka err.clear

fungsi akhir

Fungsi bytes2btr (VIN)

redup strreturn

redup i, kode ini, nextcharcode

strreturn = ""

Untuk i = 1 ke lenb (vin)

Kode ini = ASCB (midb (vin, i, 1))

Jika strreTurn kode ini = strreturn & chr (kode ini)

Kalau tidak

NextCharCode = ASCB (midb (vin, i+1,1)))

Strreturn = Strreturn & Chr (Clng (ThisCharcode) * & H100 + CINT (NextCharCode))

i = i + 1

Akhiri jika

Berikutnya

BYTES2BSTR = Strreturn

Fungsi akhir

'#######################

'XML membuat halaman jarak jauh berakhir, ini adalah bagian umum dari semua program pencuri

'###################

'#######################

'Mengurai alamat dan dapatkan nama file

'###################

fungsi getFileName (nama file val)

if instr (fileName, "/")> 0 lalu

fileext_a = split (nama file, "/")

getFileName = lcase (fileext_a (ubund (fileext_a)))

jika instr (getFileName, "?")> 0 lalu

getFileName = kiri (getFileName, instr (getFileName, "?")-1)

akhiri jika

kalau tidak

getFileName = nama file

akhiri jika

fungsi akhir

'#######################

'Dapatkan fungsi halaman jarak jauh

'###################

function getHttpstr (URL)

pada kesalahan resume berikutnya

redup http

Setel http = server.CreateObject ("msxml2.xmlhttp")

Http.open "get", url, false

Http.send ()

Jika http.readystate4 maka fungsi keluar

getHttpstr = http.responseBody

atur http = tidak ada

Jika err.number0 maka err.clear

fungsi akhir

'#######################

Fungsi pemrosesan FSO, buat direktori

'###################

Fungsi CreateDir (ByVal Localpath) 'Program yang membuat direktori. Jika ada beberapa level direktori, membuatnya satu tingkat pada satu waktu.

Pada kesalahan resume berikutnya

Localpath = ganti (localpath, "/", "/")

Set FileObject = Server.CreateObject ("Scripting.FilesyStemObject")

patharr = split (localpath, "/")

path_level = ubound (patharr)

Untuk i = 0 ke path_level

Jika i = 0 maka pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/"

cpath = kiri (pathtmp, len (pathtmp) - 1)

Jika tidak FileObject.FolderExists (CPath) maka FileObject.CreateFolder CPath

Berikutnya

Atur fileObject = tidak ada

Jika err.number 0 lalu

CreateRir = false

Err.clear

Kalau tidak

CreateRir = true

Akhiri jika

Fungsi akhir

function getFileExt (byval filename)

fileext_a = split (nama file, ".")

GetFileExt = lcase (fileext_a (ubund (fileext_a))))

fungsi akhir

'#######################

'Cara mendapatkan jalur virtual

'###################

fungsi getvirtual (str, jalur, urlhead)

Jika dibiarkan (str, 7) = "http: //" lalu

url = str

elseif left (str, 1) = "/" lalu

start = instrrev (str, "/")

Jika mulai = 1 maka

url = "/"

kalau tidak

url = kiri (str, mulai)

akhiri jika

url = urlhead & url

elseif left (str, 3) = "../" lalu

str1 = mid (str, instrrev (str, "../")+2)

AR = split (str, "../")

lv = ubund (AR) +1

ar = split (path, "/")

url = "/"

untuk i = 1 hingga (ubund (ar) -lv)

url = url & ar (i)

Berikutnya

url = url & str1

url = urlhead & url

kalau tidak

url = urlhead & str

akhiri jika

getVirtual = url

fungsi akhir