Save file on client computer

• Download source files - 4 Kb

Title: Save file on client computer
Author: Jitendra Bansiwal
Email: jkbansiwal@hotmail.com
Environmen : ASP

Introduction

This ASP page copy file from web server to client machine without zip the file.

Using the code

Copy the code and save as .asp and open in browser

 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