您的位置:首页精文荟萃软件资讯 → 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浏览器新老版本插件安装教程 谷歌浏览器新老版本插件安装方

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本