<%@ Language=VBScript %><%Response.Buffer=trueResponse.Expires = 0Response.ExpiresAbsolute = now() – 1Response.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-000000000046style=\”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\”
\’ 创建一个字符串数组表明分类. ChartSpace1.Clear ChartSpace1.Charts.Add Set c = ChartSpace1.ConstantsChartSpace1.Charts(0).Type = c.chChartTypeStockOHLC
\’ 清空线图工作区已存在的内容,以添加新的. \’ 添加一个serie到图表. ChartSpace1.Charts(0).SeriesCollection.AddReDim values(4,4)valuesopen(0) = 10valuesopen(1) = 18valuesopen(2) = 9valuesopen(3) = 16valuesclose(0) = 16valuesclose(1) = 21valuesclose(2) = 11valuesclose(3) = 17valueshigh(0) = 17valueshigh(1) = 29valueshigh(2) = 16valueshigh(3) = 16valueslow(0) = 9valueslow(1) =15valueslow(2) = 9valueslow(3) = 11ChartSpace1.Charts(0).SeriesCollection(0).Caption = \”Ativo X\”ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categoriesChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimOpenValues, c.chDataLiteral, valuesopenChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimHighValues, c.chDataLiteral, valueshighChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimLowValues, c.chDataLiteral, valueslowChartSpace1.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]
