TChart1.Footer.Font.Size = 11                     ' 下标题字体大小

TChart1.Footer.Font.Bold = True                   ' 下标题字体是否为粗体

TChart1.Footer.Font.Italic = False                 ' 下标题字体是否为斜体

TChart1.Export.SaveToJPEGFile  server.mappath("MyChart.jpg"),False,JPEGBestQuality, 100 , TChart1.Width , TChart1.Height    '导出存储为MyChart.jpg文件

       Set TChart1 = nothing

%> <img src="MyChart.jpg">

</BODY></HTML>

注：1. TChart1.AddSeries(0)图形显示方式的属性值得研究，有兴趣的读者可以从0~39测试一下，找到自己理想的显示方式。

       2.对于颜色的引用，采用RGB三种表示方法，例如：RGB(255,255,255) = &HFFFFFF = 16777215。具体的换算方法不在说明。

       3.属性为True和False的可以用1和0替代表示。

       对于组图的添加，下面列举一个显示二组数据的例子。

<%Set TChart1 = CreateObject("TeeChart.TChart")

TChart1.Header.Text(0)="季度销售量"'标题

TChart1.AddSeries(1)

TChart1.AddSeries(1)

TChart1.Series(0).Add 180, "1季度",RGB(255,255,255)

TChart1.Series(1).Add 240, "1季度",255 

TChart1.Series(0).Add 280, "2季度",RGB(255,255,255)

TChart1.Series(1).Add 200, "2季度",255

TChart1.Series(0).Add 150, "3季度",RGB(255,255,255)

TChart1.Series(1).Add 320, "3季度",255 

TChart1.Series(0).Add 360, "4季度",RGB(255,255,255)

TChart1.Series(1).Add 200, "4季度",255

TChart1.Series(0).Marks.Visible = True  ' 是否显示数据标题

TChart1.Series(0).Marks.Style = 0 ' 数据显示风格0~9，0为数值，1为百分比……

TChart1.Series(1).Marks.Style=0

TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height

       Set TChart1 = nothing

%>

       以上两个例子都是静态的产生统计结果，然后显示。然而在实际工作中，更多的是从现有的数据库中读取动态的统计数据显示。下面我们举一个利用ADO直接连接Access数据库，动态显示结果的例子。数据库为（test.mdb），表的两列为colname，colvalue。分别为月份名称和对应的统计数据colname（1月份，2月份，……），colvalue（103，210，……）：

<%Dim OutputStream

Set TChart1 = CreateObject("TeeChart.TChart")

TChart1.Header.Text(0)="季度销售量"'标题

TChart1.AddSeries(0)'显示图形的风格数值为1 ~39见下

Set Conn=Server.CreateObject("ADODB.Connection")       

Set Rst=Server.CreateObject("ADODB.Recordset")   

Conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("zcw.mdb")

strsql = "select * from test"

Rst.Open strsql,conn,1,1

IF rst.RecordCount > 0 THEN

  TChart1.Series(0).Datasource = rst

  TChart1.Series(0).LabelsSource="colname"

  TChart1.Series(0).YValues.ValueSource="colvalue"

ELSE

  TChart1.Series(0).Fillsamplevalues(12)

  TChart1.Header.Text(0)="没有结果，随机显示数据"

END IF

TChart1.Series(0).Marks.Visible=True

TChart1.Series(0).Marks.Style=4

TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height

Set TChart1 = nothing

Rst.Close

Set Conn = nothing

%> <img src="MyChart.jpg">

       以上的三个实例都是生成静态JPG图片文件后显示的，如果对于浏览结果没有保存价值，我们可以使用PNG(Portable Network Graphics)方式显示。

<% Dim ChartType, OutputStream, ViewType

  Set Chart1 = CreateObject("TeeChart.TChart")

  Chart1.AddSeries(0)

  Chart1.Series(0).FillSampleValues 20    ' 随机生成数据

  OutputStream=Chart1.Export.asPNG.SaveToStream

  Set Chart1=Nothing

  Response.Binarywrite OutputStream

%>

       以上是对TeeChart组件属性与ASP技术结合的简单介绍，希望对大家有所帮助。Teechart Pro ActiveX免费试用版本可从http://www.steema.com/download/Downloadindex.htm下载。关于TeeChart与Asp结合的代码示例可参阅http://www.steema.com/products/teechart/asp/ASPHome.htm。

上一页  [1] [2]