Ciao a tutti,
ho un piccolo problema con il download dei file tramite il protocollo http.
Quando cerco di scaricare un file di medie dimensione, cioè superiore a 4MB il download mi viene bloccato con la barra delle informazioni di Intenet explorer mentre se è inferiore a 4MB il tutto funziona correttamente.
Il mio applicativo è su un server 2003 con IIS 6.0(non so se può essere utile).
Per finire inserisco anche il codice della pagina
<%
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
strFilePath = Request.QueryString("File")
strFileSize = Request.QueryString("Size")
strFileName = Request.QueryString("Name")
Response.Clear
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
'response.write strFilesize
'response.end
strFileType = lcase(Right(strFileName, 4))
Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
objStream.LoadFromFile strFilePath
Case ".avi"
ContentType = "video/avi"
objStream.LoadFromFile strFilePath
Case ".doc"
ContentType = "application/msword"
objStream.LoadFromFile strFilePath
Case ".zip"
ContentType = "application/zip"
objStream.LoadFromFile strFilePath
Case ".xls"
ContentType = "application/vnd.ms-excel"
objStream.LoadFromFile strFilePath
Case ".gif"
ContentType = "image/gif"
objStream.LoadFromFile strFilePath
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
objStream.LoadFromFile strFilePath
Case ".wav"
ContentType = "audio/wav"
objStream.LoadFromFile strFilePath
Case ".mp3"
ContentType = "audio/mpeg3"
objStream.LoadFromFile strFilePath
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
objStream.LoadFromFile strFilePath
Case ".rtf"
ContentType = "application/rtf"
objStream.LoadFromFile strFilePath
Case ".htm", "html"
ContentType = "text/html"
objStream.LoadFromFile strFilePath
Case ".asp"
ContentType = "text/asp"
objStream.LoadFromFile strFilePath
case ".txt"
ContentType="text/txt"
objStream.LoadFromFile strFilePath
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
objStream.LoadFromFile strFilePath
End Select
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.AddHeader "Content-Length", strFileSize
' In a Perfect World, Your Client would also have UTF-8 as the default
' In Their Browser
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
%>
Vi ringrazio per la disponibilità
Rispondi quotando