testFolder - asp目录读写权限测试脚本

发布时间：2023-06-23 14:50:17 所属栏目：Asp教程来源：

导读：T00LS 检测星外可执行目录的一个工具，今天刚好用到，记录下。检测了下运气差得很，全盘只能读不能写，检测读写权限的时候将以下代码保存为x.asp上传到网站修改检测目录，点提交即可

复制代码代码如下:

<%

T00LS 检测星外可执行目录的一个工具，今天刚好用到，记录下。检测了下运气差得很，全盘只能读不能写，检测读写权限的时候将以下代码保存为x.asp上传到网站修改检测目录，点提交即可

复制代码代码如下:

<%

'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

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!