如何使用FSO修改文件夹的名称
作者:cnbruce 来源:cnbruce blog 发布时间:2008-10-11 14:24:00
那天突然的一个灵感,是针对防盗链的。正常上传的文件,若被人盗链则增加了自己服务器的负担,上次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登录处理了。若本文件夹为全图片文件则可以运行成功。
猜你喜欢
- dssaa 问:求一个如奥运倒计时牌那样显示的倒计时程序突然想到这样的一个小程序,不知道能不能做,比如我要在我的主页上挂一个页面,上面只显示
- 一、概述 对象是Oracle8i以上版本中的一个新的特性,对象实际是对一组数据和操作的封装,对象的抽象就是类。在面向对象技术中,对象涉及到以
- 【实用系列】-- 胖页面载入,加载JavaScript效果整理了一下代码,做了一些优化,算是最终版了。完全不需要对其他文件做任何修改,就是所
- CREATE TABLE `category` ( `Id` binary(1
- 下面是我写的NumericStepper:谢谢 果果 和 Rimifon , 我对代码进行了完善, 支持自适应小数位数:
- 客户/服务器体系结构图形化的用户界面,使系统的管理更加直观和简单。丰富的编程接口,为用户进行应用程序设计提供了更大的选择余地。与Window
- 在数据库testDB中存在架构A及用户A,现将testDB数据库所属的用户由A改为B,同时删除用户A;架构也由A改为B,删除架构A,操作如下
- <!--这是一个主页文件--><html><head><meta http-equiv="
- 方法组成模式方法里的所有语句都必须处在同一个归纳层次上无用的注释让代码自我表白标注为什么这样,而不是如何这样对方法表现进行描述等于重复表现这
- 现在不写asp了这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧.先谢谢大家支持! <%@
- 代码如下: <!-- #include file="../conn.asp" --> <!-- #in
- 概要:Oracle关系数据库系统以其卓越的性能获得了广泛的应用,而保证数据库的安全性是数据库管理工作的重要内容。本文是笔者在总结Oracle
- 原来图片自适应宽度一般都是通过Javascript来解决的,但是多少还是比较麻烦。还有一种通过设置外层容器overflow:hidden属性
- PHP+MySQL的组合是构建网站的一个常见搭配,不过如何使用PHP通过Web访问MySQL数据库呢?下面从Web数据库架构的工作原理讲起。
- -- 任意的测试表 代码如下:CREATE TABLE test_delete( name varchar(10), value INT )
- 看到这个标题,你我可能都笑了。你会笑,因为你以为这个东西太小儿科了,还用得着做一个标题?!我会笑,是因为我确信你看完后会改变你的想法。首先我
- MySQL数据库线程缓冲池的相关知识是本文我们主要要介绍的内容,MySQL数据库支持线程缓存,在多线程连接模式下,如果连接断开后,将这个线程
- 字体设计是人类商业活动的需求,它随着时代和科学技术的进步而不断地变化着。被广泛应用于网络生活的各个方面。现代字体设计在计算机技术的应用中已经
- 在SQL Server中,提供了通过Exchange或Outlook收发邮件的扩展存储过程。下面简单地介绍一下:一、启动SQL Mail:x
- 前几天,为了增强本站的SEO,着手把另一个域名:www.aspxhome.com下的所有页面301转向到www.cidianwang.com