WEB应用中报表打印的实现

下载本文示例代码
　　随着世界范围内Internet环境的形成，全球正进入一个以网络为中心的计算时代。Web模型是在传统的C/S模型的基础上发展起来的一种新的Browser/Server计算模式。Browser/Server模型简化了C/S中的客户端，客户端只需装上操作系统、网络协议软件及浏览器；而服务器端则集中了所有的应用逻辑，开发、维护等几乎所有工作也都集中在服务器端。这时的客户机被称为瘦客户机，服务器被称为肥服务器。而WEB应用中的客户端的报表打印则没有C/S模型那么容易实现，如何在不使用ActiveX控件的情况下，实现打印字体、字体颜色、表格宽度、打印纸型等的设置。下面就以一个小例子来说明。　　一、 创建数据库　　用 ACCESS创建一个名为user.mdb的数据库，然后建一张名为user的表，表结构如下： 字段名称 数据类型 username 文本 name 文本 sex 文本　　二、 在asp中的实现　　创建一个名为aspreport.asp的文件，其源代码如下： ＜% '等到文本缓冲完才显示response.buffer = truedim accessdb, cn, rs, sql'数据库名accessdb="user.mdb" '连接数据库cn="DRIVER={Microsoft Access Driver (*.mdb)};"cn=cn & "DBQ=" & server.mappath(accessdb)'创建记录集Set rs = Server.CreateObject("ADODB.Recordset")'查询语句sql = "select * from user " '开始查询rs.Open sql, cn%＞＜% '告诉浏览器用word来显示文档内容Response.ContentType = "application/msword" '文档设定response.AddHeader "content-disposition", "inline; filename=report.doc"%＞＜html＞＜head＞＜title＞报表＜/title＞＜/head＞＜body bgcolor="#FFFFFF"＞＜center＞＜h1＞报表＜/h1＞＜/center＞＜table border=1 cellspacing=0 cellpadding=0 bordercolor=#000000 align=center＞＜tr＞＜td＞用户名＜/td＞＜td＞真实姓名＜/td＞＜td＞性别＜/td＞＜/tr＞＜%'移到第一个记录rs.movefirstdo while not rs.eof%＞＜tr＞＜td＞＜%= rs("username") %＞＜/td＞＜td＞＜%= rs("name") %＞＜/td＞＜td＞＜%= rs("sex") %＞＜/td＞＜/tr＞＜%'移到下一个记录rs.movenextloop %＞＜%'关闭记录集rs.closeset rs=nothingresponse.flushresponse.end%＞ ＜/table＞＜/body＞＜/html＞　　把上面的report.asp文件和user.mdb数据库放在同一目录下，再用iis或pws把他们所在的目录发布，打开浏览器，只要客户端机子上有装word，就会自动调用word以内嵌方式在浏览器上显示，此时完全可以像使用word一样来调整和打印。共2页。 1 2 : 　　随着世界范围内Internet环境的形成，全球正进入一个以网络为中心的计算时代。Web模型是在传统的C/S模型的基础上发展起来的一种新的Browser/Server计算模式。Browser/Server模型简化了C/S中的客户端，客户端只需装上操作系统、网络协议软件及浏览器；而服务器端则集中了所有的应用逻辑，开发、维护等几乎所有工作也都集中在服务器端。这时的客户机被称为瘦客户机，服务器被称为肥服务器。而WEB应用中的客户端的报表打印则没有C/S模型那么容易实现，如何在不使用ActiveX控件的情况下，实现打印字体、字体颜色、表格宽度、打印纸型等的设置。下面就以一个小例子来说明。　　一、 创建数据库　　用 ACCESS创建一个名为user.mdb的数据库，然后建一张名为user的表，表结构如下： 字段名称 数据类型 username 文本 name 文本 sex 文本　　二、 在asp中的实现　　创建一个名为aspreport.asp的文件，其源代码如下： ＜% '等到文本缓冲完才显示response.buffer = truedim accessdb, cn, rs, sql'数据库名accessdb="user.mdb" '连接数据库cn="DRIVER={Microsoft Access Driver (*.mdb)};"cn=cn & "DBQ=" & server.mappath(accessdb)'创建记录集Set rs = Server.CreateObject("ADODB.Recordset")'查询语句sql = "select * from user " '开始查询rs.Open sql, cn%＞＜% '告诉浏览器用word来显示文档内容Response.ContentType = "application/msword" '文档设定response.AddHeader "content-disposition", "inline; filename=report.doc"%＞＜html＞＜head＞＜title＞报表＜/title＞＜/head＞＜body bgcolor="#FFFFFF"＞＜center＞＜h1＞报表＜/h1＞＜/center＞＜table border=1 cellspacing=0 cellpadding=0 bordercolor=#000000 align=center＞＜tr＞＜td＞用户名＜/td＞＜td＞真实姓名＜/td＞＜td＞性别＜/td＞＜/tr＞＜%'移到第一个记录rs.movefirstdo while not rs.eof%＞＜tr＞＜td＞＜%= rs("username") %＞＜/td＞＜td＞＜%= rs("name") %＞＜/td＞＜td＞＜%= rs("sex") %＞＜/td＞＜/tr＞＜%'移到下一个记录rs.movenextloop %＞＜%'关闭记录集rs.closeset rs=nothingresponse.flushresponse.end%＞ ＜/table＞＜/body＞＜/html＞　　把上面的report.asp文件和user.mdb数据库放在同一目录下，再用iis或pws把他们所在的目录发布，打开浏览器，只要客户端机子上有装word，就会自动调用word以内嵌方式在浏览器上显示，此时完全可以像使用word一样来调整和打印。共2页。 1 2 : 下载本文示例代码


WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现WEB应用中报表打印的实现