1、將下面的文本文件下載,并將.TXT改為remote.asp,里面有具體設置方法
復制代碼 代碼如下:
<%
'添加資源時是否保存遠程圖片
Const sSaveFileSelect=True
'遠程圖片保存目錄,結尾請不要加“/”
Const sSaveFilePath="/images/News"
'遠程圖片保存類型
Const sFileExt="jpg|gif|bmp|png"
'/////////////////////////////////////////////////////
'作 用：替換字符串中的遠程文件為本地文件并保存遠程文件
'參 數：
' sHTML : 要替換的字符串
' sSavePath : 保存文件的路徑
' sExt : 執行替換的擴展名
Function ReplaceRemoteUrl(sHTML, sSaveFilePath, sFileExt)
Dim s_Content
s_Content = sHTML
If IsObjInstalled("Microsoft.XMLHTTP") = False then
ReplaceRemoteUrl = s_Content
Exit Function
End If
Dim re, RemoteFile, RemoteFileurl,SaveFileName,SaveFileType,arrSaveFileNameS,arrSaveFileName,sSaveFilePaths
Set re = new RegExp
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 & ")))"
Set RemoteFile = re.Execute(s_Content)
For Each RemoteFileurl in RemoteFile
SaveFileType = Replace(Replace(RemoteFileurl,"/", "a"), ":", "a")
arrSaveFileName = Right(SaveFileType,12)
sSaveFilePaths=sSaveFilePath & "/"
SaveFileName = sSaveFilePaths & arrSaveFileName
Call SaveRemoteFile(SaveFileName, RemoteFileurl)
s_Content = Replace(s_Content,RemoteFileurl,SaveFileName)
Next
ReplaceRemoteUrl = s_Content
End Function
'////////////////////////////////////////
'作 用：保存遠程的文件到本地
'參 數：LocalFileName ------ 本地文件名
' RemoteFileUrl ------ 遠程文件URL
'返回值：True ----成功
