ASP封裝OWC CLASS-CSDN博客

  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
100          ' 用循環來新增SeriesCollection以及里面的內容
101          for i = 0 to ubound (caption_)
102             valuetemp = ""
103              for j = i * ( ubound (categories_) + 1 ) to (i + 1 ) * ( ubound (categories_) + 1 ) - 1
104                 valuetemp = valuetemp & " , " & values_(j)
105              next
106             valuearr = split ( mid (valuetemp, 2 ), " , " )
107             o.Charts( 0 ).SeriesCollection.Add
108             o.Charts( 0 ).SeriesCollection(i).Caption = caption_(i)
109             o.Charts( 0 ).SeriesCollection(i).Interior.Color = color_(i)
110             o.Charts( 0 ).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_
111             o.Charts( 0 ).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
112              set dl = o.Charts( 0 ).SeriesCollection(i).DataLabelsCollection.Add
113             dl.HasValue = True
114             dl.HasPercentage = False
115             dl.Font.Size = 9
116             dl.Font.Color = " red "
117             dl.Position = c.chLegendPositionRight
118             dl.NumberFormat = " 00.00% "
119          next
120          ' '圖例的設定
121         o.Charts( 0 ).HasLegend = True
122         o.Charts( 0 ).Legend.Font.Size = 9
123         o.Charts( 0 ).Legend.Position = c.chLegendPositionBottom
124          ' '左邊百分比的屬性設置
125          Set cta = o.Charts( 0 ).Axes(c.chAxisPositionLeft)
126         cta.Font.Size = 9
127         cta.NumberFormat = " 0.00% "
128         cta.MajorUnit = 0.1
129         Response.ContentType = " image/ " & PicType
130         response.BinaryWrite o.GetPicture(PicType,width_,height_)
131      end sub
132      ' 畫圓餅圖
133      ' chart_bgColor_繪圖區加背景色
134      ' chartCaption_圖表的標題
135      ' chartCaption_fontColor_圖表標題顏色
136      public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_,width_,height_)
137          On Error Resume Next
138         Response.Expires = 0
139         Response.Buffer = True
140         Response.Clear
141         o.Clear
142          Set cht = o.Charts.Add
143          Set c = o.Constants
144         cht.Type = c.chChartTypePie3d
145          ' 給繪圖區加背景色
146         o.Charts( 0 ).PlotArea.Interior.SetSolid chart_bgColor_
147         cht.ExtrudeAngle = 90
148         cht.ChartDepth = 169
149         cht.AspectRatio = 120
150         cht.Rotation = 180
151         cht.Inclination = 70
152
153         o.HasChartSpaceTitle = True
154         o.ChartSpaceTitle.Caption = chartCaption_
155         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
156         o.ChartSpaceTitle.Font.Name = " Arial "
157         o.ChartSpaceTitle.Font.Size = 12
158         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
159
160         cht.HasLegend = True
161         cht.Legend.Font.Size = 9
162         cht.Legend.Position = c.chLegendPositionBottom
163
164         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
165         cht.SeriesCollection( 0 ).SetData c.chDimValues, c.chDataLiteral, values_
166          set sc = o.Charts( 0 ).SeriesCollection( 0 )
167         sc.Caption = Caption_
168          Set dl = cht.SeriesCollection( 0 ).DataLabelsCollection.Add
169         dl.Separator = " ： "
170         dl.HasValue = false
171         dl.HasSeriesName = false
172         dl.HasCategoryName = true
173         dl.HasPercentage = true
174         dl.Font.Size = 9
175         dl.Font.Color = " red "
176         dl.NumberFormat = " 00.00% "
177         Response.ContentType = " image/ " & PicType
178         response.BinaryWrite o.GetPicture(PicType,width_,height_)
179      end sub
180      ' 拆線圖
181      ' chart_bgColor_繪圖區加背景色
182      ' chartCaption_圖表的標題
183      ' chartCaption_fontColor_圖表標題顏色
184      public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_,width_,height_)
185          On Error Resume Next
186         Response.Expires = 0
187         Response.Buffer = True
188         Response.Clear
189         o.Clear
190          Set cht = o.Charts.Add
191          Set c = o.Constants
192         cht.Type = c.chChartTypeLineMarkers
193          ' 給繪圖區加背景色
194         o.Charts( 0 ).PlotArea.Interior.SetSolid chart_bgColor_
195         o.HasChartSpaceTitle = True
196         o.ChartSpaceTitle.Caption = chartCaption_
197         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
198         o.ChartSpaceTitle.Font.Name = " Arial "
199         o.ChartSpaceTitle.Font.Size = 12
200         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
201
202         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
203         cht.SeriesCollection( 0 ).SetData c.chDimValues, c.chDataLiteral, values_
204
205          set sc = o.Charts( 0 ).SeriesCollection( 0 )
206         sc.Caption = Caption_
207          Set dl = cht.SeriesCollection( 0 ).DataLabelsCollection.Add
208         dl.HasValue = True
209         dl.HasPercentage = False
210         dl.Font.Size = 9
211         dl.Font.Color = " red "
212
213          Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
214         categoryAxis.Font.Size = 9
215
216          Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
217         categoryAxis.Font.Size = 9
218         Response.ContentType = " image/ " & PicType
219         response.BinaryWrite o.GetPicture(PicType,width_,height_)
220      end sub
221      ' 多系列拆線圖
222      ' chart_bgColor_圖表的背景顏色
223      ' chartCaption_圖表的標題
224      ' chartCaption_fontColor_圖表標題顏色
225      ' color_顏色數組
226      ' caption_名稱數組
227      ' categories_名稱數組
228      ' values_值數組
229      public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_,width_,height_)
230          On Error Resume Next
231         Response.Expires = 0
232         Response.Buffer = True
233         Response.Clear
234         o.Clear
235          Set cht = o.Charts.Add
236          Set c = o.Constants
237          ' 設置圖表類型
238         cht.Type = c.chChartTypeLineMarkers
239          ' 給繪圖區加背景色
240         o.Charts( 0 ).PlotArea.Interior.Color = chart_bgColor_
241          ' 加上標題
242         o.HasChartSpaceTitle = True
243         o.ChartSpaceTitle.Caption = chartCaption_
244         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
245         o.ChartSpaceTitle.Font.Name = " Arial "
246         o.ChartSpaceTitle.Font.Size = 12
247          ' '添加數據
248         cht.SetData c.chDimSeriesNames, c.chDataLiteral, SeriesNames_
249         cht.SetData c.chDimCategories, c.chDataLiteral, Categories_
250
251          set categoryAxis = cht.Axes(c.chAxisPositionBottom)
252         categoryAxis.Font.Size = 9
253
254          Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
255         categoryAxis.Font.Size = 9
256
257          for i = 0 to ubound (SeriesNames_)
258             valuetemp = ""
259              for j = i * ( ubound (Categories_) + 1 ) to (i + 1 ) * ( ubound (Categories_) + 1 ) - 1
260                 valuetemp = valuetemp & " , " & values_(j)
261              next
262             valuearr = split ( mid (valuetemp, 2 ), " , " )
263             cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
264             cht.SeriesCollection(i).Line.Color = color_(i)
265             cht.SeriesCollection(i).Line.Weight = c.owcLineWeightThin
266             cht.SeriesCollection(i).Marker.Style = c.chMarkerStyleDiamond
267             cht.SeriesCollection(i).Interior.Color = color_(i)
268              Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add
269             dl.HasValue = true
270             dl.HasPercentage = false
271             dl.Font.Size = 9
272             dl.font.color = " red "
273          next
274         Response.ContentType = " image/ " & PicType
275         response.BinaryWrite o.GetPicture(PicType,width_,height_)
276      end sub
277 end class
278 % >
279

< ! -- #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 >
10 < %
11 url = " chart.asp?chartType=bar " & _
12      " &chart_bgcolor= " & server.URLEncode( " #FFFFFF " ) & _
13      " &chartCaption= " & server.URLEncode( " 報表標題 " ) & _
14      " &chartCaption_fontColor= " & server.URLEncode( " BLUE " ) & _
15      " &Interior_Color= " & server.URLEncode( " #CCCC00 " ) & _
16      " &Caption= " & server.URLEncode( " 組別 " ) & _
17      " &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 " ) & _
18      " &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 " ) & _
19      " &width= " & server.urlencode( " 800 " ) & _
20      " &height= " & server.URLEncode( " 500 " )
21 ' url="t.asp"
22 % >
23 < img src = " <%=url %> " />
24 </ body >
25 </ html >
26