我可以不定時的修改上傳文件所在的文件夾名稱,而本站程序是動態獲得文件夾名稱,這樣原先盜用本站文件的站點會因路徑的錯誤而找不到文件,從而也就實現了防盜鏈。 那么,如何使用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