ASP封裝OWC CLASS

  1 <% 
  2 '生成各种圖型的png圖片
  3 class owc
  4     private o
  5     private PicType
  6     
  7     '創建時自動create owc
  8     Private Sub Class_Initialize()
  9         set o=Server.CreateObject("OWC11.ChartSpace")
 10         PicType = "PNG"'生成的圖片格式
 11     End Sub
 12     '實例終止時自動設為nothing
 13     Private Sub Class_Terminate
 14         set o=nothing
 15     End Sub
 16     '畫圖矩形圖
 17     'chart_bgcolor_圖表的背景顏色
 18     'chartCaption_圖表的標題
 19     'chartCaption_fontColor_圖表標題顏色
 20     'Interior_Color_矩形內的填充顏色
 21     'Caption_名稱
 22     'categories_名稱數組
 23     'values_值數組串
 24     public sub bar(chart_bgcolor_,chartCaption_,chartCaption_fontColor_,Interior_Color_,Caption_,categories_,values_,width_,height_)
 25         On Error Resume Next
 26         Response.Expires = 0
 27         Response.Buffer = True
 28         Response.Clear
 29         o.Clear
 30         set cht = o.Charts.Add
 31         set c = o.Constants
 32         cht.Type = c.chChartTypeColumnClustered
 33         '設背景色或是填充
 34         o.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_
 35 
 36         '加上圖表的標題
 37         o.HasChartSpaceTitle = True
 38         set cst=o.ChartSpaceTitle
 39         cst.Caption = chartCaption_
 40         cst.Font.Color = chartCaption_fontColor_
 41         cst.Font.Italic = False
 42         cst.Font.Name = "Arial"
 43         cst.Font.Size = 12
 44         cst.Font.Underline = c.owcUnderlineStyleSingle    
 45 
 46         '添加數據
 47         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
 48         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
 49         '直條的背景色進行設定
 50         set sc=o.Charts(0).SeriesCollection(0)
 51         sc.Interior.Color=Interior_Color_
 52 
 53         '直條上的顯示設置
 54         sc.Caption=Caption_
 55         set dl = cht.SeriesCollection(0).DataLabelsCollection.Add
 56         dl.HasValue = True
 57         dl.HasPercentage = False
 58         dl.Font.Size = 9
 59         dl.Font.Color = "red"
 60         dl.Position = c.chLegendPositionRight
 61         dl.NumberFormat = "00.00%"
 62         '左邊百分比的屬性設置
 63         Set cta = cht.Axes(c.chAxisPositionLeft)
 64         cta.Font.Size = 9
 65         cta.NumberFormat = "0.0%"
 66         cta.MajorUnit = 0.1
 67         
 68         Response.ContentType = "image/" & PicType
 69         Response.BinaryWrite o.GetPicture(PicType,width_,height_)
 70     end sub
 71     '多系列矩形圖
 72     'chart_bgColor_圖表的背景顏色
 73     'chartCaption_圖表的標題
 74     'chartCaption_fontColor_圖表標題顏色
 75     'color_顏色數組
 76     'caption_名稱數組
 77     'categories_名稱數組
 78     'values_值數組
 79     public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_,width_,height_)
 80         On Error Resume Next
 81         Response.Expires = 0
 82         Response.Buffer = True
 83         Response.Clear         
 84         o.Clear
 85         o.Charts.Add
 86         Set c = o.Constants
 87         '圖表的類型
 88         o.Charts(0).type=c.chChartTypeColumnClustered 
 89         '給繪圖區加背景色
 90         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
 91         ''加上圖表的標題
 92         o.HasChartSpaceTitle = True
 93         o.ChartSpaceTitle.Caption = chartCaption_
 94         '標題的屬性
 95         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
 96         o.ChartSpaceTitle.Font.Italic = False
 97         o.ChartSpaceTitle.Font.Name = "Arial"
 98         o.ChartSpaceTitle.Font.Size = 12
 99         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
         '用循環來新增SeriesCollection以及里面的內容
         for i=0 to ubound(caption_)
             valuetemp=""
             for j = i*(ubound(categories_)+1) to (i+1)*(ubound(categories_)+1)-1
                 valuetemp = valuetemp & "," & values_(j)
             next
             valuearr = split(mid(valuetemp,2),",")
             o.Charts(0).SeriesCollection.Add
             o.Charts(0).SeriesCollection(i).Caption = caption_(i)
             o.Charts(0).SeriesCollection(i).Interior.Color = color_(i)
             o.Charts(0).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_
             o.Charts(0).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
             set dl = o.Charts(0).SeriesCollection(i).DataLabelsCollection.Add
             dl.HasValue = True
             dl.HasPercentage = False
             dl.Font.Size = 9
             dl.Font.Color = "red"
             dl.Position = c.chLegendPositionRight
             dl.NumberFormat = "00.00%"
         next
         ''圖例的設定    
         o.Charts(0).HasLegend = True 
         o.Charts(0).Legend.Font.Size = 9
         o.Charts(0).Legend.Position = c.chLegendPositionBottom        
         ''左邊百分比的屬性設置
         Set cta = o.Charts(0).Axes(c.chAxisPositionLeft)
         cta.Font.Size = 9
         cta.NumberFormat = "0.00%"
         cta.MajorUnit = 0.1
         Response.ContentType = "image/" & PicType
         response.BinaryWrite o.GetPicture(PicType,width_,height_)
     end sub
     '畫圓餅圖
     'chart_bgColor_繪圖區加背景色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_,width_,height_)
         On Error Resume Next
         Response.Expires = 0
         Response.Buffer = True
         Response.Clear 
         o.Clear
         Set cht = o.Charts.Add
         Set c = o.Constants
         cht.Type = c.chChartTypePie3d
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
         cht.ExtrudeAngle = 90
         cht.ChartDepth = 169
         cht.AspectRatio = 120
         cht.Rotation =180
         cht.Inclination=70
 
         o.HasChartSpaceTitle = True
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
         o.ChartSpaceTitle.Font.Name = "Arial" 
         o.ChartSpaceTitle.Font.Size = 12
         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
             
         cht.HasLegend = True
         cht.Legend.Font.Size = 9
         cht.Legend.Position = c.chLegendPositionBottom
 
         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
         set sc=o.Charts(0).SeriesCollection(0)
         sc.Caption=Caption_
         Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add
         dl.Separator = "："
         dl.HasValue = false
         dl.HasSeriesName = false    
         dl.HasCategoryName=true
         dl.HasPercentage = true
         dl.Font.Size = 9
         dl.Font.Color = "red"
         dl.NumberFormat = "00.00%"
         Response.ContentType = "image/" & PicType
         response.BinaryWrite o.GetPicture(PicType,width_,height_)
     end sub
     '拆線圖
     'chart_bgColor_繪圖區加背景色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_,width_,height_)
         On Error Resume Next
         Response.Expires = 0
         Response.Buffer = True
         Response.Clear 
         o.Clear
         Set cht = o.Charts.Add 
         Set c = o.Constants 
         cht.Type = c.chChartTypeLineMarkers
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
         o.HasChartSpaceTitle = True 
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_ 
         o.ChartSpaceTitle.Font.Name = "Arial" 
         o.ChartSpaceTitle.Font.Size = 12
         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
         
         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_ 
         
         set sc=o.Charts(0).SeriesCollection(0)
         sc.Caption=Caption_
         Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add 
         dl.HasValue = True 
         dl.HasPercentage = False 
         dl.Font.Size = 9 
         dl.Font.Color = "red" 
 
         Set categoryAxis = cht.Axes(c.chAxisPositionBottom) 
         categoryAxis.Font.Size = 9 
 
         Set categoryAxis = cht.Axes(c.chAxisPositionLeft) 
         categoryAxis.Font.Size = 9 
         Response.ContentType = "image/" & PicType
         response.BinaryWrite o.GetPicture(PicType,width_,height_)
     end sub
     '多系列拆線圖
     'chart_bgColor_圖表的背景顏色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     'color_顏色數組
     'caption_名稱數組
     'categories_名稱數組
     'values_值數組
     public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_,width_,height_)
         On Error Resume Next
         Response.Expires = 0
         Response.Buffer = True
         Response.Clear 
         o.Clear
         Set cht = o.Charts.Add 
         Set c = o.Constants 
         '設置圖表類型
         cht.Type = c.chChartTypeLineMarkers
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.Color=chart_bgColor_
         '加上標題
         o.HasChartSpaceTitle = True
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
         o.ChartSpaceTitle.Font.Name = "Arial"
         o.ChartSpaceTitle.Font.Size = 12
         ''添加數據
         cht.SetData c.chDimSeriesNames, c.chDataLiteral, SeriesNames_
         cht.SetData c.chDimCategories, c.chDataLiteral, Categories_
      
         set categoryAxis = cht.Axes(c.chAxisPositionBottom)
         categoryAxis.Font.Size = 9
      
         Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
         categoryAxis.Font.Size = 9
 
         for i = 0 to ubound(SeriesNames_)
             valuetemp = ""
             for j = i*(ubound(Categories_)+1) to (i+1)*(ubound(Categories_)+1)-1
                 valuetemp = valuetemp & "," & values_(j)
             next
             valuearr = split(mid(valuetemp,2),",")
             cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
             cht.SeriesCollection(i).Line.Color = color_(i)
             cht.SeriesCollection(i).Line.Weight = c.owcLineWeightThin
             cht.SeriesCollection(i).Marker.Style = c.chMarkerStyleDiamond
             cht.SeriesCollection(i).Interior.Color = color_(i)
             Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add
             dl.HasValue = true
             dl.HasPercentage = false
             dl.Font.Size = 9
             dl.font.color="red"
         next
         Response.ContentType = "image/" & PicType
         response.BinaryWrite o.GetPicture(PicType,width_,height_)
     end sub
 end class
 %> 
 

