在ASP中使用ASPChart组件生成图表

DelphiASPOBJ.ChartType=0图表的类型:0：直线 1：柱状图2：饼状图 3:水平柱状图 4:区域填充图 5:点形图)
<%
   Response.C
   '创建图表对象
   Set DelphiASPObj = Server.CreateObject("AspChart.WebChart")
   '设置生成图表的宽度和高度
   DelphiASPObj.Width=330
   DelphiASPObj.Height=200
  '是否显示坐标轴 True:显示 False:不显示
   DelphiASPOBJ.AxisVisible =True
   '是否显示图例
   DelphiASPOBJ.LengedVisible=False
   '图表外观是否以3D形式显示
   DelphiASPOBJ.View3D =True
   '图表的横坐标是显示的数字还是显示的文字
   '当为1时显示为文字，在增加数据时如下面AddXY的调用格式
   DelphiASPOBJ.XAxisType=0
   '图表的类型:0：直线 1：柱状图2：饼状图 3:水平柱状图 4:区域填充图 5:点形图
   DelphiASPOBJ.ChartType=0
   '图表的纵坐标文字
   DelphiASPOBj.LeftAxisText="(单位:吨)"
   '图表的横坐标文字
   DelphiASPOBJ.BottomAxisText="生产次数"
   '图表的标题
   DelphiASPOBJ.ChartTitle="生产统计图"
   '以下AddXY方法为向图表显示的数据。
   '注意：当XAxisType值为1 时，本方法的第一个参数是数字，第二个是文字
   '当XAxisType值为0 时  ，本方法的第一个，第二个参数都为数字
   DelphiASPObj.AddXY 0,0
   DelphiASPObj.AddXY 160,130
   DelphiASPObj.AddXY 80,40
   DelphiASPObj.AddXY 130,80
   DelphiASPObj.AddXY 210,100
   DelphiASPObj.AddXY 180,160
   DelphiASPObj.AddXY 400,200
  
   '获取返回的图形
   ret=  DelphiASPObj.GetChart
   '向客户端绘图
   Response.BinaryWrite ret
  
   Response.End
%>