繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP中怎樣用Excel寫報表
- ASP
- ASP下经常用的字符串等函数参考资料
- asp下连接数据库 ASP链接数据库字符串大全总结
- asp内置对象 ObjectContext 事务管理 详解
- asp 内置对象 Application 详解
- ASP中 SQL语句 使用方法
- ASP 中 Split 函数的实例分析
- ASP 中 DateDiff 函数详解 主要实现两日期加减操作
- asp 存贮过程 (SQL版asp调用存储过程)
- 利用ASP实现在线生成电话图片效果脚本附演示
- 使用ASP记录在线用户的数量的代码
- 关于ASP生成伪参数技巧 简洁实用的伪（僞）参数
- asp 关键词字符串分割如何实现方法
- 用ASP编写的加密和解密类
- ASP之处理用Javascript动态添加的表单元素数据的代码
- asp下最常用的19个基本技巧
- 一些Asp技巧和实用解决方法
- asp实现一个统计当前在线用户的解决方案
- asp下的一个很简单的验证码程序
- asp又一个分页的代码例子
- asp实现防止从外部提交数据的三种方法
在ASP中怎樣用Excel寫報表
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 129 ::
收藏到网摘: n/a
<%
Option Explicit
'页面级对象
'--------------------
Dim m_cn '链接对象
Dim m_rs '记录集对象
Dim m_cspace 'OWC.ChartSpace object
Dim m_fso '文件系统对象
Dim m_objBinaryFile '二进值文件流对象
Dim m_sYear '需要查询的年份
Dim sSQL '执行的SQL 语句
Dim c 'OWC 常量对象
Dim cht '图表临时参考变量
Dim ax '数轴的临时参考变量
Dim fnt 'OWCFont字体的临时参考变量
Dim sFullFileName '输出GIF文件的临时参考路径
'获得查询年份，缺省为2002
m_sYear = Request.QueryString("year")
if len(m_sYear) = 0 then m_sYear = "2002"
'创建一个ADO链接和记录集对象
set m_cn = Server.CreateObject("ADODB.Connection")
set m_rs = Server.CreateObject("ADODB.Recordset")
'链接到Access数据库，使用客户端的游标引擎打开记录集
m_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(".") & "\data.mdb"
sSQL = "SELECT Month([OrderDate]) AS [Month], Invoices.Salesperson, " & _
"Sum(Invoices.ExtendedPrice) AS Sales FROM Invoices " & _
"WHERE Invoices.OrderDate between #1/1/" & m_sYear & "# and #12/31/" & m_sYear & "# " & _
"GROUP BY Month([OrderDate]), Invoices.Salesperson"
m_rs.CursorLocation = 3 'adUseClient
m_rs.Open sSQL, m_cn, 3 'adOpenStatic
'增加一个带有图例的簇列图表
set m_cspace = server.CreateObject("OWC.Chart")
set m_cspace.DataSource = m_rs
set cht = m_cspace.Charts.Add()
set c = m_cspace.Constants
cht.HasLegend = True
cht.Type =c.chChartTypeLineMarkers
'设置图表的数据源，把销售人添加到序列名称，销售月份添加到分类组，销售金额作为图表中各项取值
cht.SetData c.chDimSeriesNames, 0, "Salesperson"
cht.SetData c.chDimCategories, 0, "Month"
cht.SetData c.chDimValues, 0, "Sales"
cht.SeriesCollection(4).Interior.Color = "blue" '改变第四条线的颜色为蓝色
Cht.SeriesCollection(4).Line.Color = "blue"
'增加一个图表标题，并格式化标题
cht.HasTitle = True
cht.Title.Caption = m_sYear & "的销售金额 "
set fnt = cht.Title.Font
fnt.Name = "宋体"
fnt.Size = 10
fnt.Bold = True
'对分类轴添加标题，并格式化标题
set ax = cht.Axes(c.chAxisPositionBottom)
ax.HasTitle = True
ax.Title.Caption = "月份"
set fnt = ax.Title.Font
fnt.Name = "宋体"
fnt.Size = 8
fnt.Bold = True
'对数值轴添加标题，并格式化标题
set ax = cht.Axes(c.chAxisPositionLeft)
ax.NumberFormat = "Currency"
ax.HasTitle = True
ax
评论 (0) All
