Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.ContainsKey("qj") Then
wb.AppendHTML("<script src='http://cdn.static.runoob.com/libs/jquery/1.10.2/jquery.min.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts-stat/ecStat.min.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts/echarts-all-3.js'></script>",True)
wb.AppendHTML("<script src='http://echarts.baidu.com/gallery/vendors/echarts/map/js/china.js'></script>",True)
With wb.AddArticle("","ar1")
.AddTitle("h1","ECharts测试")
.AddTitle("h2","1. 条形图")
.AddContent("<div id=""main1"" style=""width: 600px;height:400px;""></div>")
.AddTitle("h2","2. 地图")
.AddContent("<div id=""main2"" style=""width: 600px;height:400px;""></div>")
End With
wb.AppendHTML("<script src='./lib/map.js'></script>")
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2017/7/24 14:35:00 [只看该作者]
