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

??SP涓??╃??WC锛?Office?Web?Components锛??т欢??杞绘?惧???板??绉??捐〃???斤?濡?楗煎?撅?绨??舵?卞???撅???绾垮?剧????

?ㄤ??㈢??浠ｇ??涓???璇????缁??轰?楗煎?撅?绨??舵?卞???撅???绾垮?剧??浣跨?ㄦ?规???OWC???村????斤?灞??у??????MSOWCVBA.chm甯??╂??浠讹???ffice?2000????浠跺す涓?澶у?惰??宸辨?撅???

testOWC.asp

<

!DOCTYPE?HTML?

PUBLIC

?

"

-//W3C//DTD?HTML?4.01?Transitional//EN

"

>

<

html

>

<

head

>

<

meta?http

-

equiv

=

"

Content-Type

"

?content

=

"

text/html;?charset=gb2312

"

>

<

title

>

ASP涓??╃??WC?т欢瀹??板?捐〃???借??В

</

title

>

</

head

>

<

body

>

<

%

'

涓??㈡?璇?????涓?涓?浜у????????

MX1?

=

?

"

A浜у??,B浜у??,C浜у??,D浜у??

"

?

'

?版??椤圭?????扮?锛?缁??烘?璇??版??锛?瀹????ㄧ???跺??浠??版??搴?璇诲????,"????锛?

MX2?

=

?

"

50,60,20,80

"

?

'

?版??椤圭???兼?扮?

Datestr?

=

?

"

2005-3-24,2005-3-25,2005-3-26,2005-3-27,2005-3-28

"

?

'

?ユ??

SQARXLstr?

=

?

"

50,100,20,80,89

"

?

'

A浜у??2005-3-24??陈?2005-3-28??????

SQARXLstr?

=

?SQARXLstr?

&

?

"

,

"

?

&

?

"

40,60,20,90,70

"

?

'

B浜у??2005-3-24??陈?2005-3-28??????

SQARXLstr?

=

?SQARXLstr?

&

?

"

,

"

?

&

?

"

20,50,55,25,60

"

?

'

C浜у??2005-3-24??陈?2005-3-28??????

SQARXLstr?

=

?SQARXLstr?

&

?

"

,

"

?

&

?

"

80,20,75,58,100

"

?

'

D浜у??2005-3-24??陈?2005-3-28??????

%

>

<

br

>

<

center

><

object

?id

=

"

ChartSpace1

"

?classid

=

"

CLSID:0002E500-0000-0000-C000-000000000046

"

?style

=

"

width:95%;height:400

"

></

object

></

center

>

<

br

>

<

center

><

object

?id

=

"

ChartSpace2

"

?classid

=

"

CLSID:0002E500-0000-0000-C000-000000000046

"

?style

=

"

width:95%;height:400

"

></

object

></

center

>

<

br

>

<

center

><

object

?id

=

"

ChartSpace3

"

?classid

=

"

CLSID:0002E500-0000-0000-C000-000000000046

"

?style

=

"

width:95%;height:400

"

></

object

></

center

>

<

script?language

=

"

vbscript

"

>

Sub

?Window_OnLoad()

'

------------------楗煎??------------------------------------------------------------

'

涓烘?版??璧???

categories?

=

?

split

(

"

<%=MX1%>

"

,

"

,

"

)?

'

?版??椤圭?????扮?

values?

=

?

split

(

"

<%=MX2%>

"

,

"

,

"

)?

'

?版??椤圭???兼?扮?

Set

?cht?

=

?ChartSpace1.Charts.Add?

'

娣诲??涓?涓??炬??瀵硅薄

Set

?c?

=

?ChartSpace1.Constants?

'

杩???涓?涓?瀵硅薄锛?姝ゅ?硅薄??璁歌?????ㄦ?蜂娇?ㄥ凡?藉????甯搁????

cht.Type?

=

?c.chChartTypePie?

'

璁剧疆?捐〃绫诲??涓洪ゼ??

'

-------璁剧疆?捐〃??棰?----------------------------------------

ChartSpace1.HasChartSpaceTitle?

=

?

True

?

'

??瀹??捐〃宸ヤ??轰腑??????棰?

ChartSpace1.ChartSpaceTitle.Caption?

=

?

"

楗肩?跺?? "

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹?

'

???冲??浣???璁剧疆

ChartSpace1.ChartSpaceTitle.Font.Bold?

=

?

True

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹规?????浣?

ChartSpace1.ChartSpaceTitle.Font.Color?

=

?

"

blue

"

?

'

璁剧疆?捐〃宸ヤ??烘??棰???棰???

ChartSpace1.ChartSpaceTitle.Font.Italic?

=

?

False

?

'

