Download fil, og luk vinduet
Jeg har et popup-vindue, som skal lukkes når filen er gået igang med at downloade, for ikke bare at have et tomt vindue hængende.Jeg har en almindelig download-kode på, og prøver så at lukke vinduet med et javascript efterfølgende, men det bliver ignoreret når contenttype sættes.
Kan det passe, at det ikke kan lade sig gøre? Det sidste af koden ser således ud:
<%
Const adTypeBinary = 1
Response.Expires = 0
Response.Buffer = TRUE
Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "Mac")) Then
response.write "Hold ctrl-knappen nede og klik på dette link. Vælg 'Download image to Disk'.<br><a href='" & picname & "'>Klik her</a>"
else
if (inStr(uAgent, "IE")) Then
' Explorer
Response.ContentType = "m_type"
Response.AddHeader "Content-Disposition", "attachment; filename="& saveAsPicname
Else
' NetScape
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & picName & chr(34)
End if
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(picName)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
end if 'Mac
%>
<SCRIPT LANGUAGE="JavaScript"><!--
window.close();
//--></SCRIPT>
