<%'-----------TeeChartEg.asp------------------------ set TChart1 = CreateObject("TeeChart.TChart") TChart1.Header.Text(0)="出版发行量统计图" TChart1.AddSeries(1) TChart1.Aspect.View3D = true TChart1.Series(0).Clear TChart1.Series(0).Add 2500, "电子类" , RGB(255,0, 0) TChart1.Series(0).Add 3900, "计算机类",RGB(255,255,0) TChart1.Series(0).Add 2700, "医学类", RGB(255,0,255) TChart1.Series(0).Add 3500, "电工类", RGB(255,128,0) TChart1.Series(0).Add 3200, "职教类", RGB(255,0,128) TChart1.Series(0).Marks.Visible = true TChart1.Series(0).Marks.Style = 0 TChart1.Legend.Visible = false TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width,TChart1.Height %>