來自SQL Server的HighCharts數據，傳統的asp

Question

我試圖用經典ASP中的SQL Server結果填充HighCharts數據集，但似乎無法正確地獲取語法。這是我定製的一個非常基本的開始，我認爲數據集呈現並且從那裏很容易。

下面的循環工作正常，並從我的存儲區中正確地獲取數據。我的問題，我相信在實際var options =部分

dim xAxisData() 
dim yAxisData() 
j = 0    
    adoRsGraph.MoveFirst 

if adoRsGraph.EOF = false then 

    Do Until adoRsGraph.EOF 
     reDim xAxisData(j) 
     reDim yAxisData(j) 
      xAxisData(j) = adoRsGraph("Value") 
      yAxisData(j) = adoRsGraph("Date") 

     j = j + 1 
     adoRsGraph.MoveNext 
    Loop 

end if 



$(function() { 
     var options = { 
     chart:{ 
      type:'line', 
      renderTo: 'chartContainer'    
      }, 
     xAxis: { 
      categories: ['Apples','Bananas','Oranges'] 
     }, 
     yAxis: { 
      title:{ 
       text: 'Assets'   
      } 
     }, 
     series: [{ 
      name: 'Dates', 
      data: [<% For Each item In yAxisData Response.Write(item & ",") Next %>], 
      color: '#006600' 
     }] 
    } 
var chart3 = new Highcharts.Chart(options); 
}); 

接收錯誤的data[]部分;

Microsoft VBScript compilation 
Description:Expected end of statement 
Line:90 

與線90的存在;

data: [<% For Each item In yAxisData Response.Write(item & ",") Next %>], 

Answer 1

恕我直言我認爲這將是更好的突破邏輯，將數據轉換成一個逗號分隔列表功能。當您重新設置陣列時，我還添加了preserve。否則，您將丟失數據。

dim xAxisData() 
dim yAxisData() 
j = 0    
    adoRsGraph.MoveFirst 

if adoRsGraph.EOF = false then 
    Do Until adoRsGraph.EOF 
     reDim preserve xAxisData(j) 
     reDim preserve yAxisData(j) 
     xAxisData(j) = adoRsGraph("Value") 
     yAxisData(j) = adoRsGraph("Date") 

     j = j + 1 
     adoRsGraph.MoveNext 
    Loop 
end if 

$(function() { 
    var options = { 
    chart:{ 
     type:'line', 
     renderTo: 'chartContainer'    
     }, 
    xAxis: { 
     categories: ['Apples','Bananas','Oranges'] 
    }, 
    yAxis: { 
     title:{ 
      text: 'Assets'   
     } 
    }, 
    series: [{ 
     name: 'Dates', 
     data: [<%= GetYAxisData() %>], 
     color: '#006600' 
    }] 
} 
var chart3 = new Highcharts.Chart(options); 
}); 

您發佈For Each item In yAxisData Response.Write(item & ",")將創建在導致意外的行爲最終的額外的逗號（，）原代碼。使用Join（）函數是我認爲更好的選擇。

function GetYAxisData() 
    GetYAxisData = Join(yAxisData, ",") 
end function