ASP读的数据库数据如何导入highcharts

ASP 里面读出的 时间数组 oDATA()=oRs(5) 金额数组 oJinE()=oRs(6)  
<%
for i=0 to n
oDATA(i)=oRs(5)
oJinE(i)=oRs(6)
next
%>


如何导入highcharts的series,X轴为时间,Y轴坐标为金额


  series:[{
  name: '金额',
  data:
  [
  [Date.UTC(2011,01,1, 6, 5, 12), 12.00],
  [Date.UTC(2011,1,1, 7, 5, 0), 13.00],
  [Date.UTC(2011,1,1, 8, 40, 0), 12.50],
  [Date.UTC(2011,1,1, 9, 50, 0), 13.50],
  [Date.UTC(2011,1,1, 10, 55, 0), 13.50],
  [Date.UTC(2011,1,1, 11, 00, 0), 13.50],
  [Date.UTC(2011,1,1, 12, 05, 0), 13.50],
  [Date.UTC(2011,1,1, 13, 10, 0), 13.50],
  [Date.UTC(2011,1,1, 14, 15, 0), 13.50],
  [Date.UTC(2011,1,1, 15, 20, 0), 13.50],
  [Date.UTC(2011,1,1, 16, 25, 0), 13.50],
  [Date.UTC(2011,1,1, 17, 30, 0), 13.50],
  [Date.UTC(2011,1,1, 18, 35, 0), 13.50],
  [Date.UTC(2011,1,1, 19, 40, 0), 13.50],
  [Date.UTC(2011,1,1, 20, 45, 0), 13.50],
  [Date.UTC(2011,1,1, 21, 50, 0), 13.50]
  ]} 
 
 
oRs(5)是时间 和 oRs(6)金额
格式,<%=oRs(5)%> ,,<%=oRs(6)%>

对应HIGH的时间2011,1,1, 21, 50, 0,金额13.50

[Date.UTC(2011,1,1, 21, 50, 0), 13.50]

for i=0 to n
oDATA(i)=oRs(5)
oJinE(i)=oRs(6) 这样写数组内的值都相同了
next

应该循环记录集，拼接字符串即可

VBScript code

<%
..
s = ""
Do While Not oRs.EOF
  s = s & "[Date.UTC(" & oRs(5) & ")," & oRs(6) & "],"
  oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
If s<> "" Then s = Left(s, Len(s)-1)
%>
...
series:[{
  name: '金额',
  data:
  [
<%=s%>
  ]}