动态|服务器|图表
引:Web程序开发中，经常需要从数据库表文件中提取数据，并对大批量的数据进行分析比较，此时最常用也是最直观明了的表现方法莫过于绘制图表。
ASP擅长服务器端的Web编程，操作后台数据库更是它的强项。但是用ASP制作实时数据库图表有点困难，因为ASP本身并不支持图表功能，只能借助第三方控件进行开发，如VB的MSChart 控件。而微软推出的实时数据库图表制作组件—— O W C(Microsoft Office Web Components)，为在Web中绘制图形提供了灵活的同时也是最基本的机制。通过在ASP页面中调用OWC，我们可以轻松地绘制出各种类型的实时图表。
本文同时介绍了一种方法，就是将在ASP中生成的图表转换成图片文件保存在服务器上，这样用户最终看到的是GIF图片格式的图表，可避免直接输出动态图表到客户端时有可能带来的一系列问题。同时，本文还介绍了一种简单而迅速地移走过期GIF 图片的方法。
下面我们会用一个具体的实例来说明以上的内容。
程序的测试环境为：Windows 2000Server +IIS5.0+Access+IE5.5中，要运行下面的ASP 程序，请将下面的代码Copy，保存到你的一个虚拟目录中，在这个虚拟目录中建立一个子目录tmp(你可能修改代码中的路径以符合自己的路径)，在IIS中设置read权限即可，注意在Windows 2000 Server 上你必须设置此tmp目录对IUSR_servername用户至少有Change 的权限。
⒈OWC支持近50 种图表类型，包括曲线图、折线图、柱状图、面积图、雷达图等，并给指定显示图表是否带数据点。
⒉ 可以灵活设置图表的各个元素，包括设置图表标题、左标注、下标注、图例及输出图片的大小等；并可对所有显示的文字指定字体、字号、颜色和字形。
⒊同一张图表中显示2 条以上的曲线，实现数据对比显示。
尽管OWC的相关文件很零散，但是安装过程很简单。我们需要一个正版授权的Office 2000，然后在Web服务器上运行setup程序。选择定制安装，在工具标题下，只选中Web组件选项。当然，我们也可以在Web服务器上安装Office 2000的完整版本，其中自然也就包含了Web组件。接着，Setup程序顺序地完成其它工作，包括组件注册。
OWC的制图操作是在一个图表空间进行的。一个图表空间可以包含一个或多个图表，每个图表都可能包含一个或多个数列，每个数列都可以包含一个或多个数据点。根据这个原理，首先创建一个图表空间对象，然后用它的Add 方法向图表空间的图表集合中增加一个图表。进行组件调用时，在ASP 文件中加入如下代码即可：
s e t c h a r t = S e r v e r .CreateObject("OWC.Chart")
chart.clear
set ochart=chart.Charts.Add
set oconst = chart.Constants
最后一行代码的目的是为了引用方便起见：图表空间有一个Constants属性，其中包含所有相关图表函数中使用的列举常数；每次想要引用一个常数时，就可以键入o c o n s t 而不是o b j C h a r t S p a c e .Constants，这样效率会更高，至少从时间上讲是这样。关于常数的完整描述，我们结合下面图表元素一起介绍。
图表标题描述图表的标题(图1)。本标题可以位于图表的上方、下方、左方或右方。
oChart.HasTitle=true (指定是否显示图表标题)
oChart.Title.Caption=“预计与实际销售额” (指定显示的内容)
oChart.Title..Position =“Center”(指定位于图表的位置)
set fnt=ochart.title.font
fnt.name=“黑体”(指定图表标题的字体)
fnt.size=“10”(指定图表标题的字号)
fnt.color=“#000000”(指定图表标题的颜色)
fnt.bold=true(指定图表标题的字形——加粗)
fnt.italic=true(指定图表标题的字形——斜体)
数值(Y)轴标题是用于描述数值轴度量内容的标题。
s e t a x = o c h a r t . A x e s ( o c o n s t .chCategoryAxis)
ax.hastitle=true (显示数值轴标题)
ax.Title.Caption= “销售额(单位：百万)”(设置数值轴标题的内容)
set fnt=ax.title.font (以下为设置数值轴标题的字体、字号、颜色、字形)
fnt.name=“黑体”
fnt.size=“10”
fnt.color=“#000000”
fnt.bold=true
fnt.italic=true
数值(Y)轴标志也称为刻度线标志。这些标志描述了数值轴上的度量值。
ax.MajorTickMarks = oconst.chTickMarkNone(不显示数值轴主要刻度线)
ax.MajorGridlines.Line.Color ="white" (设置指定坐标轴上主网格线的颜色和线宽)
ax.MajorGridlines.Line.Weight = 5
分类(X)轴标题它是用于描述分类轴绘制内容的标题。
s e t a x = o c h a r t . A x e s ( o c o n s t .chAxisPositionBottom)
ax.hastitle=true(显示分类轴标题)
ax.Title.Caption= “季度”(设置分类轴标题的内容)
set fnt=ax.title.font(以下为设置分类轴标题的字体、字号、颜色、字形)
fnt.name=“黑体”
fnt.size=“10”
fnt.color=“#000000”
fnt.bold=true
fnt.italic=true
分类(X)标志也称为刻度线标志。这些标志显示了分类轴上的分类名称。分类是由图表中每个数据系列的一个数据点构成的一组相关数据点。
a x . P o s i t i o n = o c o n s t .chAxisPositionBottom (指定分类标志的显示位置，对有些图表显示类型，该设定不起作用。指定图表显示类型为折线型时可看到设定的效果)
分类标志显示内容的设置见“数据标志”。
图例为图表中数据系列或分类指定的图案或颜色标示。
ochart.HasLegend=True(显示图例)
oChart.Legend.Position = oconst.
chLegendPositionLeft (设置图例的位置在左边，位置可修改)
系列名称是一个名称，用于描述构成一个数据系列的一组相关数据点。系列名称显示在图例项标识旁的图例中。在前面的图表示例中，“预计”和“实际”都是对应于图表中数据标记的系列名称。
set fnt=oChart.Legend.Font (以下为设置系列名称的字体、字号、颜色、字形)
fnt.name=“黑体”
fnt.size=“10”
fnt.color=“#000000”
fnt.bold=true
fnt.italic=true
数据标志它是用于提供有关数据标记附加信息的标志，而其中的数据标记则代表单个数据点或值。对于不同的图表类型，数据标志可以显示值、数据系列或分类的名称、百分比，或者显示这些项的组合。
set oseries(i)=oChart.SeriesCollection.add ' 生成一条series 曲线
with oseries(i)
.DataLabelsCollection.Add(在指定系列中添加数据标志)
.caption=“XXXX”(设置分类标志显示的具体内容)
.SetData oconst.chDimCategories,oconst.chDataLiteral,XXX (设置X轴的数据值)
.SetData oconst.chDimValues,oconst.chDataLiteral,XXX(设置Y 轴的数据值)
.type=0(设置图表显示的类型，0 表示普通柱形图)
end with
对照图片，我们可以知道，X 轴为日期(季度)，Y轴为销售额，绘图区为具体的销售额数据。
OWC支持在同一张图表中显示两条以上的曲线(或两个不同颜色的柱子，如上图所示的预计与实际)。因此，要生成我们所看到的图片，只需先生成一条series 曲线(即在绘图区中先绘出预计的销售额图表)，然后再添加一条series曲线(即在绘图区中绘出实际的销售额图表)就行了
先定义及设置参数
dim strChartAbsPath
dim strChartRelPath
strChartAbsPath = Server.MapPath("temp")
strChartRelPath = "temp"
以下是生成、删除图片的函数
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif"
o b j C S p a c e . E x p o r t P i c t u r estrAbsFilePath & "/" & strFileName, "gif",300(图片高度), 500(图片宽度，以上两值均可由程序动态设置))
ExportChartToGIF = strRelFilePath &"/" & strFileName
End Function
Function CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif") > 0
a n d D a t e D i f f ( " d " ，g i f .DateLastModified, now) > 5 (如果图片生成的时间已超过5 天，则删除它) then
objFS.DeleteFile GIFpath & "\" &gif.Name, True
end if
i=i+1
next
set objFolder = nothing
set objFS = nothing
End Function
以下是调用代码
strChartFile = ExportChartToGIF(chart, strChartAbsPath, strChartRelPath)
Response.Write "<p align='center'><IMG SRC=""" & strChartFile & """>" &"</P>"
⋯⋯
CleanUpGIF(strChartAbsPath)
⋯⋯
虽然用OWC 生成的图表功能齐全，界面美观，但它也存在着不少缺陷。
首先，OWC只支持RecordSet数据集，不支持DataSet 数据集，因此在检索时不能使用sqlCommand、sqlDataAdapter 等对象，只能使用RecordSet对象进行检索。
其次，由于不支持DataSet数据集，这样我们就无法在生成图表的同时使用DataGrid显示数据表，而只能用循环依次取出Recordset记录集中的全部数据后，手工生成表格。
最后，在同一张图表中绘制的曲线只能是同一种类型，或同为平滑曲线图，或同为柱状图，它不能在同一张图表中显示不同类型的曲线。