ASP基于数据库的三级菜单实现(案例)

[kethelin]

最近在一个叫【网逻】的好地方，看到了这篇文章不错，与大家分享！现转载如下：


<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="font">
<tr>
<td height="44" align="right">产品编号:</td>
<td align="left"><input name="pro_id"></td>
</tr>
<tr>
<td height="41" align="right">
<%
set rs=server.CreateObject("adodb.recordset")
sq="select * from pro_big_part"
rs.open sq,conn,1,1%>
<select name="big_part" onChange="ld();ld2()">
<option value="" selected>选择一级目录</option>
<%while not rs.eof%>
<option value="<%=rs("big_part")%>"><%=rs("big_part")%></option>
<%rs.movenext
wend
rs.close%>
</select> </td>
<td align="left"> <select name="small_part" onChange="ld2()">
<option value="" selected>选择二级目录</option>
</select> <select name="thr_part">
<option value="" selected>选择三级目录</option>
</select>
<%sql="select * from pro_small_part"
rs.open sql,conn,1,1
num=rs.recordcount
str=""
for i=1 to rs.recordcount
str=str&rs("big_part")&"-"&rs("small_part")&","
if rs.eof then exit for
rs.movenext
next
rs.close
%>
<%sql="select * from pro_thr_part"
rs.open sql,conn,1,1
num2=rs.recordcount
str2=""
for i=1 to rs.recordcount
str2=str2&rs("small_part")&"-"&rs("thr_part")&","
if rs.eof then exit for
rs.movenext
next
rs.close
%>


其他的请参见http://www.weblogic.com.cn的技术论坛！很不错的，不敢独享^_^

[zzcoin]

楼主试了没
好像要用到JavaScript才行吧

[wyun0]

onChange="ld();ld2()"

很明显楼主只发了ASP的代码，没有JavaScript的代码

[yeno]

楼主，我们分页都用标签库，来JSP版，我们秉烛长谈！

[lovec2004]

不会吧 我要实现个二级连动的 那代码也比这个长很多啊 而且sql语句得拐三行了

这个数据库怎么建的？