主题：用Excel报表生成网页问题

If e.Path.StartsWith("Reports\")

    e.ResponseEncoding = "gb2312"
    Select Case e.Path
        Case  "Reports\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
            e.WriteBookAsHTML(Book,False) '第二个参数设置为False,表示这不是模板,直接发送即可
        Case Else
            e.AsReportServer("Reports\")
    End Select
End If