</HEAD>
  <BODY&g">

用ASP生成二维饼图

80酷酷网    80kuku.com

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

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: