在ASP中怎樣用Excel寫報表

现在的位置: 首页 >> 网站编程 >> ASP >> 在ASP中怎樣用Excel寫報表


	添加时间:2005-12-4 来源:网教中国作者:

在ASP中怎樣用Excel寫報表

折线图

  <%
  Option Explicit


  '页面级对象
  '--------------------
  Dim m_cn '链接对象
  Dim m_rs '记录集对象
  Dim m_cspace 'OWC.ChartSpace object
  Dim m_fso '文件系统对象
  Dim m_objBinaryFile '二进值文件流对象

  Dim m_sYear '需要查询的年份

  Dim sSQL '执行的SQL 语句
  Dim c 'OWC 常量对象
  Dim cht '图表临时参考变量
  Dim ax '数轴的临时参考变量
  Dim fnt 'OWCFont字体的临时参考变量
  Dim sFullFileName '输出GIF文件的临时参考路径

  '获得查询年份，缺省为2002
  m_sYear = Request.QueryString("year")
  if len(m_sYear) = 0 then m_sYear = "2002"

  '创建一个ADO链接和记录集对象
  set m_cn = Server.CreateObject("ADODB.Connection")
  set m_rs = Server.CreateObject("ADODB.Recordset")

  '链接到Access数据库，使用客户端的游标引擎打开记录集
  m_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(".") & "\data.mdb"
  sSQL = "SELECT Month([OrderDate]) AS [Month], Invoices.Salesperson, " & _
   "Sum(Invoices.ExtendedPrice) AS Sales FROM Invoices " & _
   "WHERE Invoices.OrderDate between #1/1/" & m_sYear & "# and #12/31/" & m_sYear & "# " & _
   "GROUP BY Month([OrderDate]), Invoices.Salesperson"
  m_rs.CursorLocation = 3 'adUseClient
  m_rs.Open sSQL, m_cn, 3 'adOpenStatic

  '增加一个带有图例的簇列图表
  set m_cspace = server.CreateObject("OWC.Chart")
  set m_cspace.DataSource = m_rs
  set cht = m_cspace.Charts.Add()
  set c = m_cspace.Constants

  cht.HasLegend = True

  cht.Type =c.chChartTypeLineMarkers
  '设置图表的数据源，把销售人添加到序列名称，销售月份添加到分类组，销售金额作为图表中各项取值


  cht.SetData c.chDimSeriesNames, 0, "Salesperson"
  cht.SetData c.chDimCategories, 0, "Month"
  cht.SetData c.chDimValues, 0, "Sales"


  cht.SeriesCollection(4).Interior.Color = "blue" '改变第四条线的颜色为蓝色
  Cht.SeriesCollection(4).Line.Color = "blue"


  '增加一个图表标题，并格式化标题
  cht.HasTitle = True
  cht.Title.Caption = m_sYear & "的销售金额 "
  set fnt = cht.Title.Font
  fnt.Name = "宋体"
  fnt.Size = 10
  fnt.Bold = True

  '对分类轴添加标题，并格式化标题
  set ax = cht.Axes(c.chAxisPositionBottom)
  ax.HasTitle = True
  ax.Title.Caption = "月份"
  set fnt = ax.Title.Font
  fnt.Name = "宋体"
  fnt.Size = 8
  fnt.Bold = True

  '对数值轴添加标题，并格式化标题
  set ax = cht.Axes(c.chAxisPositionLeft)
  ax.NumberFormat = "Currency"
  ax.HasTitle = True
  ax

上一篇:披著羊皮的大野狼 Session 下一篇:存储过程入门

大部分文章摘自网上，如有侵犯您的权益请与我们联系，我们会第一时间进行处理，谢谢!

[ 打印文章 ] [ 关闭窗口 ]