效果图:
复制代码 代码如下: <% 'Response.Buffer = FALSE Server.ScriptTimeOut=999999999 Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t") %> <% sPath=replace(request("sPath"),"/","") ShowPath="" if sPath="" then ShowPath="C:Program Files" else ShowPath=sPath end if %> <form name="form1" method="post" action=""> <label><br> </label> <label> </label> <table width="80%" border="0"> <tr> <td><strong>路径:</strong> <input name="sPath" type="text" id="sPath" value="<%=ShowPath%>" style="width:500px;height:25px"> <input style="width:160px;height:28px" type="submit" name="button" id="button" value="提交" /> 可以读 不可读 可以写 不可写</td> </tr> </table> </form> <% Dim i1:i1=0 if sPath<>"" then Call Bianli(sPath) end if Set Fso=nothing %> <% Function CheckDirIsOKWrite(DirStr) On Error Resume Next Fso.CreateTextFile(DirStr&"temp.tmp") if Err.number<>0 then Err.Clear() response.write " <font color=red>不可写</font>" CheckDirIsOKWrite=0 else response.write " <font color=green><b>可以写</b></font>" CheckDirIsOKWrite=1 end if End Function Function CheckDirIsOKDel(DirStr) On Error Resume Next Fso.DeleteFile(DirStr&"temp.tmp") if Err.number<>0 then Err.Clear() response.write " <font color=red>不可删除</font>" else response.write " <font color=green><b>可以删除</b></font>" end if End Function Function WriteSpace(NunStr) for iu=0 to NunStr response.write " " next End Function Function Bianli(path) On Error Resume Next i1=i1+1 Set Objfolder=fso.getfolder(path) Set Objsubfolders=objfolder.subfolders dim t1:t1=1 WriteSpace(i1) response.write path SubFCount=Objsubfolders.count if Err.number<>0 then SubFCount=-1 Err.Clear() end if if SubFCount>-1 then response.write " <font color=green>可以读</font>" else response.write " <font color=red>不可读</font>" end if if SubFCount>-1 then IsWrite=CheckDirIsOKWrite(path) if IsWrite=1 then CheckDirIsOKDel(path) For Each Objsubfolder In Objsubfolders 'response.write "<br>("&t1&"/"&Objsubfolders.count&")/<b>"&i1&"</b> "&vbcrlf response.write "<br> "&vbcrlf Nowpath=path + "" + Objsubfolder.name Set Objfolder=nothing Set Objsubfolders=nothing Call Bianli(nowpath)'递归 i1=i1-1 t1=t1+1 Next end if End Function %> 另外脚本之家提供一份源码下载http://www.jb51.net/codes/39929.html
推荐阅读
ASP分页时计算页面总数的几种算法小结
下面是我从网上找到三种ASP分页时计算页面总数的方法,此方法仅为分页时计算页面总数,并非整个分页代码: 方法一 复制代码 代码如下: ' HTMer_RecordCount为要计算的页面总数 ' HTMer_RecordCount为记录集数 ' HT>>>详细阅读
本文标题:asp目录读写权限检测脚本 TestFolder
地址:http://www.17bianji.com/kaifa2/ASP/31792.html
1/2 1