导出EXCEL时先弹出保存EXCEL的对话框,单击“保存”会再弹出来一个对话框提示保存为html,而且只有一台客户端是这样,并且也不是每次都这样,又是也会导出成功,头都大了,大家帮忙啊

解决方案 »

  1.   

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ' ページを初期化するユーザー コードをここに挿入します。
            If Not Page.IsPostBack Then
                Dim FilePath As String = Session("FilePath").ToString()
                If FilePath Is Nothing Then
                    Response.Write("<h1>Server is unusable!</h1>")
                Else
                    Try                    Dim fs As System.IO.FileStream = System.IO.File.OpenRead(FilePath)
                        Dim FileData(fs.Length) As Byte
                        fs.Read(FileData, 0, CType(fs.Length, Integer))
                        fs.Close()
                        Session.Clear()
                        Response.ClearHeaders()
                        Response.AddHeader("Content-Type", "application/vnd.ms-excel")
                        Response.AddHeader("Content-Disposition", "inline;filename=" + FilePath)
                        Response.AddHeader("Content-Length", FileData.Length.ToString())
                        Response.BinaryWrite(FileData)
                    Catch ex As Exception
                        Response.Write("<h1>Server is unusable!</h1>")
                    End Try
                    Response.End()
                End If
            End If
        End Sub希望这段代码能对你有所帮助。
      

  2.   

    谢谢 fangxinggood(JustACoder)
    我的代码也是这样的,但现在的情况时其他机器都正常,只有一台机器的下载不正常
    会不会是中毒了?
      

  3.   

    我的一开始也出这个问题,后来加上一句:
    Response.ContentType = "application/ms-excel";
    就好了!
      

  4.   

    估计是office版本的问题,谢谢各位了,结贴