如何实现该二级菜单的功能呢 - ASP技术论坛

第 21 楼

得分:0

请教yms123：
怎么样将你的代码与数据库结合来做动态的二级菜单？也就是一级菜单a，b，c都是从数据库中取得，那么下面的第二级也是根据附属的第一级菜单来取得的，我用的上面的代码修改但是怎么不行，请指教，谢谢！

第 22 楼

得分:0

yms123：
你这都是用表格写死的，要是要从数据库中读取数据来实现无限级菜单呢。也要aaaaa2004 给的效果。

其显示类似与无限级树菜单的效果。

Your future depends on your dreams ！

第 23 楼

得分:0

回复：（jhy）yms123：你这都是用表格写死的，要是要从...

以下是引用jhy在2006-5-24 15:57:00的发言：
yms123：
你这都是用表格写死的，要是要从数据库中读取数据来实现无限级菜单呢。也要aaaaa2004 给的效果。

其显示类似与无限级树菜单的效果。

表格不是不灵活的，表格里面可以嵌套表格呀？从数据库里先读一级菜单，再读二级菜单以此类推读取。

第 24 楼

得分:0

[CODE]<script language=javascript>
function ShowLayer(index)
{
if(this.Layer(index).style.display=="none")
{
this.Layer(index).style.display="block";
}
else
{
this.Layer(index).style.display="none";
}
}
</script>
<table border="1" style="border-collapse: collapse" width="6%" id="table1">
<%
Dim rsA'主菜单记录集
Dim rsB'子菜单记录集
Dim i
'……rsA,rsB为ADODB.RecordSet对象省略打开过程
Do Until rsA.EOF
With Response
.Write "<tr>"
.Write " <td><a href=# onclick=ShowLayer(0); >"&rsA("M_Muen)&"</a></td>"
.Write "</tr>"
rsB.Open "select * From MenuList Where C_MenuID="&rsA("M_MenuID"),con,1,3
.Write" <td>"
.Write" <div style=display:none; id=Layer>"
IF Not rsB.EOF Then
Do Until rsB.EOF
.Write rsB("C_Menu")&"<br>"
rsB.MoveNext
Loop
End IF
.Write " </div>"
.Write " </td>"
.Write "</tr>"
End With
rsA.MoveNext
Loop
%>
</table>[/CODE]

第 25 楼

得分:0

yms123你看看这个贴
http://www.bc-cn.net/bbs/dispbbs.asp?boardid=10&id=66809&star=1#151019
这个前台该怎么实现呢？

Your future depends on your dreams ！

第 26 楼

得分:0

请教yms123:
yms123你好！非常感谢你的答复，但是我为了好看一些，进行了修改，但是修改后拿取出来的子菜单却只能显示第一条，其他的不能显示，本来用response来看是有三条的。请帮忙，谢谢！代码如下：

<%
dim cn,rs,tablenum,strMenuID,I,J,strSonMenu
set cn = Server.CreateObject("Adodb.Connection")
cn.open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=lctdata;Data Source=localhost"
Set rs = Server.CreateObject("Adodb.Recordset")
Set rs1 = Server.CreateObject("Adodb.Recordset")
'rs.open "select A.*,B.* from Menu_Role A,Menu_Info B where Role_User='" & strLoginName & "'",cn,1,3
rs.open "select A.*,B.* from Menu_Role A,Menu_Info B where A.Role_ID=B.Menu_ID and Parent_id=0 and A.Role_User='" & strLoginName & "'",cn,1,1

%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
function ShowLayer(index)
{
if(this.Layer(index).style.display=="none")
{
this.Layer(index).style.display="block";
}
else
{
this.Layer(index).style.display="none";
}
}
</script>
</head>

<table width="41%" border="0" height="116" id="table1">
<%
if not rs.eof then
rs.movefirst
for I=1 to rs.recordcount
strSonMenu = rs("menu_id")

%>
<tr>
<td><a href=# onclick=ShowLayer(0);><%=rs("menu_name")%>菜单一</a></td>
</tr>
<%
response.write strSonMenu
if rs1.state=1 then rs1.close
rs1.Open "select * From menu_info Where Parent_id='" & strSonMenu & "'",cn,1,1
IF Not rs1.EOF Then
for j=1 to rs1.recordcount
%>
<tr>
<td>
<div style=display:none; id=Layer><img src="child.gif"><%=rs1("menu_name")%></div>
</td>
</tr>
<% rs1.MoveNext
next
End IF
rs.MoveNext
next
end if%>
</table>

</form>
</body>
</html>

第 27 楼

得分:0

如果你数据库里分条列的,

这里当然要用循环才能都显示的啊

http://toorup.3v.do
loading...

第 28 楼

得分:0

我这里是用的循环啊，但是不清楚为什么只显示第一条

[此贴子已经被作者于2006-5-25 13:44:39编辑过]

第 29 楼

得分:0

这个东西很有用的.

第 30 楼

得分:0

他说的就是树状菜单