
<%
 Dim OutputStream

  '创建图表对象
  Set Chart1 = CreateObject("TeeChart.TChart")

  '添加序列
  Chart1.AddSeries(1)
  Chart1.AddSeries(1)

  '设置图表标题、3D和字体
  Chart1.Header.Text(0)="PNG流演示"
  Chart1.Header.Font.Size = 22              ' 标题字体大小
  Chart1.Header.Font.Name= "楷体_GB2312"    ' 标题字体
  Chart1.Aspect.View3D = true               ' False表示2D图形，True表示3D图形

  '设定图形输出大小
  Chart1.Width  = 450
  Chart1.Height = 390

  '为序列生成随机数据
  Chart1.Series(0).FillSampleValues 20
  Chart1.Series(1).FillSampleValues 20

  '设定输出格式
  OutputStream=Chart1.Export.asPNG.SaveToStream

  '释放Chart对象
  Set Chart1=Nothing

  '返回输出流
  Response.Binarywrite OutputStream
%>