下面给出了一个通用的函数及其用例,请参考。 <% REM 首先我们设计一个ShowCart函数,其中 REM aValues 是一个数值数组 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 ' 图形宽度 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 ' 开始绘图 %> <TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'> <TR> <TD COLSPAN='3' ALIGN='center'><H2><%= strTitle %></H2></TD> </TR> <TR> <TD VALIGN='center'><B><%= strYAxisLabel %></B></TD> <TD VALIGN='top'> <TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'> <TR> & nbsp; &n bsp; <TD ROWSPAN='2'><IMG src='http://www.111cn.net/asp/3/./images/spacer.gif' BORDER='0' WIDTH='1' HEIGHT='<%= GRAPH_HEIGHT %>'></TD> <TD VALIGN='top' ALIGN='right'><%= iMaxValue %> </TD> & nbsp; </TR> <TR> <TD VALIGN='bottom' ALIGN='right'>0 </TD> </TR> </TABLE> </TD> <TD> <TABLE BORDER='<%= TABLE_BORDER %>' CELLSPACING='0' CELLPADDING='0'> <TR> <TD VALIGN='bottom'><IMG src='http://www.111cn.net/asp/3/./images/spacer_black.gif' BORDER='0' WIDTH='<%= GRAPH_BORDER %>' HEIGHT='<%= GRAPH_HEIGHT %>'></TD>
|