效果图:
复制代码代码如下:
<٪
'استجابة. buffer = خطأ
server.scriptTimeout = 999999999
set fso = server.createBject ("scr" & "ipt" & "ing" & ".
٪>
<٪
spath = استبدال (طلب ("Spath") ، "/" ، "/")
showpath = ""
إذا spath = "" ثم
showpath = "c:/program files/"
آخر
showpath = Spath
إنهاء إذا
٪>
<form name = "form1" method = "post" Action = "">
<blable> <br>
</label>
<billy> </billy>
<griding>
<tr>
<td> <strong> : : </strong>
<input name = "spath" type = "text" id = "spath" value = "<٪ = showpath ٪>">
<type type = "president" name = "button" id = "button" value = "提交" /> 可以读 不可读 可以写 不可写 </td>
</r>
</table>
</form>
<٪
Dim I1: i1 = 0
إذا Spath <> "" ثم
استدعاء بيانلي (Spath)
إنهاء إذا
تعيين fso = لا شيء
٪>
<٪
وظيفة checkdirisokwrite (dirstr)
عند استئناف الخطأ التالي
fso.createTextFile (dirstr & "/temp.tmp")
إذا err.number <> 0 ثم
err.clear ()
استجابة. write "<font color = red> 不可写 </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 = red> 不可删除 </font>"
آخر
استجابة. write "<font color = green> <b> 可以删除 </b> </font>"
إنهاء إذا
وظيفة نهاية
وظيفة وظيفة (نونستر)
لـ 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 ()
إنهاء إذا
إذا subfcount> -1 ثم
استجابة. write "<font color = green> 可以读 </font>"
آخر
استجابة. write "<font color = red> 不可读 </font>"
إنهاء إذا
إذا subfcount> -1 ثم
iswrite = checkdirisokwrite (مسار)
إذا iswwrite = 1 ثم checkdirisokdel (مسار)
لكل Objsubfolder في Objsubfolders
'Response.write "<br> (" & t1 & "/" & objsubfolders.count & ")/<b>" & i1 & "</b>" & vbcrlf
استجابة. "<br>" & vbcrlf
nowpath = path + "/" + objsubfolder.name
تعيين objfolder = لا شيء
تعيين objsubfolders = لا شيء
استدعاء بيانلي (nowpath) '递归
i1 = i1-1
T1 = T1+1
التالي
إنهاء إذا
وظيفة نهاية
٪>
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html