Response.Write "<SCRIPT LANGUAGE=VBSCRIPT>" & vbCrLf
Response.Write "DIM aryD" & vbCrLf
Response.Write "REDIM aryD(" & rs.RowCount-1 & "," & Rs.Fields.Count-1 & ")"
i=0
Do While Not Rs.EOF
For L=0 to Rs.Fields.Count-1
Response.write "aryD(" i & "," & L & ")=" & Rs.Fields(0).Value
Next
i=i+1
Rs.MoveNext
Loop
Response.Write "</SCRIPT>" & vbCrLf

這是由資料庫抓出資料動態產生二維array,這樣寫後,下後之SCRIPT皆可讀到該Array的值

---