1、將下面的文本文件下載,並將.TXT改為remote.asp,裡面有具體設置方法
複製代碼代碼如下:
<%
'添加資源時是否保存遠程圖片
ConstsSaveFileSelect=True
'遠程圖片保存目錄,結尾請不要加“/”
ConstsSaveFilePath="/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
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):(////|////){1}((/w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(/S*//)((/S)+[.]{1}("&sFileExt&")))"
SetRemoteFile=re.Execute(s_Content)
ForEachRemoteFileurlinRemoteFile
SaveFileType=Replace(Replace(RemoteFileurl,"/","a"),":","a")
arrSaveFileName=Right(SaveFileType,12)
sSaveFilePaths=sSaveFilePath&"/"
SaveFileName=sSaveFilePaths&arrSaveFileName
CallSaveRemoteFile(SaveFileName,RemoteFileurl)
s_Content=Replace(s_Content,RemoteFileurl,SaveFileName)
Next
ReplaceRemoteUrl=s_Content
EndFunction
'////////////////////////////////////////
'作用:保存遠程的文件到本地
'參數:LocalFileName------本地文件名