ctBar= 1
cNone= 0
cGradient =6

Dim Chart
Set Chart = Server.CreateObject ("ASPChart.Chart")
Chart.AddAxisLabel 1,"test"

Chart.LineWidth = 1
Chart.LegendTextStyle = 2
Chart.HintsVisible = true

Chart.AddSeries (1)
Chart.SeriesTitle="a"
Chart.VertAxisMax =300
Chart.VertAxisMin =0

Chart.AddValue 100, "1", vbRed
Chart.AddValue 133, "2 ", vbRed
Chart.AddValue 160, "3", vbRed
Chart.BarStyle = cGradient

Chart.AddSeries (5)
Chart.SeriesTitle="b"
Chart.VertAxisMax =300
Chart.VertAxisMin =0
Chart.HorizAxisMax =6
Chart.HorizAxisMin =0
Chart.AddValue 200, "1", 0
Chart.AddValue 233, "2 ", vbGreen
Chart.AddValue 260, "3", vbGreen
Chart.BarStyle = cGradient

Chart.PanelColor = vbWhite
Chart.BevelOuter = cNone
Chart.ChartBGColor = vbWhite

Chart.Height = 300
Chart.Width = 500

Chart.ProgressiveJPEGEncoding = true

'Chart.FileName="c\1.jpg"
'Chart.SaveChart
Response.ContentType = "image/JPEG"
Response.BinaryWrite Chart.Image
Set Chart = nothing

下载ASPCHART和文档：UploadFiles/2007-6/66809631.rar