请教asp中怎样通过access数据库里面的数据做统计图表
日期：2014-05-17 浏览次数：20820 次
请问asp中怎样通过access数据库里面的数据做统计图表?
请问asp中怎样通过access数据库里面的数据做统计图表?
帮忙写出代码和详细注解!谢谢!
数据库是 "abc.mdb " 表是 "def " name列对应point列的每个数据,point列有100个数目数据,把100个数据加起来,然后把这其中占有率最大的10个数据做统计图(以名称name显示)
------解决方案--------------------
给你一ASP文件的代码看一下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN ">
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> ASP中利用OWC控件实现图表功能详解 </title>
</head>
<body>
<%
'下面测试的是一个产品销量图
MX1 = "A产品,B产品,C产品,D产品 " '数据项目名数组（给出测试数据，实际用的时候从数据库读取用 ", "分隔）
MX2 = "50,60,20,80 " '数据项目值数组
Datestr = "2005-3-24,2005-3-25,2005-3-26,2005-3-27,2005-3-28 " '日期
SQARXLstr = "50,100,20,80,89 " 'A产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "40,60,20,90,70 " 'B产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "20,50,55,25,60 " 'C产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "80,20,75,58,100 " 'D产品2005-3-24 至 2005-3-28的销量
%>
<br>
<center> <object id= "ChartSpace1 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<br>
<center> <object id= "ChartSpace2 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<br>
<center> <object id= "ChartSpace3 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<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
//------------------饼图（结束）------------------------------------------------
//---------
请问asp中怎样通过access数据库里面的数据做统计图表?
帮忙写出代码和详细注解!谢谢!
数据库是 "abc.mdb " 表是 "def " name列对应point列的每个数据,point列有100个数目数据,把100个数据加起来,然后把这其中占有率最大的10个数据做统计图(以名称name显示)
------解决方案--------------------
给你一ASP文件的代码看一下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN ">
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> ASP中利用OWC控件实现图表功能详解 </title>
</head>
<body>
<%
'下面测试的是一个产品销量图
MX1 = "A产品,B产品,C产品,D产品 " '数据项目名数组（给出测试数据，实际用的时候从数据库读取用 ", "分隔）
MX2 = "50,60,20,80 " '数据项目值数组
Datestr = "2005-3-24,2005-3-25,2005-3-26,2005-3-27,2005-3-28 " '日期
SQARXLstr = "50,100,20,80,89 " 'A产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "40,60,20,90,70 " 'B产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "20,50,55,25,60 " 'C产品2005-3-24 至 2005-3-28的销量
SQARXLstr = SQARXLstr & ", " & "80,20,75,58,100 " 'D产品2005-3-24 至 2005-3-28的销量
%>
<br>
<center> <object id= "ChartSpace1 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<br>
<center> <object id= "ChartSpace2 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<br>
<center> <object id= "ChartSpace3 " classid= "CLSID:0002E556-0000-0000-C000-000000000046 " style= "width:95%;height:400 "> </object> </center>
<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
//------------------饼图（结束）------------------------------------------------
//---------
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
