以下代碼存成asp文件：  <%
Dim?strPicFile'生成的臨時(shí)圖表圖片名
strPicFile=server.MapPath(".")&"\tmpchart.gif"
''圖表數(shù)據(jù)部分,可以從數(shù)據(jù)庫(kù)中取得
sdata1="45,75,78,67,45,75,78,80"
sdata2="36,56,23,73"
x_line="1,2,3,4"
a_group="A,B"
a_group_arr?=?split(a_group,",")?
x_line_arr?=?split(x_line,",")
data1_arr?=?split(Sdata1,",")?
data2_arr?=?split(Sdata2,",")
''-----------------生成圖表開(kāi)始---------------------------------------------------
Set?ChartTmp?=?CreateObject("OWC10.ChartSpace")
Set?cc?=?ChartTmp.Constants?''返回一個(gè)對(duì)象，此對(duì)象允許腳本用戶使用已命名的常量。
'ChartTmp.Charts.delete(0)
Set?cht?=?ChartTmp.Charts.Add(0)?''添加一個(gè)圖表對(duì)象
cht.Type=cc.chChartTypeColumnClustered'?
''設(shè)置圖表工作區(qū)中包含標(biāo)題
ChartTmp.HasChartSpaceTitle?=?true?
with?ChartTmp.ChartSpaceTitle
??.Caption?="測(cè)試圖表"''設(shè)置圖表工作區(qū)標(biāo)題內(nèi)容?
??''有關(guān)字體的設(shè)置?
??.Font.Bold?=?True?''設(shè)置圖表工作區(qū)標(biāo)題內(nèi)容是否粗體?
??.Font.Name?=?"Times?New?Roman"?''設(shè)置圖表工作區(qū)標(biāo)題內(nèi)容的字體?
??.Font.Size?=?18?''設(shè)置圖表工作區(qū)標(biāo)題內(nèi)容的大小（單位：磅）?
end?with
''-------設(shè)置圖例--------------------------------------------?
cht.HasLegend?=?True?''指定圖表工作區(qū)中含有圖例?
cht.Legend.Font.Size?=?9?''其他有關(guān)字體項(xiàng)的設(shè)置參見(jiàn)設(shè)置圖表標(biāo)題部分?
cht.Legend.Position?=?cc.chLegendPositionBottom?''設(shè)置圖例對(duì)其方式
''-------添加數(shù)據(jù)系列1（柱狀圖）--------------------------------------------?
Set?Series0?=?cht.SeriesCollection.Add()?''添加一個(gè)數(shù)據(jù)系列?
with?Series0
?'?.Type=cc.chChartTypeColumnClustered'?(省略同圖表基本類型)
?.SetData?cc.chDimSeriesNames,?cc.chDataLiteral,?a_group_arr(0)?''系列?
?.SetData?cc.chDimCategories,?cc.chDataLiteral,?x_line_arr?''橫(X)軸數(shù)據(jù)（分類軸）?
?.SetData?cc.chDimValues,?cc.chDataLiteral,?data1_arr''''縱(Y)軸數(shù)據(jù)
end?with
Set?dl?=?Series0.DataLabelsCollection.Add?''添加圖例的數(shù)據(jù)標(biāo)記?
dl.HasValue?=?True'顯示數(shù)值
''-------添加數(shù)據(jù)系列2（柱狀圖）--------------------------------------------?
Set?Series0?=?cht.SeriesCollection.Add()?''添加一個(gè)數(shù)據(jù)系列?
with?Series0
?'?.Type=cc.chChartTypeColumnClustered'?(省略同圖表基本類型)
?.SetData?cc.chDimSeriesNames,?cc.chDataLiteral,?a_group_arr(1)''系列?
?.SetData?cc.chDimCategories,?cc.chDataLiteral,?x_line_arr?''橫(X)軸數(shù)據(jù)（分類軸）?
?.SetData?cc.chDimValues,?cc.chDataLiteral,?data2_arr''''縱(Y)軸數(shù)據(jù)
end?with
Set?dl?=?Series0.DataLabelsCollection.Add?''添加圖例的數(shù)據(jù)標(biāo)記?
dl.HasValue?=?True
''-------添加數(shù)據(jù)系列1（折線圖）------------------------------------------?
Set?Series0?=?cht.SeriesCollection.Add()?''添加一個(gè)數(shù)據(jù)系列
with?Series0
?.Type=cc.chChartTypeLineMarkers'(折線圖)
?.setData?cc.chDimSeriesNames,?cc.chDataLiteral,?a_group_arr(0)''系列?
?.SetData?cc.chDimCategories,?cc.chDataLiteral,?x_line_arr?''橫(X)軸數(shù)據(jù)（分類軸）?
?.SetData?cc.chDimValues,?cc.chDataLiteral,?data1_arr''''縱(Y)軸數(shù)據(jù)
end?with??
''-------添加數(shù)據(jù)系列2（折線圖）------------------------------------------?
Set?Series0?=?cht.SeriesCollection.Add()?''添加一個(gè)?
with?Series0
?.Type=cc.chChartTypeLineMarkers'(折線圖)
?.setData?cc.chDimSeriesNames,?cc.chDataLiteral,?a_group_arr(1)''系列?
?.SetData?cc.chDimCategories,?cc.chDataLiteral,?x_line_arr?''橫(X)軸數(shù)據(jù)（分類軸）?
?.SetData?cc.chDimValues,?cc.chDataLiteral,?data2_arr''''縱(Y)軸數(shù)據(jù)
end?with
??Set?dl?=?Series0.DataLabelsCollection.Add?''添加圖例的數(shù)據(jù)標(biāo)記?
??dl.HasValue?=?true'顯示數(shù)值
??dl.HasPercentage?=?true'顯示百分比
'導(dǎo)出圖片
ChartTmp.ExportPicture?strPicFile,?"GIF",?760,?350
Set?ChartTmp?=?Nothing
''生成圖表結(jié)束
%>
<img?src=tmpchart.gif>附：常見(jiàn)圖表類型參考 chChartTypeColumnClustered 柱狀圖
chChartTypeBarClustered 條形圖
chChartTypePie 餅圖
chChartTypeArea 面積圖
chChartTypeRadarLine 雷達(dá)線圖
chChartTypeSmoothLine 平滑曲線圖
chChartTypeDoughnut 環(huán)形圖
|