简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
  •  
    您现在的位置:首页 >> ASP >> 内容

    asp目录读写权限检测脚本

    内容摘要:%'Response.Buffer = FALSEServer.ScriptTimeOut=999999999Set Fso=server.createobject('scr''ipt''ing''.''fil''esy''ste''mob''jec''t')%%sPath=replace(request('sPath'),'/','\')ShowPath=......

      <%

    '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

    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2019/9/18 发布时间:15:43:36 点击:2612 
  • 上一篇:asp 隐藏并修改文件的最后修改时间
  • 下一篇:根据IP地址自动判断转向分站的代码
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2020

    本空间由景安网络提供,百度云加速提供加速防护
    YiJiaCMS V3.31 Build 20.6.5(MSSQL) 闽ICP备05000814号-1