ASP Chart 使用范例

March 25,2004

Simple Chart Example
使用很简单哦，这样就可以了：

用Server.CreateObject建立对象
设置图表属性
调用SaveChart方法保存到硬盘或者用Response.BinaryWrite Chart.Image直接发送
下面这段代码是示范如何建立一个柱图的：

  ctBar = 1
  cNone = 0
  cGradient =6

  rem **********************************************************************
  rem * Instantiate the Chart component
  rem **********************************************************************
  Set Chart = Server.CreateObject ("ASPChart.Chart")

  rem **********************************************************************
  rem * Add a Bar series with 3 points
  rem **********************************************************************
  Chart.AddSeries (ctBar)
  Chart.AddValue 200, "Regular", vbBlue
  Chart.AddValue 233, "Enhanced ", vbRed
  Chart.AddValue 260, "Free", vbGreen
  Chart.BarStyle = cGradient

  rem **********************************************************************
  rem * Set the PanelColor, remove the OuterBevel
  rem **********************************************************************
  Chart.PanelColor = vbWhite
  Chart.BevelOuter = cNone
  Chart.ChartBGColor = vbWhite

  rem **********************************************************************
  rem * Set the Width and Height of the image
  rem **********************************************************************
  Chart.Height = 300
  Chart.Width = 500

  rem **********************************************************************
  rem * Set the filename, save the image and write the image tag
  rem **********************************************************************
  Chart.FileName = "d:inetpubwwwrootimagessmpchrt1.jpg"
  '也不知道用Server.MapPath，不知道是笨呢还是图效率高。
  Chart.SaveChart
  Response.Write "<img src=""/images/smpchrt1.jpg"">"

  rem **********************************************************************
  rem * Destroy the object
  rem **********************************************************************
  Set Chart = nothing

Multiple Series per Chart
下面这段代码是示范如何建立多列数据的图表的.

Set Chart = Server.CreateObject("AspChart.Chart")
Randomize
Chart.AddSeries 7 'Candle Series
dblOpen = 1000 + Rnd(100)
for intCount = 1 to 30
  dblBase = Round(100*Rnd-50)
  Chart.AddCandle Now + intCount, dblOpen, dblOpen+20, dblOpen-20, dblOpen+dblBase
  dblOpen = dblOpen + dblBase
next

Randomize
Chart.AddSeries 5 '这样再调用一次AddSeries就可以再加一列数据了
dblOpen = 1000 + Rnd(100)
for intCount =  1 to 30

  dt = Now + intCount
  dblBase = Round(100*Rnd-50)
  Chart.AddXY dt, dblOpen, CStr(Month(dt))+ "/" + _
  CStr(Day(dt))+"/" + CStr(Year (dt) Mod 100),vbRed
  dblOpen =  dblOpen + dblBase
next

  再加一段直接输出到浏览器的例子吧：

  Response.ContentType = "image/JPEG"
  Dim Chart
  Set Chart = Server.CreateObject ("ASPChart.Chart")
  Chart.AddSeries (ctBar)
  Chart.AddValue 200, "Regular", vbBlue
  Chart.AddValue 233, "Enhanced ", vbRed
  Chart.AddValue 260, "Free", vbGreen
  Chart.BarStyle = cGradient

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

  Chart.Height = 300
  Chart.Width = 500
  Response.BinaryWrite Chart.Image
  Set Chart = nothing