 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
折线图 <% 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 返回类别: 教程 上一教程: 用ASP读取Windows标准INI格式文件 下一教程: Microsoft SQL Server 7.0数据库升级转变问题 您可以阅读与"在ASP中怎?用Excel??表"相关的教程: · 利用ASP将HTML格式数据传输给EXCEL(4) · ASP导出EXCEL数据的四种方式 · 利用ASP.NET来访问Excel文档 · ASP直接调用EXCEL数据的例子（不用ODBC） · ASP读EXCEL2000的文章 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
