一直在路上

SimpleChartExample 使用很简单哦，这样就可以了： 用Server.CreateObject建立对象　 设置图表属性 调用SaveChart方法保存到硬盘或者用Response.BinaryWriteChart.Image直接发送 下面这段代码是示范如何建立一个柱图的： 　ctBar　=1 　cNone　=0 　cGradient=6 　rem********************************************************************** 　rem*InstantiatetheChartcomponent 　rem********************************************************************** 　SetChart=Server.CreateObject("ASPChart.Chart") 　rem********************************************************************** 　rem*AddaBarserieswith3points 　rem********************************************************************** 　Chart.AddSeries(ctBar) 　Chart.AddValue200,"Regular",vbBlue 　Chart.AddValue233,"Enhanced",vbRed 　Chart.AddValue260,"Free",vbGreen 　Chart.BarStyle=cGradient 　rem********************************************************************** 　rem*SetthePanelColor,removetheOuterBevel 　rem********************************************************************** 　Chart.PanelColor=vbWhite 　Chart.BevelOuter=cNone 　Chart.ChartBGColor=vbWhite 　rem********************************************************************** 　rem*SettheWidthandHeightoftheimage 　rem********************************************************************** 　Chart.Height=300 　Chart.Width=500 　rem********************************************************************** 　rem*Setthefilename,savetheimageandwritetheimagetag 　rem********************************************************************** 　Chart.FileName="d:\inetpub\wwwroot\images\smpchrt1.jpg" 　'也不知道用Server.MapPath，不知道是笨呢还是图效率高。 　Chart.SaveChart 　Response.Write"<imgsrc=""/images/smpchrt1.jpg"">" 　rem********************************************************************** 　rem*Destroytheobject 　rem********************************************************************** 　SetChart=nothing MultipleSeriesperChart 下面这段代码是示范如何建立多列数据的图表的. SetChart=Server.CreateObject("AspChart.Chart") Randomize Chart.AddSeries7'CandleSeries dblOpen=1000 Rnd(100) forintCount=1to30 　dblBase=Round(100*Rnd-50) 　Chart.AddCandleNow intCount,dblOpen,dblOpen 20,dblOpen-20,dblOpen dblBase 　dblOpen=dblOpen dblBase next Randomize Chart.AddSeries5'这样再调用一次AddSeries就可以再加一列数据了 dblOpen=1000 Rnd(100) forintCount=　1to　30 　dt=Now intCount 　dblBase=Round(100*Rnd-50) 　Chart.AddXYdt,dblOpen,CStr(Month(dt)) "/" _ 　CStr(Day(dt)) "/" 　CStr(Year(dt)Mod100),vbRed　 　dblOpen=　dblOpen dblBase next 　 　再加一段直接输出到浏览器的例子吧： 　Response.ContentType="image/JPEG" 　DimChart 　SetChart=Server.CreateObject("ASPChart.Chart") 　Chart.AddSeries(ctBar) 　Chart.AddValue200,"Regular",vbBlue 　Chart.AddValue233,"Enhanced",vbRed 　Chart.AddValue260,"Free",vbGreen 　Chart.BarStyle=cGradient 　Chart.PanelColor=vbWhite 　Chart.BevelOuter=cNone 　Chart.ChartBGColor=vbWhite 　Chart.Height=300 　Chart.Width=500 　Response.BinaryWriteChart.Image 　SetChart=nothing