效果图 :
复制代码代码如下 :
<%
'응답 .buffer = false
Server.ScriptTimeout = 99999999
set fso = server.createObject ( "scr"& "ipt"& "ing"& "."& "fil"& "esy"& "stey"& "mob"& "jec"& "t")
%>
<%
spath = replace (request ( "spath"), "/", "/")
showpath = ""
Spath = ""라면
showpath = "c :/program files/"
또 다른
showpath = spath
끝 If
%>
<form name = "form1"method = "post"action = "">
<라벨> <br>
</레이블>
<라벨> </label>
<테이블>
<tr>
<td> <strong> 路径 ： </strong>
<입력 이름 = "spath"type = "text"id = "spath"value = "<%= showpath%>">
<입력 유형 = "제출"이름 = "버튼"id = "버튼"value = "提交" /> 可以读 可以写 不可写 不可写 < /td>
</tr>
</테이블>
</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
또 다른
응답. "<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>"
또 다른
응답. "<font color = green> <b> </b> </font>"
끝 If
엔드 기능
기능 writespace (nunstr)
iu = 0에서 nunstr로
response.write ""
다음
엔드 기능
기능 bianli (경로)
다음에 오류가 재개됩니다
i1 = i1+1
set objfolder = fso.getfolder (경로)
objsubfolders = objfolder.subfolders를 설정합니다
DIM T1 : T1 = 1
writespace (i1)
응답. 경로를 작성하십시오
subfcount = objsubfolders.count
err.number <> 0 인 경우
하위 수익 = -1
err.clear ()
끝 If
subfount> -1 인 경우
response.write "<font color = green> 可以读 </font>"
또 다른
response.write "<font color = red> 不可读 </font>"
끝 If
subfount> -1 인 경우
iswrite = CheckDirisokWrite (경로)
iSwrite = 1 인 경우 CheckDirisokdel (Path)
objsubfolders의 각 objsubfolder에 대해
'응답. "<br> ("& t1 & "/"& objsubfolders.count & ")/<b>"& i1 & "</b>"& vbcrlf
응답. "<br>"& vbcrlf
nowpath = path + "/" + objsubfolder.name
OBJFolder = 아무것도 설정하지 않습니다
objsubfolders = 아무것도 설정하지 않습니다
Bianli (nowpath) '递归에 전화하십시오
i1 = i1-1
T1 = T1+1
다음
끝 If
엔드 기능
%>
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html