<%
Response.ContentType="image/jpeg"
Set DelphiASPObj = Server.CreateObject("ASPCOM.ChartImage")
'DelphiASPObj.About
DelphiASPObj.Clear
DelphiASPObj.Title="標題" '顯示柱狀圖的標題
DelphiASPObj.Foot="備注" '備注柱狀圖是分析啥地
DelphiASPObj.Width=600 '設(shè)備柱狀圖的寬度
DelphiASPObj.Height=400 '設(shè)備柱狀圖的長度
'DelphiASPObj.SetRange 0, 100
DelphiASPObj.AddValue 200, "達", 123456 '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
DelphiASPObj.AddValue 40, "#2", 3456677
' DelphiASPObj.AddNull "Null" '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
'DelphiASPObj.AddValue 20, "#5", 1243535
DelphiASPObj.AddValue 20, "#3", 1243535 '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
DelphiASPObj.AddValue 50, "#4", 243455 '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
DelphiASPObj.AddValue 40, "#5", 123535 '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
DelphiASPObj.AddValue 550, "#6", 123535 '轉(zhuǎn)入值,標識和顏色（這個不敢確定）
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" '設(shè)置圖象的背景色
'BackGround Image File Name
DelphiASPObj.View3D=true '設(shè)置是否顯示3d
Response.BinaryWrite DelphiASPObj.Image(100)
'Image Quality [Optional] 100 is the best 0 is the worst
%>