请问有人有“读取数据库的内容，再生成数组”的script代码吗？

[skyarea]

谢谢！

[mengsky]

Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=test;UID=sa;PWD=;"
rs.Open sql="exec sp_ListFile '"&l_ID&"'",conn
GetRSString=rs.GetString(2,,"?quot;","~~")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
<FORM id='rs' name='rs'>
<INPUT type='hidden' id='rsCache' name='rsCache' value='<%=GetRSString%>'></FORM>

<script>
var strRecords=document.all("rsCache").value;
var arrRecords=strRecords.split("~~");
var arrFields;
arrFields=arrRecords[i].split("?quot;");
alert(arrFields)
</script>

[viking]

<%
set conn=server.CreateObject("adodb.connection")
conn.Open "driver={sql server};server="&Request.ServerVariables("server_name")&";database=dataname;uid=sa;pwd="
sql="select * from zxcj order by 类型,cpu,型号"
set rs=conn.Execute(sql)
dim arrtype(20,60)
dim arrmodel(20,60)
dim arrprice(20,60)
dim arrcpu(20,60)
dim introw
dim intcol
introw=0
intcol=0
if not rs.eof then oldtype=trim(rs("类型"))
do while not rs.eof
if trim(rs("类型"))<>oldtype then
introw=introw+1
intcol=0
oldtype=trim(rs("类型"))
end if
'以下的程序用于向数组赋值
'Response.Write "<font color=blue>类型数组是："&arrtype(introw,intcol)&"</font><p>"
arrtype(introw,intcol)=trim(rs("类型"))
arrmodel(introw,intcol)=trim(rs("型号"))
arrprice(introw,intcol)=trim(rs("价格"))
if trim(rs("类型"))="主板" or trim(rs("类型"))="CPU" then arrcpu(introw,intcol)=trim(rs("cpu"))
recno=recno+1
rs.movenext
if rs.eof then exit do
intcol=intcol+1
loop
%>

[skyarea]

谢谢了，两位!