一个不需要第三方组件,可实现华简单图形的类
|
admin
2010年7月24日 17:7
本文热度 4292
|
通常我们做统计图的时候需要借助组件来完成例如mschart,aspchart等
但是这个类不需要任何组件,而且使用方便
clsgraph.asp
<%
class inteligraph
public copyright, developer, name, version, web
public maximum, barwidth, barcolor, orientation
private items(), cnt
private sub class_initialize()
copyright = "?2001 ticluse teknologi, all rights reserved."
developer = "james lind雗"
name = "inteligraph"
version = "1.0"
web = "http://www.intelidev.com"
cnt = 0
end sub
public function add( value )
redim preserve items( cnt )
items( cnt ) = value
data = cnt
cnt = cnt + 1
add = data
end function
public function build()
if cnt < 1 then exit function
if len( orientation ) = 0 or lcase( orientation ) = "horizontal" then
for idx = lbound( items ) to ubound( items )
data = data & "<table height=" & barwidth & " border=1 width=" & maximum & " cellspacing=2>" & vbnewline
data = data & vbtab & "<tr><td width=" & items(idx) & " bgcolor=" & barcolor & " align=center><font size=-4> </font></td>"
if items(idx) < maximum then
data = data & "<td width=" & maximum - items(idx) & "></td>"
end if
data = data & "</tr>" & vbnewline & "</table>" & vbnewline
next
elseif lcase( orientation ) = "vertical" then
data = "<table><tr>" & vbnewline
for idx = lbound( items ) to ubound( items )
data = data & "<td><table width=" & barwidth & " border=1 height=" & maximum & " cellspacing=2>" & vbnewline
if items(idx) < maximum then
data = data & "<tr><td height=" & maximum - items(idx) & "></td></tr>"
end if
data = data & vbtab & "<tr><td height=" & items(idx) & " bgcolor=" & barcolor & " align=center><font size=-4> </font></td>"
data = data & "</tr>" & vbnewline & "</table>" & vbnewline & "</td>" & vbnewline
next
data = data & "</tr></table>" & vbnewline
end if
build = data
end function
end class
%>
使用方法
这个类一共有四个属性
barwidth(图片条的尺寸)
barcolor*(图片条颜色)
maximum(图片条最大长度)
orientation(方向)
有两个函数
add( value )添加图片条到图片中
build()建立图片
事例:
<!-- #include file=clsgraph.asp -->
<%
public const vert = "vertical"
public const horz = "horizontal"
dim graph
set graph = new inteligraph
graph.barwidth = 10
graph.barcolor = "blue"
graph.maximum = 100
graph.orientation = horz
for idx = 0 to 100 step 25
graph.add( idx )
next
response.write( graph.build() )
%>
该文章在 2010/7/24 17:07:11 编辑过