asp目录读写权限检测脚本测试文件夹

效果图：

复制代码代码如下": %"响应。缓冲区=假服务器脚本超时=999999999设置Fso=服务器。' createobject(' SCR ' ' ipt ' ' ing ' ')'fil ' ' esy ' ' ste ' ' mob ' ' jec ' ' t ')% % Spath=replace(request(' Spath ')，'/'，' \') ShowPath=' '如果Spath='，则显示路径=' c : \程序文件'否则显示路径=Spath end如果% form name=' form 1 '方法=' post '操作=' label br/label/label表格宽度=' 80% '边框=' 0 ' tr t strong路径：/strong输入名称='sPath '类型='text' id='sPath '值=' %=显示路径% ' style=' width :500 px高度：25 px '输入样式='宽度：160 px高度：28 px ' type=' submit ' name=' button ' id=' button ' value='提交'/可以读不可读可以写不可写/TD/tr/table/form % Dim I 1: i1=0如果sPath“”则调用李昪(sPath)结束如果设置Fso=nothing % % Function CheckDirIsOKWrite(DirStr)On Error Resume Next Fso .如果Err.number0则创建文本文件(DirStr'\temp.tmp ')然后呃.clear()响应。书写字体颜色=红色不可写/font ' CheckDirIsOKWrite=0 else响应。书写字体颜色=绿色可以写/font ' CheckDirIsOKWrite=1 End if End Function CheckDirIsOKDel(DirStr)On Error Resume Next Fso .如果Err.number0则删除文件(DirStr'\temp.tmp ')，然后删除呃.clear()响应。书写字体颜色=红色不可删除/font ' else响应。“write”字体颜色=绿色可以删除/font ' End if End Function将iu=0的空格(NunStr)写入NunStr响应。写下“下一个结束函数”李昪（路径)错误恢复下一个i1=i1 1设置对象文件夹=FSO。getfolder(路径)设置Objsubfolders=objfolder。子文件夹dim t 1: t1=1写空间(i1)响应。写路径子计数=Objsubfolders。数数如果Err.number0则子计数=-1 Err .如果子计数-1,则清除()结束如果，然后响应字体颜色=绿色可以读/font ' else响应。书写字体颜色=红色不可读/font '如果子计数为1，则结束然后IsWrite=CheckDirIsOKWrite(路径)如果IsWrite=1然后CheckDirIsOKDel(路径)对于Objsubfolders响应中的每个Objsubfolders。写“br(' t1 '/”Objsubfolders。count()/“i1”vbcrlf响应。写入' br ' vbcrlf Nowpath=path ' \ ' Objsubfolder。名称集对象文件夹=无对象子文件夹=无调用李昪(现在路径)递归i1=i1-1 t1=t1 1下一个结束，如果结束功能%另外我们提供一份源码下载//www .JB 51。net/codes/39929。超文本标记语言