Response.ContentType="image/jpeg"

导读：
　　Set DelphiASPObj = Server.CreateObject("ASPCOM.ChartImage")
　　'DelphiASPObj.About
　　DelphiASPObj.Clear
　　DelphiASPObj.Title="标题" '显示柱状图的标题
　　DelphiASPObj.Foot="备注" '备注柱状图是分析啥地
　　DelphiASPObj.Width=600 '设备柱状图的宽度
　　DelphiASPObj.Height=400 '设备柱状图的长度
　　'DelphiASPObj.SetRange 0, 100
　　DelphiASPObj.AddValue 200, "达", 123456 '转入值,标识和颜色（这个不敢确定）
　　DelphiASPObj.AddValue 40, "#2", 3456677
　　' DelphiASPObj.AddNull "Null" '转入值,标识和颜色（这个不敢确定）
　　'DelphiASPObj.AddValue 20, "#5", 1243535
　　DelphiASPObj.AddValue 20, "#3", 1243535 '转入值,标识和颜色（这个不敢确定）
　　DelphiASPObj.AddValue 50, "#4", 243455 '转入值,标识和颜色（这个不敢确定）
　　DelphiASPObj.AddValue 40, "#5", 123535 '转入值,标识和颜色（这个不敢确定）
　　DelphiASPObj.AddValue 550, "#6", 123535 '转入值,标识和颜色（这个不敢确定）
　　DelphiASPObj.SetChartType 0
　　DelphiASPObj.SetMarkFont 8, 0
　　DelphiASPObj.SetTitleFont 8, 0
　　DelphiASPObj.SetFootFont 8, 0
　　'Font Size , Font Color
　　'0: Bar 1: HorizBar 2: Line 3: Pie 4: Point 5: Area
　　DelphiASPObj.SetMark true,false,true,1
　　'Mark Visible , Mark Transparent , Border Visible , Mark Style
　　'Style: 0:Value 1:Label 2:LabelValue 3:LabelPercentTotal 4: Percent 5:PercentTotal
　　DelphiASPObj.SetAxis true,"x轴",90,"Y轴",0,true '显示x,y轴
　　'Axis Visible , Horiz Title , Horiz Angle , Vertical Title , Veritcal Angle , Legend Visible
　　'DelphiASPObj.SetPanel 1677215,true,true,9895167,1677215
　　'Color , Border Visible , Gradient Visible , Start Color , End Color
　　DelphiASPObj.SetBGImage "D:\aliang\chart\TestBG.jpg" '设置图象的背景色
　　'BackGround Image File Name
　　DelphiASPObj.View3D=true '设置是否显示3d
　　Response.BinaryWrite DelphiASPObj.Image(100)
　　'Image Quality [Optional] 100 is the best 0 is the worst
　　%>

本文转自
http://study.qqcf.com/web/250/31055.htm