1. Unduh file teks berikut dan ubah .txt ke remote.asp, ada metode pengaturan khusus.
Salinan kode adalah sebagai berikut:
<%
'Apakah akan menyimpan gambar jarak jauh saat menambahkan sumber daya
ConstsSaveFileSelect = true
'Remote Image Simpan Direktori, tolong jangan tambahkan "/" di akhir
ConstssavefilePath = "/gambar/berita"
'Jenis penghematan gambar jarak jauh
Constsfileext = "jpg | gif | bmp | png"
'///////////////////////////////////////////////////////////////////////////////////
'Fungsi: Ganti file jarak jauh di string sebagai file lokal dan simpan file jarak jauh
'parameter:
'shtml: string untuk menggantikan
'ssavepath: jalur untuk menyimpan file
'sext: menjalankan ekstensi penggantian
FunctionReplaceremoteUrl (SHTML, SSAVEFILEPATH, SFILEEXT)
DIMS_CONTENT
s_content = shtml
Ifisobjinstalled ("microsoft.xmlhttp") = falsethen
ReplaceremoteUrl = s_content
Fungsi keluar
Endif
Dimre, Remotefile, RemoteFileUrl, SaveFilename, SaveFileType, ArrsaveFilenames, Arrsavefilename, SSaveFilePaths
Setre = newregexp
re.ignorecase = true
re.global = true
re.pattern = "((http | https | ftp | rtsp | mms): (///////) {1} ((/w)+[.]) {1,} (n ET | com | cn | org | cc | tv | [0-9] {1,3}) (/s*//) ((/s)+[.] {1} ("& sfileExt &"))) "
SetRemoteFile = re.execute (s_content)
ForeachremoteFileurlinremotefile
SaveFileType = ganti (ganti (remoteFileUrl, "/", "a"), ":", "a")
arrsavefilename = kanan (saveFileType, 12)
ssavefilePaths = ssavefilePath & "/"
SaveFileName = ssavefilePaths & arrsavefilename
CallAveremoteFile (saveFileName, RemoteFileUrl)
s_content = ganti (s_content, remoteFileUrl, saveFileName)
Berikutnya
ReplaceremoteUrl = s_content
Fungsi endfungsi
'///////////////////////////////////////////////////////
'Fungsi: Simpan file jarak jauh ke lokal
'Parameter: LocalFileName ------ Nama File Lokal