ASP数组表示为subcat(i,j) 而javascript 数组表示为 subcat[i][j] 如何传递赋值？

[bqb]

如何把subcat(i,1)赋值给form.id.value


<script language=javascript>

function tt(i)
{
form.id.value=subcat[i][1];
}
</script>

<%
Dim subcat(10,4)
dim i
i=0
set rs=server.CreateObject("adodb.recordset")
sql="select * from cj"
rs.Open sql,conn,1,1
if rs.Eof Then
response.Write("没有数据")
else
do while not rs.eof
subcat(i,0)=rs("id")
subcat(i,1)=rs("gh")
subcat(i,2)=rs("name")
subcat(i,3)=rs("bm")
i=i+1
rs.movenext
loop

rs.close
set rs=nothing
end if
%>

[bqb]

subcat = new Array();
subcat[0] = new Array("0","030135","陈蓓","总经理室");
subcat[1] = new Array("1","030116","张宁沭","行政管理处");
subcat[2] = new Array("2","030079","孙汉宇","资材部");
subcat[3] = new Array("3","040196","周莉莉","资材部");
subcat[4] = new Array("4","020022","徐金珍","总务部");
subcat[5] = new Array("5","030077","蔡其华","总务部");
subcat[6] = new Array("6","020047","包妍","总务部");
subcat[7] = new Array("7","030141","周莉","总务部");
subcat[8] = new Array("8","040188","沈锡荣","总务部");
subcat[9] = new Array("9","030062","张红玉","人力资源部");
subcat[10] = new Array("10","030078","于薇薇","人力资源部");
subcat[11] = new Array("11","030215","马竞","人力资源部");
subcat[12] = new Array("12","040226","张益星","人力资源部");


我是想把手动定义的数组，写在Access数据库里读出来！大家帮我想想办法，谢了！

[xuStanly]

javascript只有一维数组，但数组的元素又可以为另外一个一维数组。
所以：
subcat = new Array();
<%
dim arrIndex
arrIndex = 0
do while not rs.eof
%>
subcat[<%=arrIndex%>] = new Array("<%=rs(0)%>",<%=rs(1)%>","<%=rs(2)%>",<%=rs(3)%>");
<%
arrIndex = arrIndex + 1
rs.movenext
loop
%>

访问数组时subcat[i][j]即可。