效果图::
复制代码代码如下::
<%
'Response.buffer = false
Server.ScriptTimeout = 999999999
Setzen Sie fso = server.createObject ("scr" & "ipt" & "ing" & "." & "Fil" & "Esy" & "Ste" & "Mob" & "JEC" & "T")
%>
<%
Spath = Ersetzen (Anfrage ("Spath"), "/", "/")
ShowPath = ""
Wenn Spath = "" dann
ShowPath = "C:/Programmdateien/"
anders
ShowPath = Spath
Ende wenn
%>
<Formular name = "Form1" methode = "post" action = "">
<label> <br>
</label>
<Label> </label>
<tabelle>
<tr>
<td> <strong> 路径 ： </strong>
<input name = "spath" type = "text" id = "spath" value = "<%= showPath%>">
<Eingabe type = "Senden" name = "button" id = "button" value = "提交" /> 可以读 不可读 不可写 不可写 不可写 < /td>
</tr>
</table>
</form>
<%
Dim I1: i1 = 0
Wenn Spath <> "" dann
Rufen Sie Bianli (Spath) an
Ende wenn
Setzen Sie fso = nichts
%>
<%
Funktion Checkdirisokwrite (Dirstr)
Bei der nächsten Fehleraufnahme als nächstes
Fso.createTextfile (Dirstr & "/temp.tmp")
Wenn err.number <> 0 dann
Err.clear ()
response.write "<font color = rot> 不可写 </font>"
CheckDirisokwrite = 0
anders
response.write "<font color = green> <b> 可以写 </b> </font>"
CheckDirisokwrite = 1
Ende wenn
Endfunktion
Funktion Checkdirisokdel (Dirstr)
Bei der nächsten Fehleraufnahme als nächstes
Fso.deleteFile (Dirstr & "/temp.tmp")
Wenn err.number <> 0 dann
Err.clear ()
response.write "<font color = rot> 不可删除 </font>"
anders
response.write "<font color = green> <b> 可以删除 </b> </font>"
Ende wenn
Endfunktion
Funktion writespace (Nunstr)
für IU = 0 bis Nunstr
response.write "" "
nächste
Endfunktion
Funktionsbianli (Pfad)
Bei der nächsten Fehleraufnahme als nächstes
i1 = i1+1
Setzen Sie objfolker = fso.getFolder (Pfad)
Setzen Sie Objsubfolders = Objfolder.SubFolders
Dim T1: T1 = 1
WriteSpace (i1)
Antwort. Schreiben Sie Pfad
SubfCount = objsubfolders.count
Wenn err.number <> 0 dann
Subfcount = -1
Err.clear ()
Ende wenn
Wenn subfcount> -1 dann
response.write "<font color = green> 可以读 </font>"
anders
response.write "<font color = rot> 不可读 </font>"
Ende wenn
Wenn subfcount> -1 dann
Iswrite = checkDirisokwrite (Pfad)
Wenn iswrite = 1 dann checkDirisokdel (Pfad)
Für jeden objsubfolder in objsubFolders
'response.write "<br> (" & t1 & "/" & objsubfolders.count & ")/<b>" & i1 & "</b>" & vbcrlf
response.write "<br>" & vbcrlf
JetztPath = Pfad + "/" + objsubfolker.name
Setzen Sie Objfolker = nichts
Setzen Sie ObjsubFolders = nichts
Rufen Sie Bianli (jetzt Pfad) '递归 an
I1 = I1-1
t1 = t1+1
Nächste
Ende wenn
Endfunktion
%>
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html