关于点击大类然后就弹出小类列表
想问大家一个事,就是 现在我想在页面上做一个下拉式的菜单,点击大类然后就弹出小类列表,在点击就收回小类列表,如果大家有这样的程序麻烦发一下,谢谢
<%'set rs=server.CreateObject("adodb.recordset")
'rs.open "select * from class where ccgy_bid=0 order by ccgy_uid ",conn,1,1
%>
<table width="150" border="0" cellspacing="1" cellpadding="3">
<tr bgcolor="#FFCC00" id="submenu1">
<td colspan="3" bgcolor="#9900FF" ><div align="center">CCGY功能库管理系统</div></td>
</tr><%
i=1
str=""
do while i<11'rs.eof
for j=1 to 10 'rs.recordcount
if j<>i then
str=str&"n"&j&".style.display='none';imageurl"&j&".src='image/3.gif';"
end if
next
%>
<tr class="navbg" onClick="javascript:n<%=i%>.style.display='block';imageurl<%=i%>.src='image/7.gif';<%response.Write(str)%>">
<td id="m<%=i%>"><img id="imageurl<%=i%>" src="image/3.gif" /></td>
<td style="cursor:hand" bgcolor="#0099FF" id="m<%=i%>"><a href="edit.asp?id=<%=i%>" style="color:#FFFFFF" target="right"><%=i%></a></td>
</tr>
<tr bgcolor="#6B8602" id="n<%=i%>" <%if i<>1 then response.Write("style=""display:none""")%>>
<td width="20" align="right" bgcolor="#6B8602" >→</td>
<td width="150" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
'set srs=server.CreateObject("adodb.recordset")
'srs.open "select * from class where ccgy_bid="&rs("id")&" order by ccgy_uid",conn,1,1
'if srs.eof = true then //后面的放到 % >后<tr> <td>没有小类</td></tr>
%>
<%'else
'do while not srs.eof %>
<tr>
<td><a href="edit.asp?id=<%=i%>" style="color:#FFFFFF" target="right"><%=i%></a></td>
</tr>
<%
'srs.movenext
'loop
'end if%>
</table>
</td>
</tr>
<%
i=i+1
str=""
'rs.movenext
loop
%>
</table>
这是我自己写的纯asp+css的简单的 下拉列表 你保存成。asp 文件 就能看 了 被注释掉的部分你按自己情况改了就能从数据库调了
