Hey,
deze onderstaande code produceert het downloadscherm voor de gewenste file.
<% call downloadFile(replace(replace(Request("file"),"\",""),"/",""))
function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
end function%>
Hoe is het nu mogelijk om te controleren op welke knop de gebruiker klikt (open/save/cancel)? Dit omdat ik wil verifiëren of de file wel effectief wordt gedownload. Is het ook mogelijk te controleren of de download succesfull was?
THX
deze onderstaande code produceert het downloadscherm voor de gewenste file.
<% call downloadFile(replace(replace(Request("file"),"\",""),"/",""))
function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
end function%>
Hoe is het nu mogelijk om te controleren op welke knop de gebruiker klikt (open/save/cancel)? Dit omdat ik wil verifiëren of de file wel effectief wordt gedownload. Is het ook mogelijk te controleren of de download succesfull was?
THX