伊缘网 首页
 设为首页    加入收藏    用户帮助    联系我们 
网站首页 新闻动态 技术文章 Flash整站 精彩网文 资源下载 视频教程
网上商城 Flash动漫 网页特效 酷站欣赏 BBS论坛 在线工具 留言本站
  F-CMS Flash CMS   CXT Flash Cms   SXW Flash CMS   EXW Flash Cms   
  您的位置: 伊缘网 >> 网络学堂 >> 建站技术 >> ASP 编程
 阅读文章

不需第三方组件实现华简单图形的类

  文章作者:佚名来源:转摘浏览次数:3450字体:
 阅读权限:游客身份阅读花费:0 E币添加时间:2006-11-28 上午 11:09:43提交会员:esing
皮具制造生产企业,专注时尚包包
提示:登陆本站会员系统后,网站系统将不显示任何广告!如果您还不是本站会员请注册本站会员,谢谢您对本站的关注!
    通常我们做统计图的时候需要借助组件来完成例如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() )

  Tags:  不需第三方组件实现华简单图形的类  
·上篇文章:验证码程序及原理
·下篇文章:ASP中实现随机广告
复制 】 【 打印
 相关文章
·百度资料: 不需第三方组件实现华简单图形的类
没有相关文章
特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们尽快予以更正,谢谢。
 相关评论
【文章评论已关闭】
伊缘网