VB icon

Simple Download Method with Streams

Email
Submitted on: 1/6/2015 10:32:00 AM
By: Daniel Verzellesi (from psc cd)  
Level: Intermediate
User Rating: By 5 Users
Compatibility: ASP (Active Server Pages)
Views: 795
 
     Enables you to put a certain degree of protection in files available for download in you IIS Server by making them inaccessible by a direct URL. Hides them in other directory, out of wwwroot.
 
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
				
'**************************************
' Name: Simple Download Method with Streams
' Description:Enables you to put a certain degree of protection in files available for download in you IIS Server by making them inaccessible by a direct URL. Hides them in other directory, out of wwwroot.
' By: Daniel Verzellesi (from psc cd)
'
' Inputs:Pass the file name.
'
' Returns:Get the file written in binary format into Request.
'**************************************

<%
	'-- DOWNLOAD.ASP
	'
	'-- Simple Download Method with Streams
	' Daniel Verzellesi
	'
	' As an example I'm getting the file I want to download
	' from the Request (//.../dowload.asp?fname=myfile1.doc).
	' You can change it to get the file name from a DB or
	' anything else...
	'
	Dim p, st, f
	'-- my "secret" path
	p = "c:\files\"
	'-- file name
	f = Request.QueryString("fname")
	'-- get file into stream
	Set st = CreateObject("ADODB.Stream")
	st.Open
	st.Type = 1 'binary
	st.LoadFromFile p & f
	'-- send stream to response
	Response.ContentType = "application/my-download"
	Response.AddHeader "Content-Disposition", "attachment; filename=""" & f & """"
	Response.BinaryWrite st.Read(-1) 'read all
	Response.End 
	'-- close the stream
	set st = nothing
%>


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.