效果图:
复制代码代码如下:
<%
'Response.Buffer = False
Server.scripttimeout = 999999999
Establecer fso = server.createObject ("scr" & "ipt" & "ing" & "." & "Fil" & "esy" & "ste" & "mob" & "jec" & "t")
%>
<%
spath = reemplazar (request ("spath"), "/", "/")
ShowPath = ""
Si spath = "" entonces
ShowPath = "c:/programa de programa/"
demás
Showpath = spath
final si
%>
<form de nombre = "form1" método = "post" action = "">
<Lelabel> <br>
</seleting>
<label> </etiqueta>
<Table>
<tr>
<TD> <strong> 路径 ： </strong>
<input name = "spath" type = "text" id = "spath" value = "<%= showPath%>">
<input type = "Subt" name = "Button" id = "Button" Value = "提交" /> 可以读 不可读 可以写 不可写 </td>
</tr>
</table>
</form>
<%
Dim I1: I1 = 0
Si Spath <> "" entonces
Llame a Bianli (Spath)
final si
Establecer FSO = nada
%>
<%
Función checkDirisokWrite (Dirstr)
En el currículum de error siguiente
FSO.CreateTextFile (dirstr & "/temp.tmp")
Si err.number <> 0 entonces
Err.Clear ()
Response.write "<font color = rojo> 不可写 </font>"
CheckDirisokWrite = 0
demás
Response.write "<font color = verde> <b> 可以写 </b> </font>"
CheckDirisokWrite = 1
final si
Función final
Función checkDirisokdel (Dirstr)
En el currículum de error siguiente
Fso.deletefile (dirstr & "/temp.tmp")
Si err.number <> 0 entonces
Err.Clear ()
Response.write "<font color = rojo> 不可删除 </font>"
demás
Response.write "<font color = verde> <b> 可以删除 </b> </font>"
final si
Función final
FUNCIÓN WRITESPACE (NUNSTR)
para iu = 0 a nunstr
Respuesta. Escribe ""
próximo
Función final
Función bianli (ruta)
En el currículum de error siguiente
i1 = i1+1
Establecer objfolder = fso.getfolder (ruta)
Establecer objsubfolders = objfolder.subfolders
Dim T1: T1 = 1
WriteSpace (i1)
respuesta.
Subfcount = objsubfolders.count
Si err.number <> 0 entonces
Subfcount = -1
Err.Clear ()
final si
Si subfcount> -1 entonces
Response.write "<font color = verde> 可以读 </font>"
demás
Response.write "<font color = rojo> 不可读 </font>"
final si
Si subfcount> -1 entonces
Iswrite = checkDirisokwrite (ruta)
if iswrite = 1 entonces checkDirisokdel (ruta)
Para cada objsubfolder en objsubfolders
'Response.write "<br> (" & t1 & "/" & objsubfolders.count & ")/<b>" & i1 & "</b>" & vbcrlf
Response.write "<br>" y vbcrlf
Nowpath = ruta + "/" + objsubfolder.name
Establecer objfolder = nada
Establecer objsubfolders = nada
Llame a Bianli (Nowpath) '递归
i1 = i1-1
T1 = T1+1
Próximo
final si
Función final
%>
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html