Great ASP Download Script

A lot of people have been asking about this ASP script. Many people are charging for this script when in reality it doesn’t need to be charged. In any case, here’s the script in all its glory:
<%
‘DownloadFile ASP Script
‘Script courtesy of: http://www.xefteri.com/articles/show.cfm?id=7
On Error Resume Next
‘The following code is optional. The real code is found in “DownloadFile,” a few lines below:
Dim strPath
strPath = CStr(file)
‘– do some basic error checking for the QueryString
If strPath = “” Then
Response.Clear
Response.Write(“No file specified.”)
Response.End
ElseIf InStr(strPath, “..”) > 0 Then
Response.Clear
Response.Write(“Illegal folder location.”)
Response.End
ElseIf Len(strPath) > 1024 Then
Response.Clear
Response.Write(“Folder path too long.”)
Response.End
Else
Call DownloadFile(strPath)
End If
‘This is the script!
Private Sub DownloadFile(file)
‘–declare variables
Dim strAbsFile
Dim strFileExtension
Dim objFSO
Dim objFile
Dim objStream
‘– set absolute file location
strAbsFile = Server.MapPath(file)
‘– create FSO object to check if file exists and get properties
Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
‘– check to see if the file exists
If objFSO.FileExists(strAbsFile) Then
Set objFile = objFSO.GetFile(strAbsFile)
‘– first clear the response, and then set the appropriate headers
Response.Clear
‘– the filename you give it will be the one that is shown
‘ to the users by default when they save
Response.AddHeader “Content-Disposition”, “attachment; filename=” & objFile.Name
Response.AddHeader “Content-Length”, objFile.Size
Response.ContentType = “application/octet-stream”
Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Open
‘– set as binary
objStream.Type = 1
Response.CharSet = “UTF-8”
‘– load into the stream the file
objStream.LoadFromFile(strAbsFile)
‘– send the stream in the response
‘Response.BinaryWrite(objStream.Read)
do while not (objStream.EOS)
response.BinaryWrite (objStream.Read(1024*256))
loop
objStream.Close
Set objStream = Nothing
Set objFile = Nothing
Else ‘objFSO.FileExists(strAbsFile)
Response.Clear
Response.Write(“No such file exists.”)
End If
Set objFSO = Nothing
End Sub
%>
It’s simple! Just call “Call Download(whateverfilename)” and you’re good to go!

Comments

comments

Recent Posts