如何用javascript编写动态图形显示 http://developer.netscape.com/docs/technote/javascript/graph/ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 CSDN上原来的帖子有,我看到过,自己找一下。 用xml+xsl+VBscript然后让程序动态生成xml就可以了template如下:<SCRIPT language="vbscript">sub window_onload()Dim length,iDim categories(<xsl:value-of select="count(Chart/Xaxis/Category)"/>), values(<xsl:value-of select="count(Chart/Bar[position()=1]/Data)"/>)'将横坐标的值赋给Vbscript环境下的数组categories<xsl:for-each select="Chart/Xaxis/Category"> categories(<xsl:value-of select="position()"/>) = "<xsl:value-of select="CatTitle"/>"</xsl:for-each>ChartSpace1.Charts.Add '将图表添加到图表工作区中'将变量c设置为 Constants 属性所返回的对象,'因为在 VBScript 中不能使用已命名的常量Set c = ChartSpace1.ConstantsChartSpace1.Charts(0).hastitle=true '图表有标题ChartSpace1.Charts(0).Title.Font.Name = "仿宋_GB231280" '标题字体ChartSpace1.Charts(0).Title.Font.size=20 '标题字体大小ChartSpace1.Charts(0).Title.caption="<xsl:value-of select="Chart/Title"/>" '标题内容ChartSpace1.Charts(0).HasLegend = True '指定图表具有图例ChartSpace1.Charts(0).Legend.SelectChartSpace1.Selection.Position = 2ChartSpace1.Charts(0).PlotArea.Interior.Color="white"ChartSpace1.Charts(0).PlotArea.border.Color="white"ChartSpace1.Charts(0).axes(0).majorgridlines.line.color = "white"'给图表赋横坐标的值ChartSpace1.Charts(0).Setdata c.chDimCategories, c.chDataLiteral,categories<xsl:for-each select="Chart/Bar"> <xsl:if test="position() > 1"> ChartSpace1.Charts(0).SeriesCollection.Add </xsl:if> ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).Caption="<xsl:value-of select="Title"/>" ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).MarkerSize = 2 <xsl:for-each select="Data"> values(<xsl:value-of select="position()"/>) = "<xsl:value-of select="."/>" </xsl:for-each> ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).type = <xsl:value-of select="Type"/> ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).Setdata c.chDimValues, c.chDataLiteral, values</xsl:for-each>'指定纵坐标轴有标题,并赋值,然后指定数据的显示格式ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).hastitle=trueChartSpace1.Charts(0).axes(c.chAxisPositionLeft).title.caption="<xsl:value-of select="Chart/Yaxis/Title"/>"ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##"'指定横坐标轴有标题,并赋值ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).hastitle=trueChartSpace1.Charts(0).axes(c.chAxisPositionBottom).title.caption="<xsl:value-of select="Chart/Xaxis/Title"/>"end sub</SCRIPT>以上是我前次项目的一部分。你可以参考一下 如果需要时时显示,估计需要用到组建,一是js速度比较慢,而是没有提供图形处理功能。也许可以用vml,不过如果是象股票分析那样,还是别用,刷新速度太慢,会闪烁,搂住可以考虑使用java,那会好一点,对于一般的图形要求java可以满足了。听到时时就头痛,单纯的用frame可能无法使用缓冲的技术,实现不了时时要求。 客户端实现:vml(仅IE)http://expert.csdn.net/Expert/TopicView1.asp?id=840502activex(仅IE)http://expert.csdn.net/Expert/topicview.asp?id=956699script(IE,NS,MOZ)http://expert.csdn.net/Expert/TopicView1.asp?id=1238516组件:http://www.fcsoft.com.cn:8080/webgraphsample/index.htmhttp://www.object-refinery.com/jfreechart/... 关于HTML和WIN7触摸屏 一个tabpanel,欢迎下载 这个效果如何做,朋友们进来看看吧 js如何将剪切板代码复制到 #test 中去? 框架的隐藏 javascript 大文本问题 怎样才能获得iis的虚拟目录的实际路径 sos紧急求救!!!!!!!!!!!!!!!11 庆祝元旦,并且庆祝自己终于从新疆那个鬼地方活着回来了!哈哈哈哈 想做一个实时判断用户是否登录的效果 请 radio 的高手进来看看好吗? !!!请问VBscript中类似continue的语句是什么?急!!!
然后让程序动态生成xml就可以了template如下:<SCRIPT language="vbscript">
sub window_onload()Dim length,i
Dim categories(<xsl:value-of select="count(Chart/Xaxis/Category)"/>), values(<xsl:value-of select="count(Chart/Bar[position()=1]/Data)"/>)
'将横坐标的值赋给Vbscript环境下的数组categories
<xsl:for-each select="Chart/Xaxis/Category">
categories(<xsl:value-of select="position()"/>) = "<xsl:value-of select="CatTitle"/>"
</xsl:for-each>
ChartSpace1.Charts.Add '将图表添加到图表工作区中
'将变量c设置为 Constants 属性所返回的对象,
'因为在 VBScript 中不能使用已命名的常量
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).hastitle=true '图表有标题
ChartSpace1.Charts(0).Title.Font.Name = "仿宋_GB231280" '标题字体
ChartSpace1.Charts(0).Title.Font.size=20 '标题字体大小
ChartSpace1.Charts(0).Title.caption="<xsl:value-of select="Chart/Title"/>" '标题内容
ChartSpace1.Charts(0).HasLegend = True '指定图表具有图例
ChartSpace1.Charts(0).Legend.Select
ChartSpace1.Selection.Position = 2ChartSpace1.Charts(0).PlotArea.Interior.Color="white"
ChartSpace1.Charts(0).PlotArea.border.Color="white"
ChartSpace1.Charts(0).axes(0).majorgridlines.line.color = "white"'给图表赋横坐标的值
ChartSpace1.Charts(0).Setdata c.chDimCategories, c.chDataLiteral,categories<xsl:for-each select="Chart/Bar">
<xsl:if test="position() > 1">
ChartSpace1.Charts(0).SeriesCollection.Add
</xsl:if>
ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).Caption="<xsl:value-of select="Title"/>"
ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).MarkerSize = 2
<xsl:for-each select="Data">
values(<xsl:value-of select="position()"/>) = "<xsl:value-of select="."/>"
</xsl:for-each> ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).type = <xsl:value-of select="Type"/>
ChartSpace1.Charts(0).SeriesCollection(<xsl:value-of select="position()-1"/>).Setdata c.chDimValues, c.chDataLiteral, values
</xsl:for-each>
'指定纵坐标轴有标题,并赋值,然后指定数据的显示格式
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).title.caption="<xsl:value-of select="Chart/Yaxis/Title"/>"
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##"
'指定横坐标轴有标题,并赋值
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).title.caption="<xsl:value-of select="Chart/Xaxis/Title"/>"end sub
</SCRIPT>
以上是我前次项目的一部分。你可以参考一下
也许可以用vml,不过如果是象股票分析那样,还是别用,刷新速度太慢,会闪烁,搂住可以考虑使用java,那会好一点,对于一般的图形要求java可以满足了。
听到时时就头痛,单纯的用frame可能无法使用缓冲的技术,实现不了时时要求。
vml(仅IE)http://expert.csdn.net/Expert/TopicView1.asp?id=840502
activex(仅IE)http://expert.csdn.net/Expert/topicview.asp?id=956699
script(IE,NS,MOZ)http://expert.csdn.net/Expert/TopicView1.asp?id=1238516组件:
http://www.fcsoft.com.cn:8080/webgraphsample/index.htm
http://www.object-refinery.com/jfreechart/
...