ASP 下载文件源码

[ljia168]

这里有一段别人的代码，可是我应用起来总出错，不知为何，有哪位大侠可否给小妹提供个更好的文件下载代码呢，谢谢
Sometimes you want a user to download a binary file instead of opening it inside the browser window.
There are several different ways to accomplish this.
Generically:
<%
FileName = "Document.Doc"
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename =" & filename
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Open
Stream.LoadFromFile Server.MapPath(Filename)
Conents = Stream.ReadText
Response.BinaryWrite Contents
Stream.Close
Set Stream = Nothing
%>

If you know the file type that you would like the user to download, try:
<%
Filename = "document.doc"
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "attachment; filename=" & filename
%>
Other Content Types:
vnd.ms-excel - For Excel
vnd.ms-powerpoint - For PowerPoint
vnd.ms-project - For Microsoft Project
pdf - For Adobe Acrobat Documents
rtf - For Rick Text Documents
vnd.lotus-wordpro - For WordPro
vnd.lotus-1-2-3 - For Lotus 1-2-3
vnd.visio - For Visio
jpeg - for JPG Image File
gif - for GIF Image File
png - for PNG Image File

[linlusheng]

http://search.download.csdn.net/search/%E6%96%87%E4%BB%B6%E4%B8%8B%E8%BD%BD

[go786]

点击链接下载文件吗？你没说清楚 我电脑有个文件就行

[ljia168]

是啊，正是如此

[go786]

我用过的代码 asp的

<%   
  Dim   Stream   
  Dim   Contents   
  Dim   FileName   
  Dim   FileExt   
  Const   adTypeBinary   =   1   
    
    
  FileName   =   "1.jpg"   
  if   FileName   =   ""   Then   
          Response.Write   "无效文件名."   
          Response.End   
  End   if   
  '取得文件名   
  FileSaveName   =   Mid(FileName,   InStrRev(FileName,   "/")   +   1)   
  '   下面是不希望下载的文件   
  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   
  Response.AddHeader   "content-disposition",   "attachment;   filename="&FileSaveName   
  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   
  %> 

[Henson]

好像就是这个readtext有问题,去掉这一行后,不能下载指定地址的文件,而是下载网页,怎么回事?

[乞丐921]

<%
dim fs7,strName,Stream,Conents
set fs7=Server.CreateObject("Scripting.FileSystemObject")
strName="c:\\1.txt"
FileName = fs7.getfilename(strName)
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename =" & Filename
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Mode = 3
Stream.type=1
Stream.Open
Stream.LoadFromFile strName
Conents = Stream.Read
Stream.Close
Set Stream = Nothing
set fs7=nothing
response.BinaryWrite(Conents)
Response.Flush
response.End()

%>