下面给出了一个通用的函数及其用例，请参考。 <%[br]rem 首先我们设计一个showcart函数，其中[br]rem avalues 是一个数值数组[br]rem alables 是横坐标的标号[br]rem strtitle是这个统计图的标题[br]rem strxaxislable x轴的标签[br]rem stryaxislable y轴的标签[br]sub showchart(byref avalues, byref alabels, byref strtitle, byref strxaxislabel, byref stryaxislabel)[br]' 你可以随便改变的图形常数[br]' 单位是屏幕像素点[br]const graph_width = 450 ' 图形宽度[br]const graph_height = 250 ' 图形[br]const graph_border = 5 ' 坐标线宽度[br]const graph_spacer = 2 ' 统计条之间的距离[br]const table_border = 0[br]' 变量声明[br]dim i[br]dim imaxvalue[br]dim ibarwidth[br]dim ibarheight[br]' 取得avalues最大值[br]imaxvalue = 0[br]for i = 0 to ubound(avalues)[br]if imaxvalue < avalues(i) then imaxvalue = avalues(i)[br]next 'i[br]' 计算每条图形的宽度[br]ibarwidth = (graph_width (ubound(avalues) + 1)) - graph_spacer[br]' 开始绘图[br]%> [br][br][br][br][br][br][br][br][br][br][br][br][br][br]

<%= strtitle %>
<%= stryaxislabel %>	[br][br][br]& nbsp; &n bsp; [br][br]& nbsp; [br][br][br][br] <%= imaxvalue %> 0 [br]	[br][br][br][br]<%[br]' 对数组所有数值进行循环，绘制条形图![br]& nbsp; for i = 0 to ubound(avalues)[br]ibarheight = int((avalues(i) / imaxvalue) * graph_height)[br]& nbsp; &n bsp; ' 因为浏览器会忽略0高度的条形图，所以用1代替![br]& nbsp; if ibarheight = 0 then ibarheight = 1[br]%>[br][br][br]<%[br]& nbsp; next 'i[br]%>[br][br][br][br][br]<% ' 检查横坐标数组是否有效! %>[br]<% if isarray(alabels) then %>[br][br][br]<% for i = 0 to ubound(avalues) %>[br][br][br]<% next 'i %>[br][br]<% end if %>[br] <%= alabels(i) %> [br]
		<%= strxaxislabel %>

[br]<%[br]end sub[br]%>[br]<%[br]' 一个带有横坐标的条形图[br]showchart array(6, 10, 12, 18, 23, 26, 27, 28, 30, 34, 37, 45, 55), _[br]array("p1", "p2", "p3", "p4", "p5", "p6", "p7", "p8", "p9", _[br]"p10", "p11", "p12", "p13"), "连续几个月的销售额", "x 轴", "y 轴"[br]' 空行[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]' 构造一个由随机数组成的数组[br]dim i[br]dim atemp(49)[br]randomize[br]for i = 0 to 49[br]atemp(i) = int((50 + 1) * rnd)[br]next 'i[br]' 由随机数组生成的条形图[br]showchart atemp, "这不是一个数组!", "随机条形图", "序号 ", "随机数"[br]%>