<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires = 0
Response.ExpiresAbsolute = now() – 1
Response.Addheader “cache-control”,”private”
Response.Addheader “pragma”,”no-cache”
%>
<!DOCTYPE html PUBLIC “-//W3C//Dtd html 4.0 Transitional//EN”>
<html>
<body>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
à<td> <p align=”center”><font color=”#008000″ size=”4″ face=”é»Â体>精彩æÂ¥é£Âä¹ÂK线å¾</font></td>
</tr>
<tr>
ÃÂ ÃÂ <td width=60% collspan=2> <object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046
style=”width:100%;height:350″>
ÃÂ ÃÂ ÃÂ ÃÂ <embed>
ÃÂ ÃÂ ÃÂ ÃÂ </embed>
ÃÂ ÃÂ ÃÂ </object>
ÃÂ ÃÂ ÃÂ <script language=vbs>
Sub Window_OnLoad()
Dim categories(4)
Dim valuesopen(4),valuesclose(4),valueshigh(4),valueslow(4)
ÃÂ ÃÂ categories(0) = “17/10/2001”
ÃÂ ÃÂ categories(1) = “18/10/2001”
ÃÂ ÃÂ categories(2) = “19/10/2001”
ÃÂ ÃÂ categories(3) = “20/10/2001″xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ Ã¥ÂÂ建ä¸Â个åÂÂ符串æ°ç»Â表æÂÂÃ¥ÂÂç±».
ÃÂ ÃÂ ChartSpace1.Clear
ÃÂ ÃÂ ChartSpace1.Charts.Add
ÃÂ ÃÂ Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type = c.chChartTypeStockOHLC
‘ 渠空线å¾工ä½Âåº已åÂÂå¨çÂÂå 容,以添å æ°çÂÂ.
àà‘ æ·»å ä¸Â个serieå°å¾表.
ÃÂ ÃÂ ChartSpace1.Charts(0).SeriesCollection.Add
ReDim values(4,4)
valuesopen(0) = 10
valuesopen(1) = 18
valuesopen(2) = 9
valuesopen(3) = 16
valuesclose(0) = 16
valuesclose(1) = 21
valuesclose(2) = 11
valuesclose(3) = 17
valueshigh(0) = 17
valueshigh(1) = 29
valueshigh(2) = 16
valueshigh(3) = 16
valueslow(0) = 9
valueslow(1) =15
valueslow(2) = 9
valueslow(3) = 11
ChartSpace1.Charts(0).SeriesCollection(0).Caption = “Ativo X”
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimOpenValues, c.chDataLiteral, valuesopen
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimHighValues, c.chDataLiteral, valueshigh
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimLowValues, c.chDataLiteral, valueslow
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCloseValues, c.chDataLiteral, valuesclose
ÃÂ ÃÂ ChartSpace1.Charts(0).HasLegend = True
ÃÂ ÃÂ ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 1
‘ 让线å¾说æÂÂå¯è§Â, Ã¥ÂÂæ Âè½´ä»Â左起以ç¾åÂÂæ¯Âæ ¼å¼Â表示,以æ¯Â10ï¼Â
为é´éÂÂ.
End Sub
</script>
ÃÂ </td>
ÃÂ <td width=40%>
‘ 线å¾æ»宽.
</td>
</tr>
</table>
</body></html>
[1]