小熊写的东西,好东西留下研究![1]

<title>web文件管理器2.0版 http://asp2004.net</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a {
 font-size: 9pt;
 color: #3300cc;
 text-decoration: none;
}
body {
 font-size: 9pt;
 margin-left: 0px;
 margin-top: 0px;
 margin-right: 0px;
 margin-bottom: 0px;
 line-height: 20px;
 background-color: #eeeeee;
}
td {
 font-size: 9pt;
 line-height: 20px;
}
.tx {
 border-color:#000000;
 border-left-width: 0px;
 border-top-width: 0px;
 border-right-width: 0px;
 border-bottom-width: 1px;
 font-size: 9pt;
 background-color: #eeeeee;
}
.tx1 {
 font-size: 9pt;
 border: 1px solid;
 border-color:#000000;
 color: #000000;
}
-->
</style>
<%

'版权声明：本代码仅供学习研究之用，本人不对因使用本程序而造成的任何后果负责。未经作者书面许可不得用于商业用途。
'qq：103895
'email:quxiaohui_0@163.com
'http://asp2004.net

server.scripttimeout = 999
action = request("action")
temp = split(request.servervariables("url"), "/")
url = temp(ubound(temp))

const pass = "asp2004.net"'登陆密码

'登陆验证
call chklogin()

set fso = createobject("scripting.filesystemobject")

select case action
    case "新建文件"
        call fileform(request("path")&"\")
    case "savefile"
        call savefile(request("filename"), request("content"), request("filename1"))
    case "新建文件夹"
        call newfolder(request("path")&"\")
    case "savefolder"
        call savefolder(request("foldername"))
    case "编辑"
        call edit(request("f"))
    case "重命名"
        call renameform(request("f"))
    case "saverename"
        call rename(request("oldname"), request("newname"))
    case "剪切"
        session("f") = request("f")
        session("action") = action
        response.redirect(url&"?foldername="&request("path"))
    case "复制"
        session("f") = request("f")
        session("action") = action
        response.redirect(url&"?foldername="&request("path"))
    case "粘贴"
        call affix(request("path")&"\")
    case "删除"
        call delete( request("f"), request("path") )
    case "uploadform"
        call uploadform(request("filepath"), request("path"))
    case "saveupload"
        call saveupload()
    case "下载"
        call download(request("f"))
    case "打包"
        dim str, s, s1, s2, rep
        call dabao( request("f"), request("path") )
    case "解包"
        call jiebao(request("f"), request("path"))
    case "退出"
        call logout()
    case else
        path = request("foldername")
        if path = "" then path = server.mappath("./")
        showfolderlist(path)
end select
set fso = nothing

'列出文件和文件夹