asp rs 操作

'=======================

'var categories = ['c1','c2','c3','c4','c5','c6','c7','c8','c9','c10','c11'];

'var data_plan = [10,20,30,40,40,30,30,30,30,30,30];

'var data_act = [11,32,33,34,39,43,33,33,35,33,33];

'=======================

categories = ""

data_plan = ""

data_act = ""

While Not rs.EOF    

    categories = categories & "'" & rs(0) & "'"

    data_plan = data_plan & "," & rs(1)

    data_act = data_act & "," & rs(2)

rs.MoveNext

categories = "[" & mid(categories,2) & "]"

data_plan = "[" & mid(data_plan,2) & "]"

data_act = "[" & mid(data_act,2) & "]"

Wend