怎么写上传,下载的代码

Question

http://www.google.com/search?q=%E6%97%A0%E7%BB%84%E4%BB%B6&ie=UTF-8&oe=UTF-8&hl=zh-CN&btnG=Google%E6%90%9C%E7%B4%A2&lr=
下载：<a href="xxx.zip">

Answer 1

谢谢, 不过用<a href="xxx">对于有些文件,如txt, word, rm会直接打开.我想要的效果是无论如何都会出现下载框进行下载.有没有高招

Answer 2

上传与下载的例子你到ASP看里面的FAQ呀

Answer 3

Response.AddHeader "Content-Disposition", "filename="+ rs.fields("FileName").value)
Response.ContentType="application/octet-stream"
Response.BinaryWrite rs.fields("FileCont").value

Answer 4

function downloadFile(strFile)
strFilename = server.MapPath(strFile) Response.Buffer = True
Response.Clear

Set s = Server.CreateObject("ADODB.Stream")
s.Open

s.Type = 1

on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
%><script>alert("无法下载，在服务器找不到该文件!")</script><%
Response.End
end if Set f = fso.GetFile(strFilename)
intFilelength = f.size s.LoadFromFile(strFilename)
if err then
%><script>alert("<%=err.Description%>")</script><%
Response.End
end if

Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush

s.Close
Set s = Nothing
End Function