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

时间: 2024-09-20 01:08:59

ReSaveRemoteFile函数之asp实现查找文件保存替换的代码的相关文章

ReSaveRemoteFile函数之asp实现查找文件保存替换的代码_应用技巧

'================================================     '函数名:ReSaveRemoteFile     '作  用:查找文件保存替换     '参  数:Str   ----原字符串     '参  数:url   ----当然网站URL     '参  数:Dir -----保存目录     '参  数:InSave ------是否保存,True,False     '返回值:格式化取后的字符串     '===============

实现ASP.NET多文件上传程序代码_实用技巧

upload.aspx 复制代码 代码如下: <%@ Page language="c#" Codebehind="UpLoad.aspx.cs" AutoEventWireup="false" Inherits="WebPortal.Upload" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >

asp ajax无刷新保存数据程序代码

//首先创建访问对象 request  代码如下 复制代码 var request = false; try{  request = new XMLHttpRequest(); } catch (trymicrosoft) {   try{     request = new ActiveXObject("Msxml2.XMLHTTP");    }   catch (othermicrosoft) {     try {       request = new ActiveXObje

ASP操作XML文件的完整实例代码

复制代码 代码如下: <% '---------------------------------------------------------------- '程序简介: 完成asp语言对XML文档中指定节点文本的增加.删除.修改.查看 '入口参数: 无 '出口参数: 无 '------------------------------------------------ '函数名字:ConnectXml() '入口参数: filename 需要连接或打开的xml文件名 '出口参数: 无 '返回

asp导出excel文件最简单方便的方法_应用技巧

由于excel软件能识别table格式的数据,所以asp只需要输出table格式的html代码,同时设置好contenttype,增加保存为附件的响应头即可将输出的html代码保存为xls文件. asp导出excel文件源代码如下: 复制代码 代码如下: <% Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment

asp.net实现文件上传

用ASP.NET实现文件上传是件非常简单的事,这里我给出一个实例,希望能对朋友们有帮助.具体代码如下:  代码如下 复制代码 <%@ Import Namespace="System.IO" %> <%@ page Language="C#" debug="true" %> <html> <head> <title>上传文件,http://www.111cn.net </title

asp导出excel文件最简单方便的方法

由于excel软件能识别table格式的数据,所以asp只需要输出table格式的html代码,同时设置好contenttype,增加保存为附件的响应头即可将输出的html代码保存为xls文件. asp导出excel文件源代码如下: 复制代码 代码如下: <% Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment

C# ASP.NET查找数据生成Excel时提示保存,但保存失败,重新下载后保存成功但是打开时提示文件已经损坏!Excel2010,请指教,谢谢!

问题描述 C#ASP.NET查找数据生成Excel时提示保存,但保存失败,重新下载后保存成功但是打开时提示文件已经损坏!Excel2010,请指教,谢谢!我的下载方法代码如下:publicvoidDownLoad(stringExcelName,stringFileName){try{if(!String.IsNullOrEmpty(ExcelName)||!String.IsNullOrEmpty(FileName)){Response.Charset="GB2312";Respon

asp.net 上传文件保存到数据库的方法( C#)

asp教程.net 上传文件保存到数据库教程的方法( C#) C#做一个小的程序,其中用涉及到了照片的存取与显示,在网上搜索了很多有关的代码,但是几乎没有完整,大部分只是其中的存取或者显示代码,笔者将其整理了一下,形成了一个集照片上传到数据库.照片显示于一体的小模块. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawin