********************** (一) 打开记录集,创建数组,把记录集的值赋给数组. <% Dim count set Rs=server.createobject(“adodb.recordset”) Sql = “select * from BookBoard order by ClassId desc” Rs.open Sql,cn,1,1%> [removed] var onecount; onecount=0; subcat = new Array(); <%count = 0 do while not Rs.eof %>