Force download file (ASP)

Any file on a web server can be downloaded to the client. The IUSR_MACHINENAME (or Everyone) account needs read access to that file for it be be downloaded. MDAC 2.5 or later is needed for this to work - http://www.microsoft.com/data/download_250rtm.htm

JScript:

// clear buffer
Response.Buffer = true;
Response.Clear();
// path to file
var sFilePath = Server.MapPath("/path/to/file.pdf");
// attachment name (without extension), this will be what the name of the downloaded file will be
var sAttachName = "attachmentname";
// remove spaces, else file may not download
sAttachName = sAttachName.replace(/\s/g,"");
// create filesystem object
var oFSO = Server.CreateObject("Scripting.FileSystemObject");
// check if file exists
if(!oFSO.FileExists(sFilePath)){
	Response.Write('<strong>File does not exist. <a href="'+Request.ServerVariables("HTTP_REFERER")+'">Go back</s>.</strong>');
	Response.End();
}
// get file
var oFile = oFSO.GetFile(sFilePath);
// get file size
var nFileSize = oFile.Size;
// get extension
var sExt = sFilePath.substring(sFilePath.lastIndexOf("."));
// download as attachment
Response.AddHeader("Content-Disposition","attachment;filename="+sAttachName+sExt);
// add content length header (for showing progress of download)
Response.AddHeader("Content-Length", nFileSize); 
// set to always download by setting content type
Response.ContentType = "application/octet-stream";
// create stream
var oStream = Server.CreateObject("ADODB.Stream");
// open stream
oStream.Open;
// set type of stream to binary
oStream.Type = 1;
// load data from file into stream
oStream.LoadFromFile(sFilePath);
// send data to client
Response.BinaryWrite(oStream.Read);
// close stream and end output to client
oStream.Close;
Response.End();

VBScript:

Option Explicit
' declare variables
Dim sFilePath, sAttachName, oFSO, oFile, nFileSize, sExt, oStream
' clear buffer
Response.Buffer = True
Response.Clear
' path to file
sFilePath = Server.MapPath("/path/to/file.pdf")
' attachment name (without extension), this will be what the name of the downloaded file will be
sAttachName = "attachmentname"
' remove spaces, else file may not download
sAttachName = Replace(sAttachName," ","")
' create filesystem object
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
' check if file exists
If oFSO.FileExists(sFilePath) = False Then
	Response.Write("<strong>File does not exist. <a href="""&Request.ServerVariables("HTTP_REFERER")&""">Go back</s>.</strong>")
	Response.End
End If
' get file
Set oFile = oFSO.GetFile(sFilePath)
' get file size
nFileSize = oFile.Size
' clear file system object
Set oFile = Nothing
Set oFSO = Nothing
' get extension
sExt = Right(sFilePath, (Len(sFilePath) - InStrRev(sFilePath,".",-1,1) + 1) )
' download as attachment
Response.AddHeader "Content-Disposition","attachment;filename="&sAttachName&sExt
' add content length header (for showing progress of download)
Response.AddHeader "Content-Length", nFileSize
' set to always download by setting content type
Response.ContentType = "application/octet-stream"
' create stream
Set oStream = Server.CreateObject("ADODB.Stream")
' open stream
oStream.Open
' set type of stream to binary
oStream.Type = 1
' load data from file into stream
oStream.LoadFromFile sFilePath
' send data to client
Response.BinaryWrite oStream.Read
' close stream and end output to client
oStream.Close
Set oStream = Nothing
Response.End

Comments

Post a Comment

Popular posts from this blog

Select box manipulation with jQuery

If you read the jQuery mailing list , you may be aware that I have updated my plugins for working with select boxes . Summary of changes: addOption replaces any options with the same value (so think of it as an add/replace options plugin selectOptions selected options in addition to what was already selected, but there is now an option for it not to do this There are two new methods: copyOptions which is for copying options between select boxes ajaxAddOption allows you to add options via AJAX (i.e. could be used for create options dynamically from a server script)
Read more

iTextSharp: Generating a Basic PDF file (ASP.NET/C#)

iTextSharp is free library for .NET that allows you to create PDF documents. It can be used to dynamically create PDF's which can be streamed to the user. As there is no HTML being sent to the user, a WebHandler (ashx file) is a more appropriate way to generate your PDF than an aspx page. Download itextsharp-3.0.10-dll.zip (latest version as of 08 Feb 2006) and save the dll in the archive to your websites bin directory. Here is a basic sample of creating a PDF (more complex samples may follow in future posts). BasicPDF.ashx <%@ WebHandler Language="C#" Class="MyNamespace.BasicPDF" %> using System; using System.IO; using System.Web; using iTextSharp.text; using iTextSharp.text.pdf; namespace MyNamespace { public class BasicPDF: IHttpHandler { public bool IsReusable { get { return true; } } /// <summary> /// Font used for any hyperlinks added to the PDF /// </summary> private Font LinkFont { get ...
Read more

Popup Window Countdown (JavaScript)

This code opens a new popup window that contains a timer that counts down, then closes the window when it reaches 0. Will not work if user has a popup blocker blocking the page. <html> <head> <title>Popup Timer</title> <script language="JavaScript" type="text/JavaScript"> // popup window var var popup; // At what number shall the countdown counter start? CounterStart = 10; // This function CustomAction() can be modified to do // whatever you want done every second. function CustomAction() { popup.document.timer.timeleft.value = CounterStart; } // end of function CustomAction() // end of JavaScript customization function Decrement() { CounterStart--; CustomAction(); if(CounterStart <= 0) { popup.close(); alert('Timer reached 0'); } else { setTimeout('Decrement()',1000); } } function StartTheCounter() { openPopup(120,100); setTimeout('Decrement()',1000); } f...
Read more