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 ----成功 
'        False ----失敗 
Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl) 
    Dim Ads, Retrieval, GetRemoteData 
    On Error Resume Next 
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") 
    With Retrieval 
        .Open "Get", s_RemoteFileUrl, False, "", "" 
        .Send 
        GetRemoteData = .ResponseBody 
    End With 
    Set Retrieval = Nothing 
    Set Ads = Server.CreateObject("Adodb.Stream") 
    With Ads 
        .Type = 1 
        .Open 
        .Write GetRemoteData 
        .SaveToFile Server.MapPath(s_LocalFileName), 2 
        .Cancel() 
        .Close() 
    End With 
    Set Ads=nothing 
End Sub 

'//////////////////////////////////////// 
'作 用：檢查組件是否已經安裝 
'參 數：strClassString ----組件名 
'返回值：True ----已經安裝 
'     False ----沒有安裝 
Function IsObjInstalled(s_ClassString) 
    On Error Resume Next 
    IsObjInstalled = False 
    Err = 0 
    Dim xTestObj 
    Set xTestObj = Server.CreateObject(s_ClassString) 
    If 0 = Err Then IsObjInstalled = True 
    Set xTestObj = Nothing 
    Err = 0 
End Function 
%> 

2、調用方法: 
<!--#include file="remote.asp"-->  

文章入庫的地方改成下面的代碼  

復制代碼代碼如下:

If sSaveFileSelect=True Then   
     Rs("Content")=ReplaceRemoteUrl(ArticleContent,sSaveFilePath,sFileExt)   
    Else   
     Rs("Content")=ArticleContent   
End If