********************** (一) 打开记录集,创建数组,把记录集的值赋给数组.
<%
Dim count
set Rs=server.createobject(“adodb.recordset”)
Sql = “select * from BookBoard order by ClassId desc”
Rs.open Sql,cn,1,1%>
<%
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%>
==请选择大类==
来源gaodai.ma#com搞##代!^码网
<option value="”>
<%Rs.movenext
loop
end if
Rs.close
set Rs = nothing%>
==请选择小类==
以上就是编写一个含二级目录的源码(Asp+JavaScript)的详细内容,更多请关注gaodaima搞代码网其它相关文章!