纯asp写的柱状图,折线图,正弦曲线图,波形图

给出部分代码,觉得好的话就支持下: <% Dim a, b, c, x x=100 Redim a(x) Redim b(x) Redim c(x) For i=0 to x a(i)="" 'No space for any x-axes titles! b(i)=Abs(Sin(i/32.0))*9 c(i)=Abs(Cos(i/32.0))*9 Next Dim objGraph Set objGraph = New PureAspGraph Call objGraph.setYAxesTitle("Abs(Sin(i/64.0))*9 And Abs(Cos(i/32.0))*9") Call objGraph.setTitle("Very detailed demonstration") 'Adds data Call objGraph.setData(a, b) Call objGraph.addData(c) 'Adds descriptions Call objGraph.addLabel("Sinus data") Call objGraph.addLabel("Cosinus data") Call objGraph.setType(1) Call objGraph.setBarWidth(2) Call objGraph.setBarBorder(0) 'Removes the black border on the bars Call objGraph.setBarSpacing(0) 'Removes the spacing between each group Call objGraph.print() %>