在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")
  
  @#链接到Aclearcase/" target="_blank" >ccess数据库，使用客户端的游标引擎打开记录集
  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

原文转自：http://www.ltesting.net