[p]通常我们做统计图的时候需要借助组件来完成例如mschart,aspchart等[br]但是这个类不需要任何组件，而且使用方便[br]clsgraph.asp [br]<%[br]class inteligraph [/p] [p][br]public copyright, developer, name, version, web[br]public maximum, barwidth, barcolor, orientation[br]private items(), cnt[/p] [p]private sub class_initialize()[br]copyright = "?2001 ticluse teknologi, all rights reserved."[br]developer = "james lind雗"[br]name = "inteligraph"[br]version = "1.0"[br]web = "[url=http://intelidev.com]http://intelidev.com[/url]"[br]cnt = 0[br]end sub[/p] [p]public function add( value )[br]redim preserve items( cnt )[br]items( cnt ) = value[br]data = cnt[br]cnt = cnt + 1[br]add = data[br]end function[/p] [p]public function build()[br]if cnt < 1 then exit function[br]if len( orientation ) = 0 or lcase( orientation ) = "horizontal" then[br]for idx = lbound( items ) to ubound( items )[br]data = data & "" & vbnewline[br]data = data & vbtab & ""[br]if items(idx) < maximum then[br]data = data & ""[br]end if[br]data = data & "" & vbnewline & "" & vbnewline[br]next[br]elseif lcase( orientation ) = "vertical" then[br]data = "" & vbnewline[br]for idx = lbound( items ) to ubound( items )[br]data = data & "" & vbnewline[br]next[br]data = data & "

" & vbnewline[br]if items(idx) < maximum then[br]data = data & ""[br]end if[br]data = data & vbtab & ""[br]data = data & "" & vbnewline & "" & vbnewline & "

" & vbnewline[br]end if[br]build = data[br]end function[/p] [p]end class[br]%>[br]使用方法[br]这个类一共有四个属性[br]barwidth（图片条的尺寸）[br]barcolor*(图片条颜色)[br]maximum（图片条最大长度）[br]orientation（方向）[br]有两个函数[br]add( value ）添加图片条到图片中[br]build()建立图片[br]事例：[br][br]<%[br]public const vert = "vertical"[br]public const horz = "horizontal"[/p] [p]dim graph[/p] [p]set graph = new inteligraph[br]graph.barwidth = 10[br]graph.barcolor = "blue"[br]graph.maximum = 100[br]graph.orientation = horz[/p] [p]for idx = 0 to 100 step 25[br]graph.add( idx )[br]next[/p] [p]response.write( graph.build() )[br]%>[/p]