**国产精品,亚洲一区二区三区日本久久九,久久精品欧美视频

主頁 > 知識庫 > ReSaveRemoteFile函數之asp實現查找文件保存替換的代碼

ReSaveRemoteFile函數之asp實現查找文件保存替換的代碼

'================================================
    '函數名：ReSaveRemoteFile
    '作  用：查找文件保存替換
    '參  數：Str   ----原字符串
    '參  數：url   ----當然網站URL
    '參  數：Dir -----保存目錄
    '參  數：InSave ------是否保存,True,False
    '返回值：格式化取后的字符串
    '================================================
    Public Function ReSaveRemoteFile(ByVal str, ByVal URL, ByVal Dir,InSave)
        Dim s_Content
        Dim re
        Dim ContentFile, ContentFileUrl
        Dim strTempUrl,strFileUrl,DirTemp,PathTemp,FileTemp,Tempi,TempUrlArray,Arr_Path
        Dim sAllowExtName
        sAllowExtName="rm|swf"

        s_Content = str
        On Error Resume Next
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "((src=|href=)((\S)+[.]{1}("  sAllowExtName  ")))"
        Set ContentFile = re.Execute(s_Content)
        Dim sContentUrl(), n, i, bRepeat
        n = 0
        For Each ContentFileUrl In ContentFile
            strFileUrl = Replace(Replace(Replace(Replace(ContentFileUrl.Value, "src=", "", 1, -1, 1), "href=", "", 1, -1, 1), "'", ""), Chr(34), "")
            If n = 0 Then
                n = n + 1
                ReDim sContentUrl(n)
                sContentUrl(n) = strFileUrl
            Else
                bRepeat = False
                For i = 1 To UBound(sContentUrl)
                    If UCase(strFileUrl) = UCase(sContentUrl(i)) Then
                        bRepeat = True
                        Exit For
                    End If
                Next
                If bRepeat = False Then
                    n = n + 1
                    ReDim Preserve sContentUrl(n)
                    sContentUrl(n) = strFileUrl
                End If
            End If
        Next
        If n = 0 Then
            ReSaveRemoteFile = s_Content
            Exit Function
        End If
        For i = 1 To n
            strTempUrl = sContentUrl(i) : strTempUrl = FormatRemoteUrl(strTempUrl,URL)'得到文件地址
            Response.Write(strTempUrl)
            IF InSave=True then
                Arr_Path=Split(Dir,"/")
                '----------建目錄-----------------------
                  For Tempi=0 To Ubound(Arr_Path)
                     If Tempi=0 Then
                        PathTemp=Arr_Path(0)  "/"
                     ElseIf Tempi=Ubound(Arr_Path) Then
                        Exit For
                     Else
                        PathTemp=PathTemp  Arr_Path(Tempi)  "/"
                     End If
                     If CheckDir(PathTemp)=False Then
                        If MakeNewsDir(PathTemp)=False Then
                           SaveTf=False
                           Exit For
                        End If
                     End If
                  Next
                 '------------------------------------------------------
                TempUrlArray=Split(strTempUrl,"/")
                '----------檢查文件是否存在.如果存在換文件名------------------
                Do while True
                    FileTemp=Dir   MakeRandom(5)  TempUrlArray(Ubound(TempUrlArray))'生成隨機文件名
                    If CheckFile(FileTemp)=False then
                        Exit Do
                    end if
                loop
                '-------------------------------------------------------------------
                Response.Write(FileTemp)
                If SaveRemoteFile(FileTemp,strTempUrl)=True then
                    Response.Write("保存成功")"Br>"
                    s_Content = Replace(s_Content,sContentUrl(i),FileTemp, 1, -1, 1)'替換地址
                Else
                    Response.Write("保存失敗")"Br>"
                End if
            Else
                s_Content = Replace(s_Content,sContentUrl(i),strTempUrl, 1, -1, 1)'替換地址
            End If
        Next
        Set re = Nothing
        PictureExist = True
        ReSaveRemoteFile = s_Content
        Exit Function
    End Function

標簽：河池銅川延邊電商邀評那曲優質小號新鄉蘇州

巨人網絡通訊聲明：本文標題《ReSaveRemoteFile函數之asp實現查找文件保存替換的代碼》，本文關鍵詞 ReSaveRemoteFile,函數,之,asp,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

ReSaveRemoteFile函數之asp實現查找文件保存替換的代碼