我需要你的小帮助，因为我试图从VBNet Develop下载大量数据。
此代码在我的本地PC上工作正常（5MB / 8MB文件），但是当我在服务器上传版本时，它只适用于小于4MB的生成文件。
我认为这与响应超时有关，但我对服务器上的IIS配置进行了一些更改。没结果！
这是我的VBNet代码
Dim dt As New DataTable
Dim objNeg As New Negocio.tempExcel(sg)
dt = objNeg.getReportData(strnombreProcedimiento, parametros)
If strnombreReporte Is String.Empty Then
strnombreReporte = "GenericReport"
End If
Dim worksheet = workbook.Worksheets.Add("Sheet")
Dim intCol As Integer = 1
Dim intRow As Integer = 2
Dim indexTotal As Integer = 0
Dim excelFormat As String
For Each row As DataRow In dt.Rows
indexTotal += 1
For Each rowColumnConfig As DataRow In dtColumnasPorUsuario.Rows
Dim index As Integer = 0 Dim isKey As String = rowColumnConfig.Item("IC_KEY").ToString
Dim nameColumn As String = rowColumnConfig.Item("DS_ITEM").ToString
Dim headerColumn As String = rowColumnConfig.Item("DS_NICK_OBJECT_ITEM").ToString
Dim alignColumn As String = rowColumnConfig.Item("VL_ORDER_DIM1").ToString
Dim formatColumn As String = rowColumnConfig.Item("DS_NICK_MASK").ToString
Dim maxQttyChars As String = rowColumnConfig.Item("QT_CHARS").ToString
Dim stringLength As String
For Each rowColumnConfig As DataRow In dtColumnasPorUsuario.Rows
Dim headerColumn As String = rowColumnConfig.Item("DS_NICK_OBJECT_ITEM").ToString
Dim maxCharsOnColumn As String = rowColumnConfig.Item("QT_CHARS").ToString
Dim isKey As String = rowColumnConfig.Item("IC_KEY").ToString
Dim nameColumn As String = rowColumnConfig.Item("DS_ITEM").ToString
If isKey = "N" then
worksheet.Cell(1, rowIndex).Value = headerColumn.Trim
#If DEBUG then
worksheet.Cell(1, rowIndex).Value = nameColumn.Trim
#End If
'worksheet.Cell(1, rowIndex).Style.Font.Bold = True
worksheet.Cell(1, rowIndex).Style.Font.FontName = "Calibri"
worksheet.Cell(1, rowIndex).Style.Font.FontSize = CDec(12)
'worksheet.Cell(1, rowIndex).Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
worksheet.Cell(1, rowIndex).Style.Border.SetBottomBorder(XLBorderStyleValues.Thin)
worksheet.Cell(1, rowIndex).Style.Border.SetLeftBorder(XLBorderStyleValues.Thin)
worksheet.Cell(1, rowIndex).Style.Border.SetRightBorder(XLBorderStyleValues.Thin)
worksheet.Cell(1, rowIndex).Style.Border.SetTopBorder(XLBorderStyleValues.Thin)
worksheet.Column(rowIndex).Width = Convert.ToDouble(maxCharsOnColumn) + 4
rowIndex += 1
End If
Next
worksheet.Cell(indexTotal + 3, 1).Value = "DATE: " + DateTime.Now.ToString("MM/dd/yyyy HH:mm:ss")
worksheet.Cell(indexTotal + 3, 1).Style.Font.Bold = True
Dim fileName As String
fileName = DateTime.Now.ToString.Trim.Replace("/", "").Replace(":", "").Replace(" ", "").ToString + "_" + strnombreReporte.ToString.ToUpper + "_" + sg.UsuarioLogueado.ToString.ToUpper + ".xlsx"
Dim path As String
Dim urlServer As string
Dim HttpResponse As HttpResponse = Response
Dim clientURL As String = HttpContext.Current.Request.Url.Scheme + HttpContext.Current.Request.Url.SchemeDelimiter + HttpContext.Current.Request.Url.Authority + "/FTSNet/Excel/" + fileName
Dim isLocal As String = String.Empty
urlServer = Server.MapPath("~")
path = urlServer + "/" +"Excel" + "/" + fileName
worksheet.Workbook.SaveAs(path)
Me.hdnFileName.Value = fileName
Dim file As System.IO.FileInfo
file = New FileInfo(path)
ScriptManager.RegisterStartupScript(Me, Page.GetType, "Script", "window.open('"+clientURL+"');", True) 'Retorna al cliente para poder descargar el archivo
'ScriptManager.RegisterStartupScript(me.GetType(), "dsadas", "window.open('"+clientURL+"');", true)
If (file.Exists) then
Dim content As New LiteralControl("<script type='text/javascript'>" & "exportExcel('" & fileName & "','" & isLocal & "');" & "</script>")
Me.WARPLista.Controls.Add(content)
ScriptManager.RegisterStartupScript(Me, Page.GetType, "Script", "exportExcel('" & fileName & "','" & isLocal & "');", True)
return
End If
Catch fex As FTS.Entidades.ExcepcionFTS
Me.msgMensajes.MostrarError(fex, True)
Catch ex As Exception
Me.msgMensajes.MostrarError(ex, True)
End Try
End Sub`
问题是当我尝试在Web服务器上执行时。生成文件，但长时间执行后应用程序不会返回。你能帮我正确配置IIS吗？提前谢谢！