将文件保存在客户端计算机上

• 下载源代码文件 - 4 Kb

标题：在客户端计算机上保存文件
作者：Jitendra Bansiwal
邮箱：jkbansiwal@hotmail.com
环境：ASP

引言

此 ASP 页面将文件从 Web 服务器复制到客户端计算机，无需压缩文件。

使用代码

复制代码并保存为 .asp 文件，然后在浏览器中打开

  Response.buffer = TRUE
  Response.AddHeader "content-disposition","attachment; filename=MyFile.doc"

  Const adTypeBinary = 1
  'Create Stream object
   Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeBinary
  
  'Open the stream
  BinaryStream.Open
  
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile "C:\Abc.doc"
  
  'Open the stream And get binary data from the object
  dim  BinaryData
  BinaryData = BinaryStream.Read
  Response.BinaryWrite(BinaryData)
 Set BinaryStream = Nothing

   Response.End