web文件管理器的后续开发
来源：
中文源码网 浏览：148 次 日期：2024-05-11 09:31:20
【下载文档: web文件管理器的后续开发.txt 】
web文件管理器的后续开发
web文件管理器的后续开发。。。 选择自 iuhxq 的 Blog 关键字 web文件管理器的后续开发。。。 出处 今天看了一下ccopus的DM45，做的很不错，在这之前我也想做一个了，做一个跟windows资源管理器非常类似的程序。看到dm45以后觉得自己还是放弃吧，WEB方式的文件管理无论如何都是在权限允许内操作，而且大家实现的也都差不多，无非是在外观上，易操作上做文章，文件管理本来作用也不是很大，如果是多用户的权限比较难控制，既然别人做了，我想还是不要重复劳动的好，况且也不见得能做的好。下面的代码贴出来留个纪念，实现了文件的本地排序。但目录之间的层次还没有搞好。有兴趣的可以拿去参考，理论上应该可以实现跟windows资源管理器极类似的界面和操作方式。整个界面都采取无刷新方式。用XMLHTTP来执行后台代码，用JS来修改前台显示。这里体现了一种思想，希望对初学者能有个帮助。 代码如下：
WEB文件管理器2.0版 http://asp2004.net <% '版权声明：本代码仅供学习研究之用，本人不对因使用本程序而造成的任何后果负责。未经作者书面许可不得用于商业用途。 '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("./") ShowFolderList(Path) Set fso = Nothing '列出文件和文件夹 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 Then temp1 = "" End If tempurl = temp + Replace(temp1, "\", "/") uppath = "./" + Replace(temp1, "\", "/") upfolderspec = fso.GetParentFolderName(folderspec&"\") Set f = fso.GetFolder(folderspec) %>
<% Response.Write("") End Function function jscode(s) jscode = replace(s,"\","\\\\") end function %>
