文件名称：纯asp写的柱状图,折线图,正弦曲线图,波形图
文件大小：53KB
文件格式：RAR
更新时间：2012-03-22 08:37:24
asp图,柱状图,正弦图,波形图,折线图(注:是纯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() %>