Browser → msChart Control (Client) ← JavaScript ← ASP (Server) ← ADO ← ODBC ← DBMS
Recordset。Response.Write 產生 JS 程式碼)。<OBJECT ID="Chart1" CLASSID="CLSID:...msChart..."> 控件讀取 JS 變數繪圖。<%@ LANGUAGE="VBScript" %>
<%
Dim oConn, oRs, sqlString
sqlString = "SELECT Year, Sales FROM AnnualSales"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=SalesDB"
Set oRs = oConn.Execute(sqlString)
%>
<script language="JavaScript">
var categories = new Array();
var values = new Array();
<%
Dim i = 0
Do While Not oRs.EOF
%>
categories[<%=i%>] = "<%=oRs("Year")%>";
values[<%=i%>] = <%=oRs("Sales")%>;
<%
i = i + 1
oRs.MoveNext
Loop
oRs.Close: oConn.Close
%>
// 繫結 msChart
Chart1.ChartData.SeriesCollection(1).Data = values;
Chart1.ChartData.Categories = categories;
</script>
<OBJECT ID="Chart1" CLASSID="CLSID:A38F11E0-...msChart..." WIDTH=400 HEIGHT=300></OBJECT>
建議改用 JavaScript 圖表庫(Chart.js、Highcharts、ECharts)搭配 AJAX/JSON 取得資料,跨瀏覽器、無元件安裝、支援行動裝置。