<!--#include file="owc.asp" -->
<%
'Option Explicit
Response.buffer=true
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
chartType=request.QueryString("chartType")
select case chartType
    case "bar"
        call bar()
    case "serbar"
        call serbar()
    case "pie"
        call pie()
    case "line"
        call line()
    case "serline"
        call serline()
end select

sub bar()
    On Error Resume Next
    set o=new owc
    dim chart_bgcolor,chartCaption,chartCaption_fontColor,Interior_Color,Caption,categories,values,width,height
    chart_bgColor=request.QueryString("chart_bgColor")
    if chart_bgColor="" then chart_bgColor="#FFFFFF"
    chartCaption=request.QueryString("chartCaption")
    chartCaption_fontColor=request.QueryString("chartCaption_fontColor")
    Interior_Color=request.QueryString("Interior_Color")
    Caption=request.QueryString("Caption")
    categories=request.QueryString("categories")
    values=request.QueryString("values")
    width=request.QueryString("width")
    if width="" then width="400"
    height=request.QueryString("height")
    if height="" then height="300"
    dim catarr,valarr
    catarr=split(categories,",")
    valarr=split(values,",")
    o.bar chart_bgcolor,chartCaption,chartCaption_fontColor,Interior_Color,Caption,catarr,valarr,width,height
    set o=nothing
