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

t;<%=SQARXLstr%>",",")
for i = 0 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>
</html>