用vb.net开发的程序,在前台有个按钮,用户点击这个按钮,然后在后台生成一个csv文件,然后将页面跳转到另一个页面。
现在的问题是在服务器本地可以实现,但是在web上页面不跳转,后台的csv已经生成,button_click触发事件中代码已经运行完,但是客户端的页面就是不跳转。
请各位大侠帮忙看看,这是什么问题!

解决方案 »

  1.   

    具体的代码
    Private Sub btnDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownLoad.Click
                InitProperty()
                Dim datetimes() As String = Split(Request("ddlDate"), "^")
                Dim v_saledate() As String = Split(datetimes(1), "-")
                SDA_DBOper = New SDA_sales_common_dboper            Dim OutletsStr As String = Request("lsbOutlet")
                Dim Outlets() As String
                Outlets = Split(OutletsStr, ",")
              
                Dim IsLastWeek As Boolean                      ReDim Preserve Outlets(Outlets.GetUpperBound(0) + 1)
                Dim Models(0) As String
                Models(0) = Nothing
                BDWCTObj = BusinessDatesWithCommitTime.Parse(Request("ddlDate"))
                Dim SqlConnPspt As SqlConnection
                Dim strmas As String
                SqlConnPspt = DataHelper.GetConn(WebConfiger.getInstance().GetConnString(Dbs.DB_PSPT))
                '开始记录日志
                Dim logcomm As Odc.WriteLog = New Odc.WriteLog
                Dim strtmp As String
                'If Session("UserId") = "esshp094" Then
                strtmp = "------saler[" & Session("UserId") & "]下载csv文件---开始得到数据---"
                logcomm.WriteLineLog(strtmp)
                'End If
                SaleDatetbale = PsptDataHelper.GetSDASaleDataASDTNoSaleData(BgId, CType(BDWCTObj.GetBusinessDates()(0).GetDate(), PhiDate), SalerId, Outlets, Models, SqlConnPspt, strmas)
                SqlConnPspt.Close()
                Dim intcounts As String = SaleDatetbale.Rows.Count
                If intcounts = 0 Then
                    Me.Alert("对不起,未任何发现记录,不能下载模板.原因:" & strmas)
                    Return
                End If
               
                strtmp = "------saler[" & Session("UserId") & "]下载csv文件---数据返回结束---"
                logcomm.WriteLineLog(strtmp)
                           Dim FileName As String = ""
                FileName = DateTime.Now.ToShortTimeString          
                strtmp = "------saler[" & Session("UserId") & "]下载csv文件---开始生成文件---"
                logcomm.WriteLineLog(strtmp)
                          Dim obj As New Random
                FileName = CType(Session("userid"), String) + obj.Next().ToString + FileName + ".csv"
                FileName = FileName.Replace(":", "")
                Me.ExportFile(Me.MapPath("..\xls files") + "\" + FileName, IsLastWeek)
                Me.ancLink.HRef = "..\xls files" + "\" + FileName
               
                strtmp = "------saler[" & Session("UserId") & "]下载csv文件---文件生成结束---"
                logcomm.WriteLineLog(strtmp)
                           Server.Transfer("csvfileupload.aspx?filename=" + FileName)
              
            End Sub
      

  2.   

    在服务器本地执行没有问题,日志记录也OK,
    但是就是在客户端执行的时候,后台文件已经生成,日记记录ok,但是就是不跳转。