![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 站務人員 站長 ![]()
![]() ![]() ![]() |
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的值
本篇文章發表於2002-06-24 00:00
|