1. ดาวน์โหลดไฟล์ข้อความต่อไปนี้และเปลี่ยน. txt เป็น remote.asp มีวิธีการตั้งค่าเฉพาะ
การคัดลอกรหัสมีดังนี้:
-
'ไม่ว่าจะบันทึกรูปภาพระยะไกลเมื่อเพิ่มทรัพยากร
ConstsSaveFilesElect = true
'ไดเรกทอรีบันทึกภาพระยะไกลโปรดอย่าเพิ่ม "/" ในตอนท้าย
ConstsSaveFilePath = "/รูปภาพ/ข่าว"
'ประเภทการบันทึกภาพระยะไกล
constsfileext = "jpg | gif | bmp | png"
-
'ฟังก์ชั่น: แทนที่ไฟล์รีโมตในสตริงเป็นไฟล์โลคอลและบันทึกไฟล์ระยะไกล
'พารามิเตอร์:
'shtml: สตริงที่จะแทนที่
'ssavepath: เส้นทางที่จะบันทึกไฟล์
'sext: ดำเนินการส่วนขยายการทดแทน
FunctionReplacerEmoteUrl (shtml, ssavefilepath, sfileext)
dims_content
s_content = shtml
ifisobjinstalled ("microsoft.xmlhttp") = falsethen
replacerEmoteUrl = s_content
exitfunction
endif
dimre, remotefile, remotefileurl, savefilename, savefileType, arrsavefilenames, arrsavefilename, ssavefilepaths
setre = newregexp
re.ignorecase = true
re.global = true
re.pattern = "((http | https | ftp | rtsp | mms): (//////////////////////////////on et | com | cn | org | cc | tv | [0-9] {1,3}) (/s*//) ((/s)+[.] {1} ("& sfileext &"))) "
setRemoteFile = re.execute (s_content)
foreachremotefileurlinremotefile
saveFileType = แทนที่ (แทนที่ (RemoteFileUrl, "/", "a"), ":", "a")
arrSaveFileName = ขวา (saveFileType, 12)
ssavefilepaths = ssavefilepath & "/"
saveFileName = ssavefilepaths & arrsavefilename
CallsAveremoteFile (SaveFilename, RemoteFileUrl)
s_content = แทนที่ (s_content, remotefileurl, savefilename)
ต่อไป
replacerEmoteUrl = s_content
endfunction
-
'ฟังก์ชั่น: บันทึกไฟล์ระยะไกลไปยัง Local
'พารามิเตอร์: LocalFileName ------ ชื่อไฟล์ท้องถิ่น