璁剧疆?捐〃宸ヤ??烘??棰?????负??浣?

ChartSpace1.ChartSpaceTitle.Font.Name?

=

?

"

?朵功

"

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹圭??瀛?浣?

ChartSpace1.ChartSpaceTitle.Font.Size?

=

?

18

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹圭??澶у?锛???浣?锛?纾?锛?

ChartSpace1.ChartSpaceTitle.Font.Underline?

=

?c.owcUnderlineStyleSingle?

'

璁剧疆涓???绾垮???

'

-------璁剧疆?句?--------------------------------------------

cht.HasLegend?

=

?

True

?

'

??瀹??捐〃宸ヤ??轰腑?????句?

cht.Legend.Font.Size?

=

?

9

?

'

?朵????冲??浣?椤圭??璁剧疆??瑙?璁剧疆?捐〃??棰??ㄥ??

cht.Legend.Position?

=

?c.chLegendPositionRight?

'

璁剧疆?句?瀵瑰?舵?瑰?

cht.SetData?c.chDimCategories,?c.chDataLiteral,?categories

cht.SeriesCollection(

).SetData?c.chDimValues,?c.chDataLiteral,?values

Set

?dl?

=

?cht.SeriesCollection(

).DataLabelsCollection.Add?

'

娣诲???句????版????璁?

dl.HasValue?

=

?

False

dl.HasPercentage?

=

?

True

dl.Font.Size?

=

?

11

'

------------------楗煎?撅?缁???锛?------------------------------------------------

'

------------------绨??舵?卞???撅?寮?濮?锛?--------------------------------------

Set

?cht?

=

?ChartSpace2.Charts.Add?

'

娣诲??涓?涓??炬??瀵硅薄

Set

?c?

=

?ChartSpace2.Constants?

'

杩???涓?涓?瀵硅薄锛?姝ゅ?硅薄??璁歌?????ㄦ?蜂娇?ㄥ凡?藉????甯搁????

cht.Type?

=

?c.chChartTypeColumnClustered?

'

璁剧疆?捐〃绫诲??涓烘??绾垮??

'

-------璁剧疆?捐〃??棰?----------------------------------------

ChartSpace2.HasChartSpaceTitle?

=

?

True

?

'

??瀹??捐〃宸ヤ??轰腑??????棰?

ChartSpace2.ChartSpaceTitle.Caption?

=

?

"

?辩?跺?? "

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹?

'

???冲??浣???璁剧疆

ChartSpace2.ChartSpaceTitle.Font.Bold?

=

?

True

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹规?????浣?

ChartSpace2.ChartSpaceTitle.Font.Color?

=

?

"

blue

"

?

'

璁剧疆?捐〃宸ヤ??烘??棰???棰???

ChartSpace2.ChartSpaceTitle.Font.Italic?

=

?

False

?

'

璁剧疆?捐〃宸ヤ??烘??棰?????负??浣?

ChartSpace2.ChartSpaceTitle.Font.Name?

=

?

"

?朵功

"

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹圭??瀛?浣?

ChartSpace2.ChartSpaceTitle.Font.Size?

=

?

18

?

'

璁剧疆?捐〃宸ヤ??烘??棰???瀹圭??澶у?锛???浣?锛?纾?锛?

ChartSpace2.ChartSpaceTitle.Font.Underline?

=

?c.owcUnderlineStyleSingle?

'

璁剧疆涓???绾垮???

cht.SetData?c.chDimCategories,?c.chDataLiteral,?categories?

'

妯?椤癸???绫昏酱锛?

cht.SeriesCollection(

).SetData?c.chDimValues,?c.chDataLiteral,?values

Set

?dl?

=

?cht.SeriesCollection(

).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

(

"

<%=SQARXLstr%>

"

,

"

,

"

)

for

?i?

=

?

?

to

?

ubound

(SParr)

valuetemp?

=

?

"

"

for

?j?

=

?i

*

(

ubound

(Datearr)

+

1

)?

to

?(i

+

1

)

*

(

ubound

(Datearr)

+

1

)

-

1

?

'

??澶╄?诲???版??

valuetemp?

=

?valuetemp?

&

?

"

,

"

?

&

?values(j)

next

valuearr?

=

?

split

(

mid

(valuetemp,

2

),

"

,

"

)

cht.SeriesCollection(i).SetData?c.chDimValues,?c.chDataLiteral,?valuearr

Set

?dl?

=

?cht.SeriesCollection(i).DataLabelsCollection.Add?

'

娣诲???句????版????璁?

dl.HasValue?

=

?

True

dl.HasPercentage?

=

?

False

dl.Font.Size?

=

?

9

next

'

------------------??绾垮?撅?缁???锛?---------------------------------------------------

End?Sub

</

script

>

</

body

>