| 广告招租，e-mail:yesize@hotmail.com
|
|
广告招租，e-mail:yesize@hotmail.com
这是使用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>
版权说明：作品来源于网上，版权归作者所有，如果无意中侵犯了您的版权，请来信告知，本站将在3个工作日内删除。yesize@hotmail.com |
|
 热门小游戏分类 |
|
|
|
加入最爱
