<%
'----------Dapatkan konten dari jarak jauh dan simpan konten di komputer lokal, termasuk file apa pun! ----------
'---------------Menggunakan xmlhttp dan adodb.stream-----------------
'Pada Kesalahan Lanjutkan Berikutnya
'----------------------------------Tentukan format keluaran--------------------------- ------ ---------------
jalur=permintaan(jalur)
jika jalur = maka
jalur=http://pcqc.86516.com/index.asp
'URL yang ditentukan di sini adalah Baidu, harap dicatat bahwa harus ada akhiran file
berakhir jika
sPath = Jalur
jika kiri(lcase(path),7) <> http:// lalu
'-------------Jika tidak ada http di depan, itu adalah file lokal dan diserahkan ke LocalFile untuk diproses------------
File Lokal (jalur)
kalau tidak
'-----------------------------------------Jika tidak, ini adalah file jarak jauh dan akan ditangani oleh RemoteFile---------- --------
File Jarak Jauh (Jalur)
berakhir jika
'Respon.Tulis err.Deskripsi
'-------------Fungsi pemrosesan ----------
subLocalFile(Jalur)
'------------------Jika itu adalah file lokal, cukup lompat ke halaman------------------ -
'Respon. Jalur Pengalihan
Terjadi kesalahan di Response.write!
Akhiri Sub
SubRemoteFile(sPath)
'---------------------------------Fungsi pemrosesan file jarak jauh------------ ----------------- ----------
Nama File = DapatkanNamaFile(sPath)
'-------------GetFileName adalah proses mengubah alamat menjadi nama file yang memenuhi syarat-------------
Nama File = Server.MapPath(Cache/ & Nama File)
Setel objFso = Server.CreateObject(Scripting.FileSystemObject)
'Respon. Tulis Nama file
jika objFso.FileExists(Nama File) Lalu
'-------------Cek apakah file sudah diakses, jika iya langsung saja lompat---------------------
Respons.Redirect cache/ & GetFileName(jalur)
Kalau tidak
'-------------Jika tidak, gunakan fungsi GetBody untuk membacanya terlebih dahulu---------------------
'Respon. Tulis Jalur
t = GetBody(Jalur)
'-----------------Gunakan metode biner untuk menulis ke browser------------------------ -------- --
Respon.BinaryWrite t
Respon. Siram
'----------------- Penyangga Keluaran ------------------------------ --- ----------
SimpanFile t,DapatkanNamaFile(jalur)
'------------------Cache konten file ke jalur lokal untuk akses selanjutnya----------
Berakhir jika
Setel objFso = Tidak Ada
Akhiri Sub
Fungsi GetBody(url)
'-----------------------Fungsi ini adalah fungsi untuk memperoleh konten dari jarak jauh----------------- ---
'pada kesalahan lanjutkan berikutnya
'Respon.Tulis url
Setel Pengambilan = Buat Objek (Microsoft.XMLHTTP)
'----------------------Buat objek XMLHTTP------------------------ -----
Dengan Pengambilan
.Buka Dapatkan, url, Salah, ,
'------------------Kirim menggunakan Get, metode asynchronous-----------------------
.Mengirim
'GetBody = .ResponseTeks
GetBody = .ResponseBody
'------------------Fungsi mengembalikan konten yang diperoleh--------------------------
Akhiri Dengan
Setel Pengambilan = Tidak Ada
'respons.Tulis err.Deskripsi
Fungsi Akhir
Fungsi DapatkanNamaFile(str)
'-----------Fungsi ini adalah fungsi nama file yang memenuhi syarat-------------- - ---
str = Ganti(lcase(str),http://,)
str = Ganti(lcase(str),//,/)
str = Ganti(str,?,)
str = Ganti(str,&,)
str = Ganti(str,/,)
str = ganti(str,vbcrlf,)
DapatkanNamaFile = str
Fungsi Akhir
sub SimpanFile(str,fNama)
'-----------Fungsi ini adalah fungsi yang menyimpan konten streaming------------- - ----
'pada kesalahan lanjutkan berikutnya
Setel objStream = Server.CreateObject(ADODB.Stream)
'-------------Untuk membuat objek ADODB.Stream, diperlukan ADO versi 2.5 atau lebih tinggi---------
'objStream.Type = adTypeBinary
objStream.Jenis = 1
'-------------Buka dalam mode biner-------------------------------- -----
objStream.Buka
objstream.tulis str
'-------------------------------------------------------Tulis konten string ke dalam buffer---------------- ---------- ----
'respon. Tulis nama f
'jalan perhatian
objstream.SaveToFile E:/webroot/pcqc/vip/UploadFile/cache/&fName,2
'objstream.SaveToFile d:/cache/ & fName,adSaveCreateOverWrite
'-------------------------------------------------------Tulis konten yang di-buffer ke file------------------ -------- ----
'response.BinaryWrite objstream.Baca
objstream.Tutup()
setel objstream = tidak ada
'-----------------------Tutup objek dan lepaskan sumber daya----------------------------------- - ----
'respons.Tulis err.Deskripsi
Akhiri sub
fungsi simpan gambar (dari, ke file)
redupkan geturl,objStream,imgs
geturl=trim(dari)
imgs=gethttppage(geturl)'Proses mendapatkan konten spesifik gambar
Setel objStream = Server.CreateObject(ADODB.Stream)' Untuk membuat objek ADODB.Stream, diperlukan ADO 2.5 atau lebih tinggi
objStream.Type =1'Buka dalam mode biner
objStream.Buka
objstream.write imgs' menulis konten string ke dalam buffer
objstream.SaveToFile server.mappath(tofile),2'-tulis konten yang di-buffer ke file
objstream.Close()'Tutup objeknya
atur objstream=tidak ada
fungsi akhir
%>