所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

通常我们做统计图的时候需要借助组件来完成例如mschart,aspchart等但是这个类不需要任何组件，而且使用方便clsGraph.asp<%Class InteliGraphPublic Copyright, Developer, Name, Version, WebPublic Maximum, BarWidth, BarColor, OrientationPrivate Items(), CntPrivate Sub Class_Initialize()Copyright = "?2001 Ticluse Teknologi, All rights reserved."Developer = "James Lindn"Name = "InteliGraph"Version = "1.0"Web = "http://www.intelidev.com"Cnt = 0End SubPublic Function Add( value )ReDim Preserve Items( Cnt )Items( Cnt ) = valuedata = CntCnt = Cnt + 1Add = dataEnd FunctionPublic Function Build()If Cnt < 1 Then Exit FunctionIf Len( Orientation ) = 0 Or LCase( Orientation ) = "horizontal" ThenFor Idx = LBound( Items ) To UBound( Items )data = data & "" & vbNewLinedata = data & vbTab & " "If Items(Idx) < Maximum Thendata = data & ""End Ifdata = data & "" & vbNewLine & "" & vbNewLineNextElseIf LCase( Orientation ) = "vertical" Thendata = "" & vbNewLineFor Idx = LBound( Items ) To UBound( Items )data = data & "" & vbNewLineIf Items(Idx) < Maximum Thendata = data & ""End Ifdata = data & vbTab & " "data = data & "" & vbNewLine & "" & vbNewLine & "" & vbNewLineNextdata = data & "" & vbNewLineEnd IfBuild = dataEnd FunctionEnd Class%>使用方法这个类一共有四个属性BarWidth（图片条的尺寸）BarColor*(图片条颜色)Maximum（图片条最大长度）Orientation（方向）有两个函数Add( value ）添加图片条到图片中Build()建立图片事例：<!-- #include file=clsGraph.asp --><%Public Const vert = "vertical"Public Const horz = "horizontal"Dim GraphSet Graph = New InteliGraphGraph.BarWidth = 10Graph.BarColor = "blue"Graph.Maximum = 100Graph.Orientation = horzFor Idx = 0 To 100 Step 25Graph.Add( Idx )NextResponse.Write( Graph.Build() )%> 关闭本页

....