谁做过这样的下载系统，用户可以把各类文件(word文档、JPG等及EXE可执行文件)上传到服务器，并在另一页可以按类型提供下载功能。

[wxr9999]

谁做过这样的下载系统，用户可以把各类文件(word文档、JPG等及EXE可执行文件)上传到服务器，并在另一页可以按类型提供下载功能。

[wxr9999]

up.

[xupiao]

不太明白你的意思

按文件名分類保存在一個表中

[yhncom_36]

你的意思就是任意文件的上传吗!

[qdubit]

关注！

[pengzan]

我有，留个信箱吧

[qunluo]

[e-mail]

[wxr9999]

一个上载系统。

[zhljsdly]

是不是上传到服务器然后再自动压缩啊，不明白

[srj911]

关注中，顶

[iinohk]

我做過…
問題不過在上傳文件而已，基本沒什麼難道，用心的話菜鳥也一定做到

[wxr9999]

非常感谢啊！！！
mail: [e-mail]

[yuqun]

[e-mail]
也给我一个吧 多谢

[simon810610]

[e-mail]我也要一份,谢谢!

[oliver007]

[e-mail]
多谢

[jfly301]

[e-mail]
看看

[fenlin]

[e-mail]

要一份,谢谢

[超级大笨狼]

下载任何文件（尤其是IE关联打开的）
第一个文件连接处这么写
<a name="download"
href="<%if 是会员 then response.write "download.asp?filename=" & myfilename%>">
下载<%=myfilename%></a>

第二个文件：
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>