一个不需要第三方组件，可实现华简单图形的类

通常我们做统计图的时候需要借助组件来完成例如mschart,aspchart等
% M/ s, Z0 y: _但是这个类不需要任何组件，而且使用方便/ k2 @% \. Z! g" {* d, |
clsGraph.asp / U2 u# d& |- b6 L# v5 I
%
/ }6 e6 Z5 ?) m2 {* O; t' XClass InteliGraph
  n( q9 }6 o7 ]+ U
4 L* H3 o5 B" _  / f- W9 w' j; X, h- \/ ^

$ z3 y& f2 ]7 n# \! V, yPublic Copyright, Developer, Name, Version, Web
6 n" b& d% m4 M% u# `+ R, HPublic Maximum, BarWidth, BarColor, Orientation
0 ?  a8 A- d$ D2 mPrivate Items(), Cnt  * E* ~( x; Z9 k! B6 ]0 S

- {: {7 q. {  G1 E5 v! mPrivate Sub Class_Initialize()
1 E; G3 M1 B5 }- ?0 G% \4 G9 JCopyright = "?2001 Ticluse Teknologi, All rights reserved."
/ q1 e+ }6 e" E+ N* l1 lDeveloper = "James Lind雗"
) |+ R* q1 L5 w$ W! q6 tName = "InteliGraph"
# g. c- N# w% i. P' ~5 v, j) S/ J. _Version = "1.0"
6 V; ^( q( ]$ _5 E: V( FWeb = "http://www.intelidev.com"
: V% @2 [/ S, Y4 v' jCnt = 0
0 _+ |' Q- G1 Y$ oEnd Sub  ; o( D( y# _- W- C% Z9 J2 x
9 k+ {2 V& w' I
Public Function Add( value )1 M( t9 V3 |4 i+ m
ReDim Preserve Items( Cnt )0 W! o0 G& O3 R6 O* R3 ~$ i
Items( Cnt ) = value- A8 P2 s1 N- h& E
data = Cnt
# Z. R$ d; l# n: Q" ?Cnt = Cnt   1+ H1 L1 W7 ?" G) v
Add = data+ |& p  W5 O* _! l) t" z! a3 K
End Function  
/ K- `- I6 d! e9 E6 T6 T# b4 u& R5 I6 |4 e$ ?2 O+ }4 y4 d5 v
Public Function Build(): z9 D. ^6 h( w
If Cnt  1 Then Exit Function# ?) c( L( d6 _. z7 Y
If Len( Orientation ) = 0 Or LCase( Orientation ) = "horizontal" Then4 i0 B$ U  @; K0 U
For Idx = LBound( Items ) To UBound( Items )5 G2 f, }4 |) L$ f
data = data  "table height="  BarWidth  " border=1 width="  Maximum  " cellspacing=2"  vbNewLine
# ~9 ?. a$ J' B3 F* r1 G4 cdata = data  vbTab  "trtd width="  Items(Idx)  " bgcolor="  BarColor  " align=centerfont size=-4 /font/td"
1 t4 u; C4 |! f: m1 ?If Items(Idx)  Maximum Then
) P( c+ |9 n- l: r$ x. q5 g0 Ddata = data  "td width="  Maximum - Items(Idx)  "/td"4 m  a: p8 A) _% F- _2 y% r' _
End If
7 o9 M3 l! r8 H  T& ndata = data  "/tr"  vbNewLine  "/table"  vbNewLine( u! w; ~2 q9 A4 f' T' H! L
Next. _. {+ l; ^8 F. C- p# @3 n& F
ElseIf LCase( Orientation ) = "vertical" Then7 P, o7 f- D. y( J9 _
data = "tabletr"  vbNewLine
" E$ u% y; G- `& lFor Idx = LBound( Items ) To UBound( Items )3 G  @/ Y. b9 C8 L$ j
data = data  "tdtable width="  BarWidth  " border=1 height="  Maximum  " cellspacing=2"  vbNewLine2 i& K7 n2 r, R5 ^
If Items(Idx)  Maximum Then
, Q2 b+ A4 B! d. u* adata = data  "trtd height="  Maximum - Items(Idx)  "/td/tr"" H2 P" ~+ P. k" o/ L
End If
9 _( u) g; L# p! ]7 G$ ~data = data  vbTab  "trtd height="  Items(Idx)  " bgcolor="  BarColor  " align=centerfont size=-4 /font/td"0 o( Q- I+ d) u- r
data = data  "/tr"  vbNewLine  "/table"  vbNewLine  "/td"  vbNewLine2 P8 o1 ^! _& q  F! t
Next' W3 Z" W$ H2 Z
data = data  "/tr/table"  vbNewLine
: V2 k- N4 E: o2 r( \0 \End If
- V" C2 G# i, fBuild = data: I. r8 p1 E. M# }  ^$ i* O# Z4 }
End Function    _9 x, S$ W9 M0 D/ c4 t

0 `7 S! z' o1 K' i% C1 E& d9 [End Class
' j' B4 D/ [! `2 I& R* s6 J# a0 w* ~%
1 B3 U. i! n8 z* `: I0 D使用方法( b3 i# ~1 I$ x
这个类一共有四个属性- @& B# l$ `- K
BarWidth（图片条的尺寸）) q9 v2 _% R$ y5 C  h. r
BarColor*(图片条颜色)
; [2 Z5 Q5 Z3 _7 O7 hMaximum（图片条最大长度）  @  T3 }9 _  X! o% ^7 r; h
Orientation（方向）
( g& F' Y" d' J& {' I3 \8 i有两个函数
6 \$ B+ f; B) Q1 J6 A, z* M1 uAdd( value ）添加图片条到图片中
/ G0 N# U; T% `  ?2 pBuild()建立图片- R% n+ y  t& r+ t/ I
事例：
: x( `' b( Y' V!-- #include file=clsGraph.asp --" T7 P8 M6 q+ z
%+ t$ i: M; V% R/ _
Public Const vert = "vertical"
$ u0 }; [2 ~/ b5 g. m, T$ wPublic Const horz = "horizontal"  
  |: R6 v6 C0 I' H# v: [0 S5 E: `9 m- N4 y
Dim Graph  
8 `% a* T* A, X9 d1 Q& l& m( B5 J) T, n+ _+ Q
Set Graph = New InteliGraph
! o0 _! a$ @! D4 ?, H& I( p- ZGraph.BarWidth = 10
2 o! O1 u; a$ Q  M+ AGraph.BarColor = "blue"3 ?, i# l. p. g2 R0 P
Graph.Maximum = 100
) m& m/ q1 l  {7 lGraph.Orientation = horz  
& D: L' v0 u1 x! c" s& u6 v" W: i! L7 q. {, U: ?& B6 Z
For Idx = 0 To 100 Step 25
8 [+ W; N" z  j1 m+ B* N  A( CGraph.Add( Idx )* x; A( R/ i0 w9 Z# u
Next  
8 ~5 z) x- I2 h# F# W
2 {# Y+ V% T1 z3 LResponse.Write( Graph.Build() )( O+ P  z0 R/ s
%