您要打印的文件是：用ASP生成二维饼图

用ASP生成二维饼图

作者：11830    转贴自：csdn    点击数：2393


<%@ 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>