Скачать файл работает на firefox, а не в других браузерах

Question

в режиме загрузки моей функции загрузки работает нормально, когда я развертываю на своем производстве (сервер nas с IIS 7.5) те же функции работают только в Firefox. С IE, Edge и Chrome начало загрузки, но оно не доходит до конца, и через минуту получите сообщение об ошибке. Я знаю, что в Интернете много документации, но я просто попробовал множество решений безрезультатно. Пожалуйста, помогите мне.

@Page Language="VB" ContentType="text/html" 

@Import Namespace="System.Data" 

@Import Namespace="System.Data.SqlClient" 

@Import Namespace="System.IO" 


Private SUB SDataBind() 

    'Path construction 
     Dim VarFileName as string = "mytest.zip" 

    'Path construction 
     Dim VarPath as string = "/public/mydownload" & VarFileName 

    'Absolute path 
     Dim VarCompletPath as string = Server.MapPath(VarPath) 
     VarCompletPath = replace(VarCompletPath,"/","\") 

    'Filename construction 
     Dim VarLast4Char as string = right(VarFileName,4) 
     Dim VarNewFilename as string = "download" & VarLast4Char 

    'Headers cleaner 
     Response.Clear 
     Response.ClearHeaders 
     Response.ClearContent 

    'Send the file to the browser 
     Response.AddHeader("Content-Disposition", ("attachment;filename=" & VarNewFilename)) 
     Response.ContentType = ReturnFiletype( right(VarFileName,4) ) 
     Response.WriteFile(VarCompletPath) 
     Response.Flush() 
     Response.Close() 
     Response.End 

end sub 


'---------------------------- 

'Get content file type 
Private function ReturnFiletype(fileExtension as string) as string 

    Select Case fileExtension 

     case ".zip" 
      return "application/zip" 
     case ".pdf" 
      return "application/pdf" 
     case else 
      return "application/octet-stream" 
     end select 

end function 

Answer 1

я решил с более классической функции

'Очистите заголовки Response.Clear Response.ClearHeaders Response.ClearContent

' Отправить файл в браузере Response.AddHeader ("Content -Disposition ", (" attachment; filename = "& VarFileName)) Response.WriteFile (Server.MapPath (VarPath)) Response.End

Я удалил строки Response.Flush() Response.Close()