| 这是使用ActiveX Controls 的 <%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY> <OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" id=MSChart1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT height=300 width=300></OBJECT> <SCRIPT LANGUAGE="VBScript"> <% Set objConn = Server.CreateObject("ADODB.Connection") objconn.ConnectionString = "DSN=AdvWorks" objConn.Open Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorLocation = 3 objRS.Open("select OrderDetailID,UnitPrice from Order_Details") i=1 Response.Write "Const num = " & objrs.RecordCount & vbCr Response.Write "Dim ID(" & objrs.RecordCount & ")" & vbCr Response.Write "Dim Details(" & objrs.RecordCount & ")" & vbCr Do While Not objRS.EOF Response.Write("ID(" & i & ")=""" & objRS(0) & """" & Chr(13)) Response.Write("Details(" & i & ")=""" & objRS(1) & """" & Chr(13)) i=i+1 objRS.MoveNext Loop %> MSChart1.TitleText = "Example" MSChart1.RowCount = 1 MSChart1.ColumnCount = num for i = 1 to num MSChart1.Column = i MSChart1.ColumnLabel = ID(i) next MSChart1.chartType = 14 '14是二维饼图,拟合曲线我还不知道怎么画 MSChart1.ShowLegend = True MSChart1.ChartData = Details </SCRIPT> </BODY> </HTML> |