| 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 |