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

中天钢铁管件

中天钢铁管件

2016-01-29 18:22

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

  下面给出了一个通用的函数及其用例,请参考。 <%
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 %<TR
        <TD VALIGN='center'<B<%= strYAxisLabel %<TD VALIGN='top'
<TABLE BORDER='<%= TABLE_BORDER %' CELLSPACING='0' CELLPADDING='0'
<TR
                & nbsp;               &n bsp;        <TD ROWSPAN='2'<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/0512100053428287.gif" BORDER='0' WIDTH='1' HEIGHT='<%= GRAPH_HEIGHT %'<TD VALIGN='top' ALIGN='right'<%= iMaxValue %                 & nbsp;             <TR
<TD VALIGN='bottom' ALIGN='right'0 <TD
<TABLE BORDER='<%= TABLE_BORDER %' CELLSPACING='0' CELLPADDING='0'
<TR
<TD VALIGN='bottom'<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/05121000534222251.gif" BORDER='0' WIDTH='<%= GRAPH_BORDER %' HEIGHT='<%= GRAPH_HEIGHT %'<%
' 对数组所有数值进行循环,绘制条形图!
                & nbsp; For I = 0 To UBound(aValues)
iBarHeight = Int((aValues(I) / iMaxValue) * GRAPH_HEIGHT)
                & nbsp;               &n bsp;               ' 因为浏览器会忽略0高度的条形图,所以用1代替!
                & nbsp;   If iBarHeight = 0 Then iBarHeight = 1
%
<TD VALIGN='bottom'<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/0512100053428287.gif" BORDER='0' WIDTH='<%= GRAPH_SPACER %' HEIGHT='1'<TD VALIGN='bottom'<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/05121000534240625.gif" BORDER='0' WIDTH='<%= iBarWidth %' HEIGHT='<%= iBarHeight %' ALT='<%= aValues(I) %'&

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)
展开更多 50%)
分享

猜你喜欢

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

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

奥林匹克运动会平面设计统计图表作品

设计素材
奥林匹克运动会平面设计统计图表作品

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在Excel中快速创建图表

电脑网络
在Excel中快速创建图表

在Word2024文档中创建图表

word
在Word2024文档中创建图表

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在word中怎么插入扇形统计图具体该怎么操作

软件教程 word
在word中怎么插入扇形统计图具体该怎么操作

在Excel 2007中创建组合图表教程

excel
在Excel 2007中创建组合图表教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Photoshop初学者实例教程:巧用滤镜打造射线立体字

Photoshop初学者实例教程:巧用滤镜打造射线立体字

利用XML不离开页面刷新数据

利用XML不离开页面刷新数据
下拉加载更多内容 ↓