end sub
sub serbar()
    On Error Resume Next
    set o=new owc
    dim chart_bgcolor,chartCaption,chartCaption_fontColor,color,Caption,categories,values,width,height
    chart_bgColor=request.QueryString("chart_bgColor")
    if chart_bgColor="" then chart_bgColor="#FFFFFF"
    chartCaption=request.QueryString("chartCaption")
    chartCaption_fontColor=request.QueryString("chartCaption_fontColor")
    color=request.QueryString("color")
    Caption=request.QueryString("Caption")
    categories=request.QueryString("categories")
    values=request.QueryString("values")
    width=request.QueryString("width")
    if width="" then width="400"
    height=request.QueryString("height")
    if height="" then height="300"
    dim colarr,catarr,valarr
    colarr=split(color,",")
    catarr=split(categories,",")
    valarr=split(values,",")
    o.serbar chart_bgColor,chartCaption,chartCaption_fontColor,colarr,catarr,valarr,values,width,height
    set o=nothing
end sub
sub pie()
    On Error Resume Next
    set o=new owc
    dim chart_bgcolor,chartCaption,chartCaption_fontColor,Caption,categories,values,width,height
    chart_bgColor=request.QueryString("chart_bgColor")
    if chart_bgColor="" then chart_bgColor="#FFFFFF"
    chartCaption=request.QueryString("chartCaption")
    chartCaption_fontColor=request.QueryString("chartCaption_fontColor")
    Caption=request.QueryString("Caption")
    categories=request.QueryString("categories")
    values=request.QueryString("values")
    width=request.QueryString("width")
    if width="" then width="400"
    height=request.QueryString("height")
    if height="" then height="300"
    dim catarr,valarr
    catarr=split(categories,",")
    valarr=split(values,",")
    o.pie chart_bgColor,chartCaption,chartCaption_fontColor,Caption,catarr,valarr,width,height
    set o=nothing
