1、首先打开CaseStudy目录下的示例文件"Excel报表.foxdb"文件。
2、将HttpRequest事件代码设置为:
If e.Path.StartsWith("Reports\")
e.ResponseEncoding = "gb2312"
Select Case e.Path
Case "Reports\ckd.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
e.WriteBookAsHTML(Book)
Case "Reports\jianli.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
e.WriteBookAsHTML(Book)
Case Else
e.AsReportServer("Reports\")
End Select
End If
3、在命令窗口执行:
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
现在在浏览器输入网址:
http://127.0.0.1/Reports/ckd.htm