台灣最大程式設計社群網站
線上人數
870
 
會員總數:244989
討論主題:188956
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用ASP生成Chart (二維餅圖)
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用ASP生成Chart (二維餅圖)
價值 : 0 QP  點閱數:2589 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
這是使用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>
本篇文章發表於2001-04-14 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.