效果圖:
複製** **如下:
'response.buffer = false
server.scripttimeout=999999999
set fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"程式設計客棧jec"www.cppcns.com&"t")
%>
spath=replace(request("spath"),"/","\")
showpath=""
if spath="" then
showpath="c:\program files\"
else
showpath=spath
end if
%>
dim i1:i1=0
if spath<>"" then
call bianli(spath)
end if
set fso=nothing
%>
function checkdirisokwrite(dirstr)
on error resume next
fso.createtextfile(dirstr&"\temp.tmp")
if err.number<>0 then
err.clear()
response.write " 不可寫"
checkdirisokwrite=0
else
response.write " 可以寫"
checkdirisokwrite=1
end if
end function
function checkdirisokdel(dirstr)
on error resume next
fso.deletefile(dirstr&"\temp.tmp")
if err.number<>0 then
err.clear()
response.write " >不可刪除"
else
response.write 程式設計客棧" 可以刪除"
end if
end function
function writespace(nunstr)
for iu=0 to nunstr
response.write " "
next
end function
function bianli(path)
on error resume next
i1=i1+1
set objfolder=fso.getfolder(path)
set objsubfolders=objfolder.subfolders
dim t1:t1=1
writespace(i1)
response.write path
subfcount=objsubfolders.count
if err.number<>0 then
subfcount=-1
err.clear()
end if
if subfcount>-1 then
response.write " 可以讀"
else
response.write " 不可讀"
end if
if subfcount>-1 then
iswrite=checkdirisokwrite(path)
if iswrite=1 then checkdirisokdel(path)
for each objsubfolder in objsubfolders
'response.write "
("&t1&"/"&objsubfolders.count&")/"&i1&" "&vbcrlf
response.write "
"&vbcrlf
nowpath=path + "\" + objsubfolder.name
set objfolder=nothing
set objsubfolders=nothing
call bianli(nowpath)'遞迴
i1=i1-1
t1=t1+1
next
end if
end function
%>
另外我們提供乙份原始碼**
本文標題: asp目錄讀寫許可權檢測指令碼 testfolder
本文位址:
檢測某賬戶對預設許可權目錄是否可寫的指令碼
檢測某賬戶對預設許可權目錄是否可寫的指令碼 echo find writable diretory by 無敵最寂寞 est echo now search root directiory is 1 echo off for d i in 1 do echo aaa i superlone.txt ...
Linux目錄讀寫和可執行許可權
一 進入目錄許可權 如果我在普通使用者下建立了乙個目錄f1，然後使用chomd u rwx,g rwx,o rwx之後，我在普通使用者下想進入f1目錄，許可權不允許。然後我切換到超級使用者下，再次嘗試進入到f1目錄，這個時候允許進入。然後回到普通使用者下，只給f1的所有者讀的許可權，然後在普通使用者...
Linux目錄讀寫和可執行許可權
linux目錄讀寫和可執行許可權。一 進入目錄許可權 如果我在普通使用者下建立了乙個目錄f1，然後使用chomd u rwx,g rwx,o rwx之後，我在普通使用者下想進入f1目錄，許可權不允許。然後我切換到超級使用者下，再次嘗試進入到f1目錄，這個時候允許進入。然後回到普通使用者下，只給f1的...