• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    使用FSO修改文件夹的名称实现文件转移防盗链
    那天突然的一个灵感,是针对防盗链的

    正常上传的文件,若被人盗链则增加了自己服务器的负担,上次164.cc就因此被挂

    然后想想对策,目前各类防盗链程序也不少,不过使用也并不简单,还有就是不能免费……

    所以,只有自己先想办法。那么,现在看看标题,再想想防盗链,或许就有些眉目了

    我可以不定时的修改上传文件所在的文件夹名称,而本站程序是动态获得文件夹名称,这样原先盗用本站文件的站点会因路径的错误而找不到文件,从而也就实现了防盗链。
    那么,如何使用FSO修改文件夹的名称呢?
    一个简单的函数:
    复制代码 代码如下:


    Function fldrename(nowfld,newfld) 
    nowfld=server.mappath(nowfld) 
    newfld=server.mappath(newfld) 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    if not fso.FolderExists(nowfld) then 
        response.write("需要修改的文件夹路径不正确或文件夹名称输入错误") 
    else 
        fso.CopyFolder nowfld,newfld 
        fso.DeleteFolder(nowfld) 
    end if 
    set fso=nothing 

    End Function 
    %> 


    总的来说就是拷贝当前文件夹的内容到新的文件夹中,然后再删除该文件夹内容,从而间接达到文件夹改名的目的。

    这是一个偏执狂问题,因为修改文件夹名称,尤其是要修改名称的该文件夹内容是G量时,这个等待的时间相对FTP远程修改名称就有点不划算了。

    有人说FSO可不可以直接修改文件夹名称呢?吾莫之。

    应用该函数
    %call fldrename("ex01","ex02")%>  

    基本意思即将与程序执行文件在同一目录下的 ex01 文件夹名称修改为 ex02

    下面是我在本地的测试情况通报:

    1,本程序不消耗程序执行时间

    2,执行1G文件夹间接改名时间需要50秒左右,其实也就是服务器端的文件复制转移时间

    3,CPU消耗不算太高,30%左右

    4,若在改名中间突然死机或掉电,则发生两种情况:

        a,新文件夹被建立初期(新文件夹并未建好),下次执行程序,会发生 错误类型:Microsoft VBScript 运行时错误 (0x800A003A)文件已存在,此时只能FTP删除新文件夹再执行(尝试使用FSO删除新文件夹并未凑效)。

        b,已经复制了部分文件,下次执行程序,自动覆盖已复制的文件夹内容,原文件夹内容依然存在。只有在复制完毕后,才会将原文件夹及其文件删除。

    5,同时需要注意新文件夹的名称,避免和已有文件夹名称重名,当然也可用程序判断
    复制代码 代码如下:


    Function fldrename(nowfld,newfld) 

    nowfld=server.mappath(nowfld) 
    newfld=server.mappath(newfld) 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    if not fso.FolderExists(nowfld) then 
        response.write("需要修改的文件夹路径不正确或文件夹名称输入错误") 
    else 
        if fso.FolderExists(newfld) then  
            response.write("您命名的新文件夹名称已经存在") 
        else 
            fso.CopyFolder nowfld,newfld 
            fso.DeleteFolder(nowfld) 
        end if 
    end if 
    set fso=nothing 

    End Function 
    %>   

    6,若在修改文件夹名称的同时,文件夹内有数据库相关操作、音乐文件正在被播放,则显示为Microsoft VBScript 运行时错误 (0x800A0046)没有权限,主要即是删除原有文件夹出现的问题(音乐文件已被删除、但文件夹未能被删除)。只有FTP登录处理了。若本文件夹为全图片文件则可以运行成功。
    您可能感兴趣的文章:
    • asp fso操作类
    • asp结合fso实现文件或文件夹创建删除等操作的函数
    • asp下利用fso实现文件夹或文件移动改名等操作函数
    • fso asp生成静态html的代码
    • ASP+FSO可视化目录编历(可增、删、改)下载
    • asp下用ADODB.Stream代替FSO读取文本文件
    • 设置FSO权限功能的说明
    • ASP FSO文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)
    上一篇:asp中使用mysql数据库的注意实现
    下一篇:asp水印组件之AspJpeg的结合代码实例
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    使用FSO修改文件夹的名称实现文件转移防盗链 使用,FSO,修改,文件夹,的,