Office2000 Web Components 图表怎么传参数

qiao198 2003-03-24 09:32:58

Office2000 Web Components 图表怎么传数据
各位帮帮忙。

...全文

57 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

zjh13226 2003-05-30

打赏
举报

<HTML>
<HEAD>
<TITLE>按月份</TITLE>
<script language="vbscript">
dim tem(12),x(12)
dim RS,conn,sSQL
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString ="driver={SQL Server};server=AF19;uid=sa;pwd=af2003sql;database=czh"
conn.open
set RS = Server.CreateObject("adodb.RecordSet")
'sSQL="Select * From web"
'sSQL="select top 12 convert(char(7),dhdate,102) as Rq,sum(spjg) as Zjg from ecorders group by month(dhdate),dhdate"
sSQL="select top 12 convert(char(7),dhdate,102) as Rq,sum(spjg) as Zjg from ecorders group by month(dhdate),dhdate ORDER BY zjg"
Rs.Open sSQL,Conn,1,1
do while not rs.eof %>
tem(i)=<%=rs("Zjg")%>
x(i)=<%=rs("Rq")%>
i=i+1
<% rs.movenext
loop
rs.movelast
%>
maxval=<%=rs("zjg")%>
<%rs.MoveFirst%>
minval=<%=rs("zjg")%>
<%
rs.close
set rs=nothing
%>
sub window_onload()

myspace1.clear
myspace1.Charts.Add
set c = myspace1.Constants

myspace1.Charts(0).Type = c.chChartTypeLine
myspace1.Charts(0).HasLegend = True
myspace1.charts(0).HasTitle = True
myspace1.charts(0).Title.Caption = "今天是："& date()
myspace1.charts(0).Title.Font.Name = "Arial"
myspace1.charts(0).Title.Font.Size = 12
myspace1.charts(0).Title.Font.Bold = True
myspace1.Charts(0).PlotArea.Interior.Color="#D6DFF7"

myspace1.Charts(0).SeriesCollection.Add
myspace1.Charts(0).SeriesCollection(0).Caption ="标准"
myspace1.Charts(0).SetData c.chDimCategories, c.chDataLiteral, X
myspace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, tem

myspace1.charts(0).Axes(c.chAxisPositionBottom).MinorUnit=1
myspace1.charts(0).Axes(c.chAxisPositionBottom).Scaling.Maximum=12
myspace1.charts(0).Axes(c.chAxisPositionBottom).HasTitle = True
myspace1.charts(0).Axes(c.chAxisPositionBottom).Title.Caption = "月份(M)"
myspace1.charts(0).Axes(c.chAxisPositionBottom).Title.Font.Name = "Arial"
myspace1.charts(0).Axes(c.chAxisPositionBottom).Title.Font.Size = 10
myspace1.charts(0).Axes(c.chAxisPositionBottom).Title.Font.Bold = True

myspace1.charts(0).Axes(c.chAxisPositionLeft).MajorUnit=clng(maxval-minval)/12
myspace1.charts(0).Axes(c.chAxisPositionLeft).Scaling.Minimum=clng(minval)
myspace1.charts(0).Axes(c.chAxisPositionLeft).Scaling.Maximum=clng(maxval)
myspace1.charts(0).Axes(c.chAxisPositionLeft).HasTitle = True
myspace1.charts(0).Axes(c.chAxisPositionLeft).Title.Caption = "总金额(S)"
myspace1.charts(0).Axes(c.chAxisPositionLeft).Title.Font.Name = "Arial"
myspace1.charts(0).Axes(c.chAxisPositionLeft).Title.Font.Size = 10
myspace1.charts(0).Axes(c.chAxisPositionLeft).Title.Font.Bold = True
end sub
</script>
<link rel="stylesheet" type="text/css" href="Form.css">
</HEAD>
<BODY>
<p align="center">
<object id=msodsc classid=CLSID:0002E530-0000-0000-C000-000000000046>
<param name="XMLData" value="<xml xmlns:a="urn:schemas-microsoft-com:office:access">
<a:DataSourceControl>
<a:OWCVersion>9.0.0.3821</a:OWCVersion>
<a:MaxRecords>0</a:MaxRecords>
<a:GridX>10</a:GridX>
<a:GridY>10</a:GridY>
<a:Datamodel version="0816">
</a:Datamodel>
</a:DataSourceControl>
</xml>">
</object>

<b><font color="#428EFF" size="5">按月份输出图形</font></b>
<object id=myspace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 codebase=”msowc.dll” style="width:698;height:349">
<param name="XMLData" value="<xml xmlns:x="urn:schemas-microsoft-com:office:excel">
<x:WebChart>
<x:OWCVersion>9.0.0.3821</x:OWCVersion>
<x:Width>18468</x:Width>
<x:Height>8573</x:Height>
<x:Chart>
<x:PlotArea>
<x:Graph>
<x:Type>Column</x:Type>
<x:SubType>Clustered</x:SubType>
<x:ScaleID>49849780</x:ScaleID>
<x:ScaleID>49849936</x:ScaleID>
<x:Overlap>0</x:Overlap>
<x:GapWidth>150</x:GapWidth>
<x:FirstSliceAngle>0</x:FirstSliceAngle>
</x:Graph>
<x:Axis>
<x:AxisID>49851332</x:AxisID>
<x:ScaleID>49849936</x:ScaleID>
<x:Type>Value</x:Type>
<x:MajorGridlines>
</x:MajorGridlines>
<x:MajorTick>Outside</x:MajorTick>
<x:MinorTick>None</x:MinorTick>
<x:Placement>Left</x:Placement>
</x:Axis>
<x:Axis>
<x:AxisID>49851728</x:AxisID>
<x:ScaleID>49849780</x:ScaleID>
<x:Type>Category</x:Type>
<x:MajorTick>Outside</x:MajorTick>
<x:MinorTick>None</x:MinorTick>
<x:Placement>Bottom</x:Placement>
</x:Axis>
</x:PlotArea>
</x:Chart>
<x:Scaling>
<x:ScaleID>49849780</x:ScaleID>
</x:Scaling>
<x:Scaling>
<x:ScaleID>49849936</x:ScaleID>
</x:Scaling>
</x:WebChart>
</xml>">
<param name="ScreenUpdating" value="-1">
</object>
</p>

<p align="center">　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<a href="index.asp">>>返回主页</a></p>
</BODY>

</HTML>