效果图:
复制代码代码如下:
<%
'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