end sub
sub line()
    On Error Resume Next
    set o=new owc
    dim chart_bgcolor,chartCaption,chartCaption_fontColor,Caption,categories,values,width,height
    chart_bgColor=request.QueryString("chart_bgColor")
    if chart_bgColor="" then chart_bgColor="#FFFFFF"
    chartCaption=request.QueryString("chartCaption")
    chartCaption_fontColor=request.QueryString("chartCaption_fontColor")
    Caption=request.QueryString("Caption")
    categories=request.QueryString("categories")
    values=request.QueryString("values")
    width=request.QueryString("width")
    if width="" then width="400"
    height=request.QueryString("height")
    if height="" then height="300"
    dim catarr,valarr
    catarr=split(categories,",")
    valarr=split(values,",")
    o.line chart_bgColor,chartCaption,chartCaption_fontColor,Caption,catarr,valarr,width,height
    set o=nothing
end sub
sub serline()
    On Error Resume Next
    set o=new owc
    dim chart_bgcolor,chartCaption,chartCaption_fontColor,color,SeriesNames,categories,values,width,height
    chart_bgColor=request.QueryString("chart_bgColor")
    if chart_bgColor="" then chart_bgColor="#FFFFFF"
    chartCaption=request.QueryString("chartCaption")
    chartCaption_fontColor=request.QueryString("chartCaption_fontColor")
    color=request.QueryString("color")
    SeriesNames=request.QueryString("SeriesNames")
    categories=request.QueryString("categories")
    values=request.QueryString("values")
    width=request.QueryString("width")
    if width="" then width="400"
    height=request.QueryString("height")
    if height="" then height="300"
    dim colarr,serarr,catarr,valarr
    colarr=split(color,",")
    serarr=split(SeriesNames,",")
    catarr=split(categories,",")
    valarr=split(values,",")
    o.serline chart_bgColor,chartCaption,chartCaption_fontColor,colarr,serarr,catarr,valarr,width,height
    set o=nothing
end sub
%>

 1 <%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
 2 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 3 <html xmlns="http://www.w3.org/1999/xhtml">
 4 <head>
 5 <meta http-equiv="Content-Type" content="text/html; charset=big5" />
 6 <title>test owc</title>
 7 </head>
 8 
 9 <body>
 <%
 url="chart.asp?chartType=bar"&_
     "&chart_bgcolor=" & server.URLEncode("#FFFFFF") &_
     "&chartCaption=" & server.URLEncode("報表標題") &_
     "&chartCaption_fontColor=" & server.URLEncode("BLUE") &_
     "&Interior_Color=" & server.URLEncode("#CCCC00") &_
     "&Caption=" & server.URLEncode("組別") &_
     "&categories=" & server.URLEncode("A2-1,A2-2,A2-3,A3-1,A3-2,A3-3,B2-1,B2-2,B2-3,B3-1,B3-2,B3-3,C2-1,C2-2,C3-1,C3-2,C3-3") &_
     "&values=" & server.urlencode("0.813,0.689,0.800,0.833,0.681,0.864,0.743,0.894,0.822,0.874,0.746,0.908,0.850,0.728,0.731,0.734,0.624") &_
     "&width=" & server.urlencode("800") &_
     "&height=" & server.URLEncode("500")
 'url="t.asp"
 %>
 <img src="<%=url %>" />
 </body>
 </html>