Tjek om download via BinaryWrite bliver færdig?
Jeg bruger denne for at sikre fil download på min server, men hvordan tjekker jeg om man bliver færdig med at downloade filen ? , ved det kan lade sig gøre, bare ikke hvordan :)Om muligt skal det være sådan at den redirecter til en specificeret siden eller opdatere i en database, når man har downloadet filen...
<% Option Explicit %>
<%
Response.ExpiresAbsolute = Now() - 1
Dim sDirName
Dim sFileName
Dim oMyObject
sDirName = "files\"
sFileName = Server.HTMLEncode("test.mp3")
If sFileName <> "" Then
Dim vntStream
Response.Buffer = TRUE
Response.ContentType = "application/octet-stream"
Set oMyObject = Server.CreateObject("MyObject.BinRead")
vntStream = oMyObject.readBinFile("c:\privat\" & sDirName & sFileName)
Response.Addheader "Content-Disposition", "inline; filename=" & sFileName
Response.CacheControl = "public"
Response.BinaryWrite(vntStream)
Set oMyObject = Nothing
Response.End
Else
Response.Redirect ("error_page.asp?01")
End If
%>
