前台新建一个页面如1.html,下载个json2.js
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<script src="js/echarts.js"></script>
<script src="js/jquery-3.2.1.min.js"></script>
<script src="js/json2.js"></script>
</head>
<body>
<!-- 为ECharts准备一个具备大小(宽高)的Dom -->
<div id="main" style="width: 1100px;height:400px;"></div>
<script type="text/javascript">
// 基于准备好的dom,初始化echarts实例
var myChart = echarts.init(document.getElementById('main'));
// 指定图表的配置项和数据
var option = {
color: ['#069'],
title: {
text: '数据汇聚'
},
tooltip: {},
legend: {
data:['数量']
},
xAxis: {
data: []
},
yAxis: {},
series: [{
name: '数量',
type: 'bar',
data: []
}]
};
myChart.showLoading();
var names=[];//类别数组(实际用来盛放X轴坐标值)
var nums=[];//销量数组(实际用来盛放Y坐标值)
$.ajax({
type : "post",
async : true, //异步请求(同步请求将会锁住浏览器,用户其他操作必须等待请求完成才可以执行)
url : "index_json.asp", //请求发送到TestServlet处
data : {},
dataType : "json", //返回数据形式为json
success : function(result) {
//请求成功时执行该函数内容,result即为服务器返回的json对象
if (result) {
for(var i=0;i<result.length;i++){
names.push(result[i].name); //挨个取出类别并填入类别数组
}
for(var i=0;i<result.length;i++){
nums.push(result[i].num); //挨个取出销量并填入销量数组
}
myChart.hideLoading(); //隐藏加载动画
myChart.setOption({
color: ['#069'],
title: {
text: '数据汇聚'
},
tooltip: {},
legend: {
data:['数量']
}, //加载数据图表
xAxis: {
data: names
},
yAxis: {},
series: [{
// 根据名字对应到相应的系列
name: '数量',
type: 'bar',
data: nums
}]
});
}
},
error : function(errorMsg) {
//请求失败时执行该函数
alert("图表请求数据失败!");
myChart.hideLoading();
}
})
</script>
</body>
</html>
asp后台代码要下载个json.asp
创建index_json.asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file= "json.asp" -->
<%
db="site.mdb"
dim conn,connstr,db,str
set conn=Server.CreateObject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;data Source="&Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sqlstr="select top 10 * from shuju where num>0 order by num desc,id asc"
rs.open sqlstr,conn,1,3
Set jsa = jsArray()
while not rs.eof
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next
rs.movenext
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
Set QueryToJSON = jsa
Response.Write(QueryToJSON.Flush)
%>
数据库新建一张表shuju