用vb.net开发的程序,在前台有个按钮,用户点击这个按钮,然后在后台生成一个csv文件,然后将页面跳转到另一个页面。
现在的问题是在服务器本地可以实现,但是在web上页面不跳转,后台的csv已经生成,button_click触发事件中代码已经运行完,但是客户端的页面就是不跳转。
请各位大侠帮忙看看,这是什么问题!
现在的问题是在服务器本地可以实现,但是在web上页面不跳转,后台的csv已经生成,button_click触发事件中代码已经运行完,但是客户端的页面就是不跳转。
请各位大侠帮忙看看,这是什么问题!
解决方案 »
- 项目不能添加类库
- |zyciis| HTML标签A的Target功能,如何激活新打开的窗口,谢谢
- GridView指定的参数已超出有效值的范围
- 在线等,问一下虚拟目录定位的问题。。。
- 从Excel导入的表格格式问题
- 新人求助,ASP.NET2.0母版页中不显示.ascx控件的问题
- System.IO.FileNotFoundException: 找不到指定的模块
- 一个留言板(很简单的那种),遇到了一个问题,,最好用vb.net回答,嘻`因为我只会那个~~帮一下呀~!
- 急问!如何建一个这样的项目?
- 准备用asp.net做一个网站!先到这里来套个近乎(送点分),请大家多关照了!
- asp.net 中的ajax总是出sys 未定义错误
- 怎么把系统产生的RDLC报表与上传的附件文件整合到一起打印输出?
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
但是就是在客户端执行的时候,后台文件已经生成,日记记录ok,但是就是不跳转。