map.js
var myChart1 = echarts.init(document.getElementById('main1'),'macarons');
var myChart2 = echarts.init(document.getElementById('main2'),'macarons');
$.get('getdata.htm?type=1').done(function (jsonstr) {
var mydata = eval('(' + jsonstr + ')');
myChart1.setOption({
title: {
text: ''
},
tooltip: {
},
textStyle:{
color:'#000'
},
xAxis: {
data: mydata.categories
},
yAxis: {},
series: [{
name: '',
type: 'bar',
data: mydata.data
}]
});
});
$.get('getdata.htm?type=2').done(function (jsonstr) {
var mydata = eval('(' + jsonstr + ')');
myChart2.setOption({
tooltip:{
formatter: "{a} <br/>{b} : {c}%"
},
series: [{
name: 'foxtable',
type: 'gauge',
detail: {formatter:'{value}%'},
data: [{value: 90, name: '完成率'}],
axisLine: {
lineStyle: {
color: [[0.2, "rgb(255, 0, 0)"], [0.8, "rgb(255, 255, 86)"], [1, "rgb(33, 255, 0)"]]
}
}
}]
});
});
httprequest
Dim fl As String = "d:\web\" & e.path
Dim wb As New WeUI
Dim sb As New StringBuilder
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
e.WriteFile(fl)
Return '这里必须返回
End Select
Else
End If
Select Case e.Path
Case "test.htm"
With wb.AddArticle("","ar1")
Dim str As String = FileSys.ReadAllText("d:\web\index.html", encoding.default)
AddContent(str)
End With
'
wb.AppendHTML("<script src='./lib/map.js'></script>")
'
e.WriteString(wb.Build)
Case "getdata.htm"
Dim json As String
If e.GetValues("type") ="1" Then
Dim jo As New JObject
Dim ja1 As New JArray '定义数组
Dim ja2 As New JArray '定义数组
For Each dr As DataRow In DataTables("表A").DataRows
ja1.Add(dr("第一列"))
ja2.Add(dr("第二列"))
Next
jo("categories") = ja1
jo("data") = ja2
json = jo.ToString
Else
json = FileSys.ReadAllText("d:\web\lib\data2.txt")
End If
e.WriteString(json)
End Select
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/5/23 20:34:00 [显示全部帖子]
