你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

用ASP生成二维饼图

[ ASP ] 分享

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


欢迎在此留下您的脚步






评论内容 (*必填):
(Ctrl + Enter 快速提交)