怎样在ASP里面创建统计图表

　　REM 首先我们设计一个ShowCart函数，其中

　　REM aValues 是一个数值数组kunmzt.com

　　REM aLables 是横坐标的标号

　　REM strTitle是这个统计图的标题

　　REM strXAxisLable X轴的标签

　　REM strYAxisLable Y轴的标签

　　Sub ShowChart(ByRef aValues, ByRef aLabels, ByRef strTitle, ByRef strXAxisLabel, ByRef strYAxisLabel)

　　' 你可以随便改变的图形常数

　　' 单位是屏幕像素点

　　Const GRAPH_WIDTH = 450 ' 图形宽度yuvnr.com

　　Const GRAPH_HEIGHT = 250 ' 图形

　　Const GRAPH_BORDER = 5 ' 坐标线宽度

　　Const GRAPH_SPACER = 2 ' 统计条之间的距离

　　Const TABLE_BORDER = 0

　　' 变量声明

　　Dim I

　　Dim iMaxValue

　　Dim iBarWidth

　　Dim iBarHeight

　　' 取得aValues最大值

　　iMaxValue = 0

　　For I = 0 To UBound(aValues)

　　If iMaxValue < aValues(I) Then iMaxValue = aValues(I)

　　Next 'I

　　' 计算每条图形的宽度

　　iBarWidth = (GRAPH_WIDTH \ (UBound(aValues) + 1)) - GRAPH_SPACER

　　' 开始绘图

　　%>