<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"