Download script

Er der en måde man kan lave et download script, så brugern ikke kan se filen hvor den bliver hentet. lidt a la det her::

<%

Response.Buffer = True
Response.Clear
Response.AddHeader "content-disposition", "attachment; filename=zipfile.zip"
Response.ContentType = "application/x-zip-compressed"

Const adTypeBinary = 1
Dim strFilePath

strFilePath = request("file") &".zip"

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing
%>

problemet er bare at da aspbyfferlimit kun er på 4 megabyte, mens min fil er meget større, er der en workaround... Og som ikke belaster webhotellet så meget...