ciao,
ho una pagina asp che mi chiama un'altra pagina per fare il download
la pagina di download è chiamata con <a href='download.asp'>
l'allegato viene scaricato correttamente, il fatto è che io vorrei che la finestra download una volta che mi ha aperto l'allegato si chiudesse.
Mi potete aiutare?
grazie
nella pagina di download ho il seguente codice:
<%
file= request("file")
nome=request("nome")
strFilePath = Server.mapPath(file)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFilePath) Then
Set objFile = objFSO.GetFile(strFilePath)
intFileSize = objFile.Size
Set objFile = Nothing
Response.AddHeader "Content-Disposition","attachment; filename=" & nome
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Length", intFileSize
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile strFilePath
Do While Not objStream.EOS And Response.IsClientConnected
Response.BinaryWrite objStream.Read(305200)
Response.Flush()
Loop
objStream.Close
Set objStream = Nothing
Else
Response.write "Error finding file."
End if
Set objFSO = Nothing
%>
ho una pagina asp che mi chiama un'altra pagina per fare il download
la pagina di download è chiamata con <a href='download.asp'>
l'allegato viene scaricato correttamente, il fatto è che io vorrei che la finestra download una volta che mi ha aperto l'allegato si chiudesse.
Mi potete aiutare?
grazie
nella pagina di download ho il seguente codice:
<%
file= request("file")
nome=request("nome")
strFilePath = Server.mapPath(file)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFilePath) Then
Set objFile = objFSO.GetFile(strFilePath)
intFileSize = objFile.Size
Set objFile = Nothing
Response.AddHeader "Content-Disposition","attachment; filename=" & nome
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Length", intFileSize
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile strFilePath
Do While Not objStream.EOS And Response.IsClientConnected
Response.BinaryWrite objStream.Read(305200)
Response.Flush()
Loop
objStream.Close
Set objStream = Nothing
Else
Response.write "Error finding file."
End if
Set objFSO = Nothing
%>