 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
通常我们做统计图的时候需要借助组件来完成例如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() ) %> 返回类别: 教程 上一教程: 使用组件封装数据库操作(一) 下一教程: 几例在ASP存储过程的使用方式 您可以阅读与"一个不需要第三方组件，可实现华简朴图形的类"相关的教程: · 在ASP中不借助第三方组件抓取别的站点的页面 · ASP实现一个不太让人讨厌的自动弹出窗口 · WEB打印设置解决方案三(FILESYSTEM组件实现WEB打印) · 为你的ASP程序制作一个编译组件(上) · 生成一个不重复的随即数字 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
