ASP中利用OWC控件实现图表功能详解

t.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
    Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add  ''添加图例的数据标记
dl.HasValue = True
dl.HasPercentage = False
dl.Font.Size = 9
dl.Font.Color = "red"
dl.Position = c.chLegendPositionRight

''设置纵向数值属性
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9
''设置分类组属性
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9
''------------------簇状柱型图（结束）--------------------------------------

''------------------折线图----------------------------------------------------------
SParr = split("<%=MX1%>",",")
Datearr = split("<%=Datestr%>",",")

Set cht = ChartSpace3.Charts.Add  ''添加一个图标对象
Set c = ChartSpace3.Constants   ''返回一个对象，此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypeLineMarkers  ''设置图表类型为折线图

''-------设置图表标题----------------------------------------
ChartSpace3.HasChartSpaceTitle = True      ''指定图表工作区中包含标题
    ChartSpace3.ChartSpaceTitle.Caption = "日销量折线图"  ''设置图表工作区标题内容
    ''有关字体的设置
    ChartSpace3.ChartSpaceTitle.Font.Bold = True    ''设置图表工作区标题内容是否粗体
    ChartSpace3.ChartSpaceTitle.Font.Color = "blue"    ''设置图表工作区标题的颜色
    ChartSpace3.ChartSpaceTitle.Font.Italic = False    ''设置图表工作区标题是否为斜体
    ChartSpace3.ChartSpaceTitle.Font.Name = "隶书"    ''设置图表工作区标题内容的字体
    ChartSpace3.ChartSpaceTitle.Font.Size = 18     ''设置图表工作区标题内容的大小（单位：磅）
    ChartSpace3.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle ''设置下划线属性
        
    ''-------设置图例--------------------------------------------
cht.HasLegend = True          ''指定图表工作区中含有图例
    cht.Legend.Font.Size = 9         ''其他有关字体项的设置参见设置图表标题部分
    cht.Legend.Position = c.chLegendPositionBottom    ''设置图例对其方式
    
cht.SetData c.chDimSeriesNames, c.chDataLiteral, SParr  ''系列
cht.SetData c.chDimCategories, c.chDataLiteral, Datearr  ''横项（分类轴）

''设置纵向数值属性
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9

''设置分类组属性
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9

values = split(&quo