作家
登录

asp目录读写权限检测脚本 TestFolder

作者: 来源:www.28hudong.com 2013-03-30 08:14:06 阅读 我要评论

效果图: 复制代码 代码如下: <% '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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)