上传用户管理用：admin（ID, Name, Password, Type）
保存上传文件数据：files（ID, ParentID, FileName, FileLength, FileType, FileData, UpDate, UserID）。
如果FileLength=0，则表示其为文件夹，并且为每个用户建立一个根文件夹。
● 第二步：建立用户登陆页面，并使用SESSION将用户的ID保存起来，用于限制其对文件的操作。
Session("Name") = list("SName")
Session("UID") = list("ID")
● 第三步：建立用户主页面（显示用户上传过的文件）
strSQL = "SELECT * FROM files WHERE ParentID=" &userRootID ' userRootId 为用户根文件夹的ID
strSQL = strSQL &" AND UserID=" &SESSION("UID")
strSQL = strSQL &" ORDER BY FileName"
● 第四步：上传文件页面
list.AddNew
list("ParentID") = userRootID
list("FileName") = Form("Name")
list("FileLength") = Form("Length")
list("FileType") = Form("Type")
list("FileData").AppendChunk MidB(sdata,Form("Start"),Form("Length"))
list("UserID") = Session("UID")
list("UpDate") = Now()
list.Update
● 第五步：文件管理操作（使用文件的ID对文件进行表识，并且对用户的操作进行限制）
删除："DELETE * FROM files WHERE ID=" &iID &" AND UserID=" &Session("UID")
下载："SELECT * FROM files WHERE ID=" &iID &" AND UserID=" &Session("UID")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open myConnStr
Set list = conn.Execute("SELECT * FROM files WHERE ID=" &iID &" AND UserID=" &Session("UID"))
If NOT list.EOF Then
If list("FileLength") >0 Then
Response.AddHeader "Content-disposition", "inlinefilename=" &list("FileName")
Response.ContentType = list("FileType")
Response.Binarywrite(list("FileData").GetChunk(list("FileLength")))
End If
End If
● 再完成一些其他的辅助操作页面即可。当然由于浏览器的限制，文件上传的续传技术不能直接使用，只能通过客户端软件来实现。网络上有个软件叫“上传文件管理器”（包含ASP源代码），实现了上面的功能。
如何用SA-FileUp上传多个文件？表单处理：
<%@ LANGUAGE="VBSCRIPT" %>
<HTML><HEAD>
<TITLE>多个文件上传</TITLE>
</HEAD>
<BODY>
<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>
<% upl.Form("f1").SaveAs "C:\intels\upload1.out" %><BR>
文件1共写入字节数: <%=upl.Form("f1").TotalBytes%>
<% upl.Form("f2").SaveAs "C:\intels\upload2.out" %><BR>
文件2共写入字节数: <%=upl.Form("f2").TotalBytes%>
</BODY>
</HTML>
提供一个源码下载，http://code.cnz.cc/2006/49520.html当然，不能下载的就右键另存为，这个应该算常识，就不多说了。
--------------------------------------------------
秋忆工作室在线文件管理器 v4.4 使用说明：
系统介绍：
1、本系统由ASP编写，在线管理文件包括上传、下载、编辑、批量复制、批量粘贴、批量移动、批量删除等等功能。
2、本系统代码完全由手动编写，不产生任何一丁点的HTML代码冗余。
3、文件管理界面仿照Windows资源管理器设计，文件图标采用XP标准图标。
4、真的多用户管理，分管理员与普通用户。
5、用户密码采用自定义MD5增强加密，暴力破解可以说没有什么机会。
6、每个用户管理特定目录，采用Session加密变量检测，用户不能通过修改Session值提升权限。
7、对IE浏览器与Netscape浏览器都兼容。
8、用户在同一时间只能在一个IP登陆，即不能同时在两个以上IP登陆。
9、文件上传采用 无组件（支持进度条）、AspUpLoad（支持进度条）、SA-FileUp、LyfUpload 四种组件上传。
10、可以配置文件上传格式和单个文件大小。
11、文件在线编辑采用FSO与ADODB.Stream，双剑合壁，支持任何编码文件读取与保存。
12、文件夹在线打包、解包，可以打包下载网站文件。
13、简单方便明了的用户目录空间占用统计
欢迎分享，转载请注明来源：夏雨云
微信扫一扫
支付宝扫一扫
评论列表（0条）