编写一个含二级目录的源码(Asp+JavaScript) ********************** (一) 打开记录集,创建数组,把记录集的值赋给数组. <% Dim count set Rs=server.createobject("adodb.recordset") Sql = "select * from BookBoard order by ClassId desc" Rs.open Sql,cn,1,1%> ********************** (二) 显示分组,并编写列表框的OnChange事件. <%set Rs=server.CreateObject("adodb.recordset") Sql="select * from BookClass order by ClassId desc" Rs.open Sql,cn,1,1 if Rs.eof and Rs.bof then response.write "请先添加总类。" response.end else%>
