<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio >
</HEAD>
<BODY>
<OBJECT classid=clsid:ABCBAADBFFD
id=MSChart VIEWASTEXT height= width=></OBJECT>
<SCRIPT LANGUAGE=VBScript>
<%
Set objConn = ServerCreateObject(ADODBConnection)
objconnConnectionString = DSN=AdvWorks
objConnOpen
Set objRS = ServerCreateObject(ADODBRecordset)
objRSActiveConnection = objConn
objRSCursorLocation =
objRSOpen(select OrderDetailIDUnitPrice from Order_Details)
i=
ResponseWrite Const num = & objrsRecordCount & vbCr
ResponseWrite Dim ID( & objrsRecordCount & ) & vbCr
ResponseWrite Dim Details( & objrsRecordCount & ) & vbCr
Do While Not objRSEOF
ResponseWrite(ID( & i & )= & objRS() & & Chr())
ResponseWrite(Details( & i & )= & objRS() & & Chr())
i=i+
objRSMoveNext
Loop
%>
MSChartTitleText = Example
MSChartRowCount =
MSChartColumnCount = num
for i = to num
MSChartColumn = i
MSChartColumnLabel = ID(i)
next
MSChartchartType = 是二维饼图拟合曲线我还不知道怎么画
MSChartShowLegend = True
MSChartChartData = Details
</SCRIPT>
</BODY>
</HTML>
