web文件管理器的后續開發
2024-05-04 10:58:10
供稿：網友
web文件管理器的后續開發。。。 選擇自 iuhxq 的 Blog
關鍵字 web文件管理器的后續開發。。。
出處
今天看了一下ccopus的DM45，做的很不錯，在這之前我也想做一個了，做一個跟windows資源管理器非常類似的程序。看到dm45以后覺得自己還是放棄吧，WEB方式的文件管理無論如何都是在權限允許內操作，而且大家實現的也都差不多，無非是在外觀上，易操作上做文章，文件管理本來作用也不是很大，如果是多用戶的權限比較難控制，既然別人做了，我想還是不要重復勞動的好，況且也不見得能做的好。下面的代碼貼出來留個紀念，實現了文件的本地排序。但目錄之間的層次還沒有搞好。有興趣的可以拿去參考，理論上應該可以實現跟windows資源管理器極類似的界面和操作方式。整個界面都采取無刷新方式。用XMLHTTP來執行后臺代碼，用JS來修改前臺顯示。這里體現了一種思想，希望對初學者能有個幫助。
代碼如下：
<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 = ""'登陸密碼
'登陸驗證
Set fso = CreateObject("Scripting.FileSystemObject")
Path = Request("foldername")
If Path = "" Then Path = server.MapPath("./")
