1. 다음 텍스트 파일을 다운로드하고 .txt를 remote.asp로 변경하십시오. 특정 설정 방법이 있습니다.
코드 사본은 다음과 같습니다.
<%
'리소스를 추가 할 때 원격 사진을 저장할지 여부
constsavefileselect = true
'원격 이미지 저장 디렉토리, 마지막에 "/"를 추가하지 마십시오.
constsavefilepath = "/images/news"
'원격 이미지 저장 유형
constsfileext = "jpg | gif | bmp | png"
'////////////////////////////////////////////////////////////////////////////
'기능 : 문자열의 원격 파일을 로컬 파일로 교체하고 원격 파일을 저장합니다.
'매개 변수 :
'shtml : 교체 할 문자열
'ssavepath : 파일을 저장하는 경로
'sext : 교체 확장을 실행하십시오
functionReplacerEMoteUrl (SHTML, SSAVEFILEPATH, SFILEEXT)
Dims_Content
s_content = shtml
ifisobjinstalled ( "microsoft.xmlhttp") = falsethen
replaceremoteurl = s_content
종료 기능
endif
Dimre, RemoteFile, RemoteFileUrl, SaveFilename, SaveFileType, ArrsaveFilename, 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 = replace (replace (replearfileurl, "/", "a"), ":", "a")
ArrsaveFilename = Right (SaveFileType, 12)
ssavefilepaths = ssavefilepath & "/"
SaveFilename = SSAVEFILEPATHS & ARRSAVEFILENAME
CallsaverEmoteFile (SaveFileName, OrmetFileUrl)
s_content = replace (s_content, ormetfileurl, savefilename)
다음
replaceremoteurl = s_content
최종 기능 장애
'//////////////////////////////////////////////////
'기능 : 원격 파일을 로컬에 저장하십시오
'매개 변수 : localFileName ------ 로컬 파일 이름