那天突然的一個靈感，是針對防盜鏈的

正常上傳的文件，若被人盜鏈則增加了自己服務(wù)器的負(fù)擔(dān)，上次164.cc就因此被掛

然后想想對策，目前各類防盜鏈程序也不少，不過使用也并不簡單，還有就是不能免費……

所以，只有自己先想辦法。那么，現(xiàn)在看看標(biāo)題，再想想防盜鏈，或許就有些眉目了

我可以不定時的修改上傳文件所在的文件夾名稱，而本站程序是動態(tài)獲得文件夾名稱，這樣原先盜用本站文件的站點會因路徑的錯誤而找不到文件，從而也就實現(xiàn)了防盜鏈。
那么，如何使用FSO修改文件夾的名稱呢？
一個簡單的函數(shù)：


總的來說就是拷貝當(dāng)前文件夾的內(nèi)容到新的文件夾中，然后再刪除該文件夾內(nèi)容，從而間接達(dá)到文件夾改名的目的。

這是一個偏執(zhí)狂問題，因為修改文件夾名稱，尤其是要修改名稱的該文件夾內(nèi)容是G量時，這個等待的時間相對FTP遠(yuǎn)程修改名稱就有點不劃算了。

有人說FSO可不可以直接修改文件夾名稱呢？吾莫之。

應(yīng)用該函數(shù)
<%call fldrename("ex01","ex02")%>  

基本意思即將與程序執(zhí)行文件在同一目錄下的 ex01 文件夾名稱修改為 ex02

下面是我在本地的測試情況通報：

1，本程序不消耗程序執(zhí)行時間

2，執(zhí)行1G文件夾間接改名時間需要50秒左右，其實也就是服務(wù)器端的文件復(fù)制轉(zhuǎn)移時間

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

4，若在改名中間突然死機或掉電，則發(fā)生兩種情況：

    a，新文件夾被建立初期(新文件夾并未建好)，下次執(zhí)行程序，會發(fā)生 錯誤類型：Microsoft VBScript 運行時錯誤 (0x800A003A)文件已存在，此時只能FTP刪除新文件夾再執(zhí)行（嘗試使用FSO刪除新文件夾并未湊效）。

    b，已經(jīng)復(fù)制了部分文件，下次執(zhí)行程序，自動覆蓋已復(fù)制的文件夾內(nèi)容，原文件夾內(nèi)容依然存在。只有在復(fù)制完畢后，才會將原文件夾及其文件刪除。

5，同時需要注意新文件夾的名稱，避免和已有文件夾名稱重名，當(dāng)然也可用程序判斷

6，若在修改文件夾名稱的同時，文件夾內(nèi)有數(shù)據(jù)庫相關(guān)操作、音樂文件正在被播放，則顯示為Microsoft VBScript 運行時錯誤 (0x800A0046)沒有權(quán)限，主要即是刪除原有文件夾出現(xiàn)的問題（音樂文件已被刪除、但文件夾未能被刪除）。只有FTP登錄處理了。若本文件夾為全圖片文件則可以運行成功。

最新評論