I saw CCOPUS DM45 today, I did very good, I also want to do it before this, do a very similar program with Windows Explorer. After seeing DM45, I feel that I still give up, the file management of the web mode is always permission to operate in the permission, and everyone is also almost the same, nothing more than the appearance, easy to operate the article, and document management Not very big, if it is more difficult to control, since others do it, I don't want to repeat the labor, and it is not good. The following code is posted, and the file is locally sorted by the file. But the level between the catalog has not yet been doing. Interested can take the reference, theory should be able to implement a very similar interface and operational way with Windows Explorer. The entire interface is not refreshed. Use XMLHTTP to perform the background code, use JS to modify the front desk display. Here is a kind of thought, I hope to have a help to beginners. The code is as follows:
'Copyright Notice: This code is for learning research only, and I am not responsible for any consequences caused by this procedure. Not available for commercial use without written permission. 'QQ: 103895'Email: quixiaohui_0@163.com'http: //ASP2004.NET
Server.scripttimeout = 999Action = request ("action") TEMP = Split (Request.ServerVariables ("URL"), "/") URL = Temp (Ubound (Temp))
Const pass = "" 'login password
'Login verification
SET FSO = CREATEOBJECT ("scripting.filesystemObject") Path = Request ("Foldername") if path = "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ". folder
Function ShowFolderList (Folderspec) Temp = Request.ServerVariables ("http_referer") TEMP = Left (Temp, INSTRREV (Temp, "/")) TEMP1 = LEN (Folderspec) - LEN (Server.MAppath ("./")) 1 IF TEMP1> 0 THEN TEMP1 = Right (Folderspec, CINT (TEMP1)) "/" Elseif Temp1 = -1 TEMP1 = "" End if Tempurl = Temp Replace (TEMP1, "/", "/") Uppath = "./" Replace (TEMP1, "/", "/") Upfolderspec = fso.getParentFoldername (Folderspec & "/") Set f = fso.getfolder (folderspec)%>