利用asp可以将远程文件自动切换成在计算机上的版本并进行储存

发布时间：2023-09-09 14:37:38 所属栏目：Asp教程来源：

导读：asp下实现替换远程文件为本地文件并保存远程文件的代码

1、将下面的文本文件下载,并将.TXT改为remote.asp,里面有具体设置方法

复制代码代码如下:

<%

'添加资源时是否保存远程图片

Const sS

asp下实现替换远程文件为本地文件并保存远程文件的代码

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 ------ 本地文件名

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!