级联菜单 [ajax+asp]

YPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

Dim conn,rs
Dim connstr
Dim sqlCmd
'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb")
conn.open connstr
'用于从数据库中获取数据的sql语句
sqlCmd="select id,name from category where level=0"
'创建数据集对象
set rs=conn.execute(sqlCmd)
%>

二级菜单示例




请选择一级分类：
'遍历记录集生成下拉菜单选项
while not rs.eof
Response.write("")
Response.write(rs("name"))
Response.write("")
rs.movenext
wend
'关闭数据库连接及记录集，释放资源
rs.close
conn.close
set rs=nothing
set conn=nothing
%>


请选择二级分类：