asp读取access数据的问题【前一个忘记贴代码了】
在网上找了OWC的统计图，现在我想把前面的数组换成从数据库中读取的数据，如何操作啊？access中chanping表表格列：idchanpingstrnum1A2002B...
在网上找了OWC的统计图，现在我想把前面的数组换成从数据库中读取的数据，如何操作啊？
access中 chanping 表
表格列：
id chanping strnum
1 A 200
2 B 150
3 C 300
4 D 100
5 E 220
代码如下：
<title>ASP中利用OWC控件实现各种统计图</title>
</head>
<body>
<%
'下面测试的是一个产品销量图
MX1 = "A产品,B产品,C产品,D产品" '数据项目名数组（给出测试数据，实际用的时候从数据库读取用","分隔）
MX2 = "50,60,20,80" '数据项目值数组
%>
<br>
<center><object id="ChartSpace1" classid="CLSID:0002E55D-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>
<br>
<script language="vbscript">
Sub Window_OnLoad()
'------------------饼图-------------------------------------------------------------
'为数据赋值
categories = split("<%=MX1%>",",") '数据项目名数组
values = split("<%=MX2%>",",") '数据项目值数组
Set cht = ChartSpace1.Charts.Add '添加一个图标对象
Set c = ChartSpace1.Constants '返回一个对象，此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypePie '设置图表类型为饼图
'-------设置图表标题----------------------------------------
ChartSpace1.HasChartSpaceTitle = True '指定图表工作区中包含标题
ChartSpace1.ChartSpaceTitle.Caption = "饼状图" '设置图表工作区标题内容
'有关字体的设置
ChartSpace1.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体
ChartSpace1.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色
ChartSpace1.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体
ChartSpace1.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体
ChartSpace1.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小（单位：磅）
ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性
'-------设置图例--------------------------------------------
cht.HasLegend = True '指定图表工作区中含有图例
cht.Legend.Font.Size = 9 '其他有关字体项的设置参见设置图表标题部分
cht.Legend.Position = c.chLegendPositionRight '设置图例对其方式
cht.SetData c.chDimCategories, c.chDataLiteral, categories
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加图例的数据标记
dl.HasValue = False
dl.HasPercentage = True
dl.Font.Size = 11
'------------------饼图（结束）------------------------------------------------
End Sub
</script>
</body>
这是答案：
dim item,count 'item:保存项目的序列 count:保存项目数量的序列
item=""
count=""
set rs=conn.execute("select item,count from table")
if not rs.eof then
i=1
do while not rs.eof
item=item&rs(0)&","
count=count&rs(1)&","
rs.movenext
loop
if len(item)>0 then item=left(item,len(item)-1)
if len(count)>0 then count=left(count,len(count)-1)
end if 展开
access中 chanping 表
表格列：
id chanping strnum
1 A 200
2 B 150
3 C 300
4 D 100
5 E 220
代码如下：
<title>ASP中利用OWC控件实现各种统计图</title>
</head>
<body>
<%
'下面测试的是一个产品销量图
MX1 = "A产品,B产品,C产品,D产品" '数据项目名数组（给出测试数据，实际用的时候从数据库读取用","分隔）
MX2 = "50,60,20,80" '数据项目值数组
%>
<br>
<center><object id="ChartSpace1" classid="CLSID:0002E55D-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>
<br>
<script language="vbscript">
Sub Window_OnLoad()
'------------------饼图-------------------------------------------------------------
'为数据赋值
categories = split("<%=MX1%>",",") '数据项目名数组
values = split("<%=MX2%>",",") '数据项目值数组
Set cht = ChartSpace1.Charts.Add '添加一个图标对象
Set c = ChartSpace1.Constants '返回一个对象，此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypePie '设置图表类型为饼图
'-------设置图表标题----------------------------------------
ChartSpace1.HasChartSpaceTitle = True '指定图表工作区中包含标题
ChartSpace1.ChartSpaceTitle.Caption = "饼状图" '设置图表工作区标题内容
'有关字体的设置
ChartSpace1.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体
ChartSpace1.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色
ChartSpace1.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体
ChartSpace1.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体
ChartSpace1.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小（单位：磅）
ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性
'-------设置图例--------------------------------------------
cht.HasLegend = True '指定图表工作区中含有图例
cht.Legend.Font.Size = 9 '其他有关字体项的设置参见设置图表标题部分
cht.Legend.Position = c.chLegendPositionRight '设置图例对其方式
cht.SetData c.chDimCategories, c.chDataLiteral, categories
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加图例的数据标记
dl.HasValue = False
dl.HasPercentage = True
dl.Font.Size = 11
'------------------饼图（结束）------------------------------------------------
End Sub
</script>
</body>
这是答案：
dim item,count 'item:保存项目的序列 count:保存项目数量的序列
item=""
count=""
set rs=conn.execute("select item,count from table")
if not rs.eof then
i=1
do while not rs.eof
item=item&rs(0)&","
count=count&rs(1)&","
rs.movenext
loop
if len(item)>0 then item=left(item,len(item)-1)
if len(count)>0 then count=left(count,len(count)-1)
end if 展开
1个回答
展开全部
先设置两个变量，分别用来存放项目名序列和项目数量序列
将从数据库中循环读取的项目和项目数量用“,”连接起来不就OK了吗
将从数据库中循环读取的项目和项目数量用“,”连接起来不就OK了吗
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
