<%@ 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.OpenSet objRS = Server.CreateObject("ADODB.Recordset")objRS.ActiveConnection = objConnobjRS.CursorLocation = 3objRS.Open("select OrderDetailID,UnitPrice from Order_Details")i=1Response.Write "Const num = " & objrs.RecordCount & vbCrResponse.Write "Dim ID(" & objrs.RecordCount & ")" & vbCrResponse.Write "Dim Details(" & objrs.RecordCount & ")" & vbCrDo While Not objRS.EOF Response.Write("ID(" & i & ")=""" & objRS(0) & """" & Chr(13)) Response.Write("Details(" & i & ")=""" & objRS(1) & """" & Chr(13)) i=i+1 objRS.MoveNextLoop%>MSChart1.TitleText = "Example"MSChart1.RowCount = 1MSChart1.ColumnCount = numfor i = 1 to num MSChart1.Column = i MSChart1.ColumnLabel = ID(i)nextMSChart1.chartType = 14 '14是二维饼图,拟合曲线我还不知道怎么画MSChart1.ShowLegend = TrueMSChart1.ChartData = Details</SCRIPT>
</BODY></HTML>
