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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页