The subsequent development of the web file manager. . . Selected from iuhxq's Blog
The subsequent development of keyword web file manager. . .
Source
Today I looked at ccopus' DM45 and it was done very well. Before that, I also wanted to make one, a program that is very similar to Windows Explorer. After seeing DM45, I feel like I should give up. WEB file management is operated within permissions in any case, and what everyone implements is similar. It is nothing more than just making a fuss about appearance and easy operation. File management is not very useful. If it is a multi-user permission, it is difficult to control. Since others have done it, I think it is better not to work repeatedly, and it may not be possible to do it well. The following code is posted to commemorate it, realizing the local sorting of files. But the levels between directories have not been well done yet. If you are interested, you can refer to it. In theory, it should be able to implement interfaces and operation methods that are very similar to Windows Explorer. The entire interface adopts a refresh-free approach. Use XMLHTTP to execute background code and use JS to modify foreground display. This reflects a kind of idea, and I hope it will be helpful to beginners.
The code is as follows:
<title>WEB File Manager Version 2.0 http://asp2004.net</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="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:#EEEEE;
}
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:#EEEEE;
}
.tx1{
font-size:9pt;
border:1pxsolid;
border-color:#000000;
color:#000000;
}
-->
</style>
<%
'Copyright Statement: This code is for study and research only. I am not responsible for any consequences caused by the use of this program. No commercial use may be used without the author's written permission.
'QQ: 103895
'email:[email protected]
'http://asp2004.net
Server.ScriptTimeout=999
action=Request("action")
temp=Split(Request.ServerVariables("URL"),"/")
url=temp(UBound(temp))
Constpass=""'Login Password
'Login verification
Setfso=CreateObject("Scripting.FileSystemObject")
Path=Request("foldername")
IfPath=""ThenPath=server.MapPath("./")