效果图：
复制代码代码如下：
<％
'response.buffer = false
server.scripttimeout = 999999999
fso = server.createObject（ "scr"＆ "ipt"＆ "ing"＆ "
％>
<％
spath = lepter（request（ "spath"）、 "/"、 "/"）
showpath = ""
spath = "" thenの場合
showpath = "c：/program files/"
それ以外
showpath = spath
ifを終了します
％>
<form name = "form1" method = "post" action = "">
<ラベル> <br>
</label>
<ラベル> </label>
<表>
<tr>
<td> <strong>路径：</strong>
<input name = "spath" type = "text" id = "spath" value = "<％= showpath％>">
<入力型= "submit" name = "button" id = "button" value = "提交" />可以读
</tr>
</table>
</form>
<％
DIM I1：I1 = 0
spath <> ""その後
Bianli（Spath）に電話する
ifを終了します
FSO =何も設定しません
％>
<％
関数checkdirisokwrite（dirstr）
エラーの再開時に次に再開します
fso.createTextfile（dirstr＆ "/temp.tmp"）
err.number <> 0の場合
err.clear（）
Response.Write "<font color = red>不可写</font>"
checkdirisokwrite = 0
それ以外
Response.Write "<font color = green> <b>可以写</b> </font>"
checkdirisokwrite = 1
ifを終了します
エンド関数
関数checkdirisokdel（dirstr）
エラーの再開時に次に再開します
fso.deletefile（dirstr＆ "/temp.tmp"）
err.number <> 0の場合
err.clear（）
Response.Write "<font color = red>不可删除</font>"
それ以外
Response.Write "<font color = green> <b>可以删除</b> </font>"
ifを終了します
エンド関数
function writespace（nunstr）
iu = 0の場合
Response.Write ""
次
エンド関数
機能ビアンリ（パス）
エラーの再開時に次に再開します
I1 = I1+1
objfolder = fso.getFolder（PATH）を設定します
objsubfolders = objfolder.subfoldersを設定します
DIM T1：T1 = 1
WriteSpace（I1）
Response.Writeパス
subfcount = objsubfolders.count
err.number <> 0の場合
subfcount = -1
err.clear（）
ifを終了します
subfcount> -1の場合
Response.Write "<font color = green>可以读</font>"
それ以外
Response.Write "<font color = red>不可读</font>"
ifを終了します
subfcount> -1の場合
iswrite = checkdirisokwrite（path）
iswrite = 1の場合、checkdirisokdel（path）
objsubfoldersの各objsubfolderについて
'Response.Write "<br>（"＆t1＆ "/"＆objsubfolders.count＆ "）/<b>"＆i1＆ "</b>"＆vbcrlf
Response.Write "<br>"＆vbcrlf
nowpath = path + "/" + objsubfolder.name
objfolder = Nothingを設定します
objsubfolders = Nothingを設定します
Bianli（NowPath） 'を呼び出します
I1 = I1-1
T1 = T1+1
次
ifを終了します
エンド関数
％>
另外错新站长站提供一份源码下载//www.vevb.com/codes/39929.html