一个图象分析的组件。（调用源码，备注加组件）

<%
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:aliangchartTestBG.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://www.ltesting.net