您的位置：首页 → 精文荟萃 → 软件资讯 → ASP Chart使用范例

ASP Chart使用范例

时间：2004/10/7 19:06:00来源：本站整理作者：蓝点我要评论(0)

　　Simple Chart Example使用很简单哦，这样就可以了：用Server.CreateObject建立对象，设置图表属性，调用SaveChart方法保存到硬盘或者用Response.BinaryWrite Chart.Image直接发送。
　　下面这段代码是示范如何建立一个柱图的：
　　ctBar = 1
　　cNone = 0
　　cGradient =6
　　rem **********************************************************************
　　rem * Instantiate the Chart component
　　rem **********************************************************************
　　Set Chart = Server.CreateObject （"ASPChart.Chart"）
　　rem **********************************************************************
　　rem * Add a Bar series with 3 points
　　rem **********************************************************************
　　Chart.AddSeries （ctBar）
　　Chart.AddValue 200, "Regular", vbBlue
　　Chart.AddValue 233, "Enhanced ", vbRed
　　Chart.AddValue 260, "Free", vbGreen
　　Chart.BarStyle = cGradient
　　rem **********************************************************************
　　rem * Set the PanelColor, remove the OuterBevel
　　rem **********************************************************************
　　Chart.PanelColor = vbWhite
　　Chart.BevelOuter = cNone
　　Chart.ChartBGColor = vbWhite
　　rem **********************************************************************
　　rem * Set the Width and Height of the image
　　rem **********************************************************************
　　Chart.Height = 300
　　Chart.Width = 500
　　rem **********************************************************************
　　rem * Set the filename, save the image and write the image tag
　　rem **********************************************************************
　　Chart.FileName = "d:\inetpub\wwwroot\images\smpchrt1.jpg"
　　'也不知道用Server.MapPath，不知道是笨呢还是图效率高。
　　Chart.SaveChart
　　Response.Write ""
　　rem **********************************************************************
　　rem * Destroy the object
　　rem **********************************************************************
　　Set Chart = nothing
　　Multiple Series per Chart
　　下面这段代码是示范如何建立多列数据的图表的。
　　Set Chart = Server.CreateObject（"AspChart.Chart"）
　　Randomize
　　Chart.AddSeries 7 'Candle Series
　　dblOpen = 1000 + Rnd（100）
　　for intCount = 1 to 30
　　dblBase = Round（100*Rnd-50）
　　Chart.AddCandle Now + intCount, dblOpen, dblOpen+20, dblOpen-20, dblOpen+dblBase
　　dblOpen = dblOpen + dblBase
　　next
　　Randomize
　　Chart.AddSeries 5 '这样再调用一次AddSeries就可以再加一列数据了
　　dblOpen = 1000 + Rnd（100）
　　for intCount = 1 to 30
　　dt = Now + intCount
　　dblBase = Round（100*Rnd-50）
　　Chart.AddXY dt, dblOpen, CStr（Month（dt））+ "/" + _
　　CStr（Day（dt））+"/" + CStr（Year （dt） Mod 100），vbRed
　　dblOpen = dblOpen + dblBase
　　next
　　再加一段直接输出到浏览器的例子吧：
　　Response.ContentType = "image/JPEG"
　　Dim Chart
　　Set Chart = Server.CreateObject （"ASPChart.Chart"）
　　Chart.AddSeries （ctBar）
　　Chart.AddValue 200, "Regular", vbBlue
　　Chart.AddValue 233, "Enhanced ", vbRed
　　Chart.AddValue 260, "Free", vbGreen
　　Chart.BarStyle = cGradient
　　Chart.PanelColor = vbWhite
　　Chart.BevelOuter = cNone
　　Chart.ChartBGColor = vbWhite
　　Chart.Height = 300
　　Chart.Width = 500
　　Response.BinaryWrite Chart.Image
　　Set Chart = nothing

相关阅读 ASP Chart 简要介绍listary使用教程 listary的使用技巧超凡双生PC配置要求高吗 超凡双生PC配置要求一览dnf现场负责人梦露在哪 dnf梦露npc位置介绍dnf里贝在哪 dnf里贝npc位置介绍dnf寻宝小子在哪 dnf寻宝小子npc位置介绍禁用“Chrome请停用以开发者模式运行的扩展程序”教程Chrome浏览器新老版本插件安装教程 谷歌浏览器新老版本插件安装方

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论