一、在開始裏運行：regsvr32.exe scrrun.dll
這(zhè)是開啓FSO組建的(de)命令。
二、如果分(fēn)區(qū)爲NTFS，則找到對(duì)應目錄（被操作的(de)文件所在的(de)目錄），設置用(yòng)戶使用(yòng)權限：屬性---安全---users/everyone（爲保證網站安全，建議(yì)增加iusr_計算(suàn)機名，設置爲完全控制權限）
三、網絡上搜索的(de)基本就到這(zhè)裏了(le)，但我的(de)悲慘經曆告訴我，沒有over：按照(zhào)上面操作還(hái)是沒有解決問題！一般問題僅剩下(xià)FSO組建删除文件了(le)。查看你要删除的(de)文件，看是否設置爲“隻讀”，這(zhè)樣fso代碼就應爲：fso.deletefile 文件完整路徑,true，這(zhè)裏的(de)true，表示包括隻讀指令的(de)文件也(yě)将被删除！
錯誤發生原因：
由于NTFS的(de)文件系統對(duì)于匿名用(yòng)戶的(de)賦予的(de)權限不夠
錯誤提示：
Microsoft VBScript 運行時(shí)錯誤 錯誤 '800a0046'
沒有權限
解決方法：
打開要寫入的(de)文件夾，點擊右鍵選擇屬性，選擇安全選項卡，點擊添加，然後在列表中選擇IUSR_USER1，選擇确定，然後在安全選項卡名稱中會多(duō)一個(gè)用(yòng)戶，點擊新添的(de)用(yòng)戶，把權限全部打上鈎就沒有問題了(le)
以下(xià)是删除服務器中的(de)文件代碼，僅供參考
<%'删除文件（适合所有文件）
Function Deltextfile(fileurl)'參數爲相對(duì)路徑
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileurl = Server.MapPath(fileurl)
if objFSO.FileExists(fileurl) then '檢查文件是否存在
objFSO.DeleteFile(fileurl)
end if
Set objFSO = nothing
End Function
'删除網站根目錄下(xià)的(de)file.txt文件
Deltextfile "文件名"
%>
