一百分求一个菜单程序

linpast 2003-12-12 02:42:21
我想做一个像这个网站的 http://shop.lenovo.com/Channel_home/ 左边产品分类那样的菜单,这个网站有些地方是三级目录的,我只要二级目录就可以了.
不过要可以在在数据库里更改的,也就是说在后台添加一个,这边的菜单就自动添加.
谢谢!
...全文
101 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
linpast 2003-12-13
  • 打赏
  • 举报
 回复
那要像那个网站那样要代码要怎么写呀？
谢谢
nchen123 2003-12-12
  • 打赏
  • 举报
 回复
如果考虑运用 xml 技术就可以作出一个通用的菜单， 可以运用于任何现有的数据库结构。

专门写一个脚本读取数据库生成 xml 文件。

后台更新的时候只需要进行正常的进行数据库的增删，修改等等操作， 然后调用一次上面我说的这个脚本， 就可以实现更新。

这样实际上每次在前台读取的是静态的内容， 所以速度非常快。

关于这个问题我和超级大笨狼讨论过一次， 我想他可能是误解了。 他说这个要用 xmlhttp 来实现，所以慢， 实际上是和 xmlhttp 没有关系的。
nchen123 2003-12-12
  • 打赏
  • 举报
 回复
to bananasmiling(hello找我) :

超级大笨狼的这个联动菜单有个前提，就是你的数据库必须照他这个办法来设计， 不能运用于已有的数据库。

所以我觉得他这个联动还是有些缺陷。
linpast 2003-12-12
  • 打赏
  • 举报
 回复
我要的不是那一种.
要联想这个网站那样,
会弹出一个菜单出来.
并且数据库添加一条,
前也添加一条.
谢谢!
linpast 2003-12-12
  • 打赏
  • 举报
 回复
我要的不是那一种.
要你联想这个网站那样,
会弹出一个菜单出来.
并且数据库添加一条,
前也添加一条.
谢谢!
tigerwen01 2003-12-12
  • 打赏
  • 举报
 回复
请参考tigerwen01的两级连动菜单：
http://www.csdn.net/develop/read_article.asp?id=18690
http://www.csdn.net/develop/read_article.asp?id=18691
zhanghao5188 2003-12-12
  • 打赏
  • 举报
 回复
用层做快！！ 行为里的显示，隐蔽！！
Struggling 2003-12-12
  • 打赏
  • 举报
 回复
我也建议你去找阿信的网站，里面有各种各样的。
http://fason.nease.net
海鸥 2003-12-12
  • 打赏
  • 举报
 回复
使用dreamweaver mx,先建一图片,然后选中图片,选择窗口菜单→行为→点击+号→显示弹出式菜单,然后在里面自己设定就OK了,很简单.
swich 2003-12-12
  • 打赏
  • 举报
 回复
去阿信那找找看

http://fason.nease.net
linpast 2003-12-12
  • 打赏
  • 举报
 回复
linpast22@163.net
bananasmiling 2003-12-12
  • 打赏
  • 举报
 回复
现在我用JAVASCRIPT做出了一个，代码如下：

<%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from branchcite where citeparent<>0"
rs.open sql,conn,1,1
response.write rs.recordcount
%>

