asp如何使用Office Chart 9.0 制作图表?
发布时间:2010-06-05 12:41:00
如何使用Office Chart 9.0 制作图表?
代码如下:
chart90.asp
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>图表制作 - aspxhome.com</TITLE>
</HEAD>
<BODY>
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046
style="width:80%;height:350"></object>
<object id=ADOConnection1 classid=CLSID:00000514-0000-0010-8000-00AA006D2EA4></object>
<script Language=VBScript>
Sub Window_OnLoad()
Dim rs, categories, values
categories = ""
values = ""
ADOConnection1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\nwind.mdb"
' 建立"nwind.mdb"库,并创建"Sales for 2000"的表
Set rs = ADOConnection1.Execute("SELECT * FROM [Sales for 2000]")
' 打开连接执行SQL查询 ()
rs.MoveFirst
Do while Not rs.EOF
categories = categories & rs.Fields(0).Value & Chr(9)
values = values & rs.Fields(1).Value & Chr(9)
rs.MoveNext
' 对每一字段记录产生一个由制表符分隔的字符串
Loop
rs.Close
ADOConnection1.Close
categories = Left(categories, Len(categories) - 1)
values = Left(values, Len(values) - 1)
' 删去字符串末尾的分隔符
ChartSpace1.Clear
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Sales"
' 创建一个系列
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
' 使用recordset生成的字符串设置系列的类型和值
----------------------------------------------------------------------------------------------------------------
ChartSpace1.HasChartSpaceTitle = True
With ChartSpace1.ChartSpaceTitle
.Caption = "Monthly Sales Data"
.Font.Size = 12
.Font.Color = "#FF0000"
.Font.Bold = True
End with
ChartSpace1.HasChartSpaceLegend = True
With ChartSpace1.ChartSpaceLegend
.Position = c.chLegendPositionright
.Font.Color = "#009999"
.Font.Size = 9
End with
' 设置图表工作区的标题,并将图表工作区的图例放在工作区右边
----------------------------------------------------------------------------------------------------------------
ChartSpace1.Charts(0).Type = c.chChartTypeBarClustered
' 设置图表类型
With ChartSpace1.Charts(0).Axes(c.chAxisPositionBottom)
' 轴的坐标格式、样式
.NumberFormat = "#,##0"
.Font.Size = 9
End with
With ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft)
.Font.Color = "#0000ff"
.Font.Size = 9
End with
end if
End Sub
</script>
</BODY>
</HTML>
图表类型常数表:
序号 Constant Value
1 chChartTypeCombo -1
2 chChartTypeColumnClustered 0
3 chChartTypeColumnStacked 1
4 chChartTypeColumnStacked100 2
5 chChartTypeBarClustered 3
6 chChartTypeBarStacked 4
7 chChartTypeBarStacked100 5
8 chChartTypeLine 6
9 chChartTypeLineMarkers 7
10 chChartTypeLineStacked 8
11 chChartTypeLineStackedMarkers 9
12 chChartTypeLineStacked100 10
13 chChartTypeLineStacked100Markers 11
14 chChartTypeSmoothLine 12
15 chChartTypeSmoothLineMarkers 13
16 chChartTypeSmoothLineStacked 14
17 chChartTypeSmoothLineStackedMarkers 15
18 chChartTypeSmoothLineStacked100 16
19 chChartTypeSmoothLineStacked100Markers 17
20 chChartTypePie 18
21 chChartTypePieExploded 19
22 chChartTypePieStacked 20
23 chChartTypeScatterMarkers 21
24 chChartTypeScatterSmoothLineMarkers 22
25 chChartTypeScatterSmoothLine 23
26 chChartTypeScatterLineMarkers 24
27 chChartTypeScatterLine 25
28 chChartTypeScatterLineFilled 26
29 chChartTypeBubble 27
30 chChartTypeBubbleLine 28
31 chChartTypeArea 29
32 chChartTypeAreaStacked 30
33 chChartTypeAreaStacked100 31
34 chChartTypeDoughnut 32
35 chChartTypeDoughnutExploded 33
36 chChartTypeRadarLine 34
37 chChartTypeRadarLineMarkers 35
38 chChartTypeRadarLineFilled 36
39 chChartTypeRadarSmoothLine 37
40 chChartTypeRadarSmoothLineMarkers 38
41 chChartTypeStockHLC 39
42 chChartTypeStockOHLC 40
43 chChartTypePolarMarkers 41
44 chChartTypePolarLine 42
45 chChartTypePolarLineMarkers 43
46 chChartTypePolarSmoothLine 44
47 chChartTypePolarSmoothLineMarkers 45
猜你喜欢
- 为了方便使用分类,我定义了一个分类表category,里面字段是id(自动编号) cat_name(分类名) pare
- 阅读上一章:Chapter 10 应用CSSChapter 11 打印样式先前在第10章中,讨论了几种为文档应用CSS的方法,这一章是要研究
- 当用户关闭cookie时,通过asp程序提示访客打开,源代码如下: Dim strCookie, strT
- 更轻量- 出色的颗粒化模块,子模块划分;- 延迟加载;- 强调代码重用(公共基类、插件、扩展);更易用- 统一的API;- 便利(each,
- 本文主要介绍了一个获取SQL Server数据字典的经典SQL语句,大家可以根据各自的实际情况对这段语句进行相应的修改。SELECT sys
- Dethe Elza (delza@livingcode.org), 高级技术架构师, Blast Radius &n
- 导读:这篇论坛文章主要介绍了使用SQL Server升级顾问的具体步骤,详细内容请参考下文。微软提供了SQL Server 2008升级顾问
- 在 JavaScript 中,可以用 instanceof 来判断一个对象是不是某个类或其子类的实例。比如:// 代码
- 去除字符串左右两端的空格,在vbscript里面可以轻松地使用 trim、ltrim 或 rtrim,但在js
- 写了个JavaScript版的DateAdd、DateDiff、IsDate函数,大家评评!需要说明的是,JavaScript中IsDate
- 比如有一个需求,通过sql语句,返回-5至5的随机整数.如果这一个放在PHP中,则非常简单直接用print rand(-5,5);?>
- 以下的文章主要向大家介绍的是实现MySQL远程访问的实际操作流程,以及在实现MySQL远程访问的过程中哪些的相关事项是十分重要的,以下就是文
- 为了防止网络上日益猖獗的垃圾广告和灌水评论,大多数网站在信息发布的时候要求输入验证码。图片、文字、字母甚至还有计算题。验证码图片里的信息东颠
- 什么是品牌的视觉传达品牌,这个熟悉而又陌生的名词,有时总会让人产生误解。品牌很广,广到一个意会颇深的战略发展理念;品牌很小,小到一个清晰可见
- 在HTML中,常见的URL有多种表示方式:相对URL: example.php demo
- J2ME是利用HttpConnection建立HTTP连接,然后获取数据,ASP也是利用HTTP协议,因而可以利用J2ME与ASP建立连接,
- SQL Server2005数据项的分拆与合并:参考示例如下:-- ====================================
- 目录:分析和设计组件编码实现和算法用 Ant 构建组件测试 JavaScript 组件我们走到哪儿了?前两期思考了太多东西,你是否已有倦意?
- 使用本文给出的方法就可以制作出一个简单的rss阅读器了。用xmldom方法打开xml文件,如果是本地的没有问题,就是用Server.MapP
- 有一次去超市换货,本能的找到服务中心,服务中心说这个业务在超市旁边一个房间里,由于忘记带小票,那个小房间的人让我去另外一个小房间调电脑里的记