<script language = "javascript">
var branchcount;
branchcount=0;
cites = new Array();
<%
count = 0
do while not rs.eof
%>
cites[<%=count%>] = new Array("<%= trim(rs("citename"))%>","<%= trim(rs("citeparent"))%>","<%= trim(rs("citeid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
branchcount=<%=count%>;
</script>

<%

set rs=server.createobject("adodb.recordset")
sql = "select * from errType order by TypeId"
rs.open sql,conn,1,1
response.write rs.recordcount
%>
<script language = "javascript">

classcount=0;
errclass = new Array();
<%
count = 0
do while not rs.eof
%>
errclass[<%=count%>] = new Array("<%= trim(rs("typecontent"))%>","<%= trim(rs("typeclass"))%>","<%= trim(rs("typeid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
classcount=<%=count%>;
</script>

<script language = "javascript">
function changebranch(branchid)
{
document.formaddlog.cite.length = 0;

var branchid=branchid;
var i;
for (i=0;i < branchcount; i++)
{
if (cites[i][1] == branchid)
{
document.formaddlog.cite.options[document.formaddlog.cite.length] = new Option(cites[i][0], cites[i][2]);
}
}

}


function changeerrtype(Classid)
{
document.formaddlog.ErrType.length = 0;

var Classid=Classid;
var i;
for (i=0;i < classcount; i++)
{
if (errclass[i][1] == Classid)
{
document.formaddlog.ErrType.options[document.formaddlog.ErrType.length] = new Option(errclass[i][0],errclass[i][2]);
}
}

}
</script>

bananasmiling 2003-12-12
  • 打赏
  • 举报
 回复
Access数据库
● 数据库名：tree
● 表名：tree
● 字段名的设计
ID 文本类型 编码
Name 文本类型 节点文字
HyperLink 文本类型 相关信息
---------------------------------------------------
ID | Name | HyperLink
---------------------------------------------------
1_1_1 | ASP | http://www.csdn.net
---------------------------------------------------
1_1_1_1 | DHTML | http://www.csdn.net
---------------------------------------------------
1_2_2 | JAVA | http://www.csdn.net
---------------------------------------------------
1_1_2 | JavaScript | http://www.csdn.net
---------------------------------------------------
1_2_1 | VB | http://www.csdn.net
---------------------------------------------------
1_2_1_2 | VBA | http://www.csdn.net
---------------------------------------------------
1_1 | WEB开发 | http://www.csdn.net
---------------------------------------------------
1 | WWW.CSDN.net | http://www.csdn.net
---------------------------------------------------
1_2_1_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_3_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_2 | 开发语言 | http://www.csdn.net
---------------------------------------------------
1_1_1_2 | 内建对象 | http://www.csdn.net
---------------------------------------------------
1_3 | 数据库 | http://www.csdn.net
----------------------------------------------------
文件：nolimited.asp经简单测试好用！代码如下：
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp树的研究</title>
</head>
<style type="text/css">
<!--
.aa {
font-size: 14px;
color: #000000;
text-align: center;
vertical-align: middle;
letter-spacing: 0px;
word-spacing: 0px;
}
-->
</style>
<body bgcolor="DEE3F7">
<%
dim cn,rs,SQL ,Para,NumChild
set cn=server.CreateObject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
set rs1=server.createobject("ADODB.recordset")
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tree.mdb")
SQL="Select * from tree order by ID"
rs.open SQL,cn,3,2
do while not rs.EOF
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
do while not rs1.EOF
Para =Para & rs1("ID") & "|"
rs1.MoveNext
loop
Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>"
border=1
cellpadding=0
cellspacing=0
bordercolor="#DEE3F7"
class="aa"
abbr="<%=Para%>"
summary=<%=checkid(rs("ID"))%>
style="cursor:hand"
onClick="vbs:subtree '<%=Para%>'" >

<tr>
<td width="<%=17+checkid(rs("ID"))*20%>"
height="20" align="right">
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
<tr>

<td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
</tr>
</table>
</td>

<td height="20"
nowrap
bordercolor="#FFFFFF"
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
title="<%=rs("HyperLink")%>">
<%=rs("Name")%></td>
</tr>
</table>


<%
rs.MoveNext
loop
rs.Close:set rs=nothing
cn.Close:set cn=nothing
function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
if mid(x,i,1)="_" then
Tempnum=Tempnum+1
end if
next
checkid=Tempnum
end function


%>
<script language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1")) then
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</script>

</html>

Primer2002cn 2003-12-12
  • 打赏
  • 举报
 回复
我这有一个现成的，留下MAIL吧！
vivisogood 2003-12-12
  • 打赏
  • 举报
 回复
搜索联动例子一大堆
百分百防360界面，可换肤。
完全模仿360安全卫士的界面，可换肤，可缩放。使用VC开发，除GDI+以外未使用第三方界面库。
一个产品级MCU_LCD菜单框架设计
摘要：不知道有多少人折腾过液晶显示的菜单，我觉得很多人都应该搞过，我还记得以前大学参加电子设计竞赛获奖的作品，我就用到了一个12864，里面有菜单功能。 以前可能觉得菜单高大上，其实并不是想象中的复杂，本文为大家分享一个用单色屏做的菜单框架。 代码托管在github： https://github.com/wujique/stm32f407/tree/sw_arch 1、概述 2、菜单框架设计 作为一个底层驱动工程师，驱动写完了，是要写硬件测试程序的。这个测试程序，一般给测试部/硬件工程师用来测试硬件
Android滑动菜单框架完全解析，教你如何一分钟实现滑动菜单特效
之前我向大家介绍了史上最简单的滑动菜单的实现方式，相信大家都还记得。如果忘记了其中的实现原理或者还没看过的朋友，请先去看一遍之前的文章 Android滑动菜单特效实现，仿人人客户端侧滑效果，史上最简单的侧滑实现 ，因为我们今天要实现的滑动菜单框架也是基于同样的原理的。 之前的文章中在最后也提到了，如果是你的应用程序中有很多个Activity都需要加入滑动菜单的功能，那么每个Activity都要写上百行的代码才能实现效果，再简单的滑动菜单实现方案也没用。因此我们今天要实现一个滑动菜单的框架，然后在任何
Java开发笔记（一百三十三）Swing的菜单
传统的桌面程序基本是对某种类型的文件进行加工，例如Window自带的记事本用来读写文本文件，自带的画图程序用来查看和修改位图文件。为了方便用户切换各种操作，这些程序在窗口顶端放了一排菜单栏，单击菜单栏上的每个菜单，又会在下方弹出一列菜单项，就像下图所示的记事本菜单那样。 然后单击某个菜单项，比如“新建”、“打开”、“保存”等，记事本程序便会执行相应的处理操作。 这组菜单在Swing中被分解为三种...
C程序设计（第五版）1~7章例题
第1章 程序设计和C语言1.1 要求在屏幕上输出以下一行信息1.2 求两个整数之和1.3 求两个整数中的较大者2.1 求1×2×3×4×5。2.2有50个学生，要求输出成绩在80分以上的学生的学号和成绩。2.3 判定2000-2500年中的每一年是否为闰年，并将结果输出。2.4求1一减二分之一加三分之一减四分之一加。。。九十九分之一减一百分之一。2.5给出一个大于或等于3的正整数，判断它是不是一个...
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章