- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
- 7PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 8百度安全卫士好用么_百度安全卫士技巧说明
- 9Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 10Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 11ipad版office如何激活? office365激活的图文说明教程
- 12最新的Adobe Illustrator CS4序列号大全
[摘要]随着Internet/Intranet的日益普及，Web编程和网页制作已成为一种趋势。本文给读者介绍一种在网页中实现折叠菜单的编程技术，相信会给你的网页增色不少。所谓折叠菜单其实是一种动态显示的菜单，即在未进行菜单操作时，只显示主菜单，当选择某菜单项时，其下级子菜单动态地显示出来，选择完成后，又隐...
随着Internet/Intranet的日益普及，Web编程和网页制作已成为一种趋势。本文给读者介绍一种在网页中实现折叠菜单的编程技术，相信会给你的网页增色不少。所谓折叠菜单其实是一种动态显示的菜单，即在未进行菜单操作时，只显示主菜单，当选择某菜单项时，其下级子菜单动态地显示出来，选择完成后，又隐藏起来。
实现原理
想必大家对HTML的<DIV>标记已非常熟悉，我们利用其display属性即可让<DIV>标记的内容隐藏或显示，具体地做法是当display设为“none”时隐藏，设为“”时显示。如果我们已经用<DIV>标记了所有的菜单名称（包括子菜单），只要用ASP语言并结合Script脚本动态地控制相应的菜单选项显示或隐藏，即可实现折叠菜单。
现在的问题是如何在程序中加入菜单项名称，当然可以在网页中直接加入，但是如果改变菜单选项时，必须重新改动网页的控制代码，这种办法显然不够明智。本文采用的是将所有的菜单选项名称按一定格式另外存放在一个文本文件中，在网页载入时，ASP代码自动读取其内容，这样如果改变菜单选项，只要在此文件中作相应改动即可。
关于文件操作，我们用ASP内置的文件存取组件来完成，具体的用法见文后的程序代码。
菜单文本文件
本文约定菜单文本文件内容必须遵循以下规则：描述一个菜单选项的名称必须有三行内容（见下例）；文件中不允许有空行；菜单选项名称前可以有空格，但必须用空格键（space）形成，不能用Tab键；文件的结尾用两行“*END*”来完成。
假设有如下的三级菜单：
操作系统软件
计算机软件---- 应用系统软件
工具软件----- PC TOOLS
CuteFTP
在菜单文本中应为如下格式：
1------表示第1个主菜单名
计算机软件-------- 菜单名称（以下同）
3 若不为0，指定本菜单的子菜单个数；本例为3个
1*1 表示第1个主菜单的第1个子菜单（必须用*号）
操作系统软件
0 http://… --------- 若为0，表示该菜单项没有子菜单，后跟超链接URL
1*2---------- 表示第1个主菜单的第2个子菜单（以下同）
应用系统软件
0 http://…
1*3
工具软件
2
1*3*1-------- 第1个主菜单中第3个子菜单的第1个子菜单
PC TOOLS
0 http://…
程序代码：
<HTML>
<HEAD>
<SCRIPT Language="VBScript">
'显示或隐藏子菜单
Sub disp_sub_menu(curid)
dim ct,i,tmpid
ct=document.all(curid).style.ct
i=1
While i<=CInt(ct)
tmpid=curid+"*"+cstr(i)
If document.all(tmpid).style.display="none" Then
document.all(tmpid).style.display=""
Else
document.all(tmpid).style.display="none"
If CInt(document.all(tmpid).style.ct)>0 Then
If document.all(tmpid+"*1").style.display="" Then
disp_sub_menu(tmpid) '递归调用下级子菜单
End If
End If
End If
i=i+1
Wend
End Sub
</SCRIPT></HEAD><BODY>
<FONT color=red><H2 align="center">用ASP在网页中实现折叠式菜单示例</H2></FONT><HR>
<% '---- 计算菜单id中的*个数 -----
Function spnum(str)
dim tmpstr,m,t
tmpstr=str
m=InStr(str,"*")
t=0
While m<>0
t=t+1
tmpstr=Mid(tmpstr,m+1)
m=InStr(tmpstr,"*")
Wend
spnum=t
End Function
'----- 向浏览器送出一个菜单选项 -----
Sub output_line(ct_flag,curid,txtname,ct,txtcolor)
dim ptl,sp,dispval,tspace
sp=spnum(curid)
dispval="none"
If sp=0 Then dispval=""
tspace=""
While sp>0
tspace=tspace+" "
sp=sp-1
Wend
If ct_flag=1 Then '该级菜单有子菜单，只用<DIV>标记
ptl="<div id="+chr(34)+curid+chr(34)+" style="
ptl=ptl+chr(34)+"color:"+txtcolor+";"
ptl=ptl+" ct:"+ct+"; line-height:25px;"
ptl=ptl+" cursor:hand;"
ptl=ptl+" display:"+dispval+chr(34)
ptl=ptl+" onclick="+chr(34)+"disp_sub_menu('"+curid+"')"+chr(34)
ptl=ptl+">"+tspace+txtname+"</div>"+chr(13)
Else '该级菜单是最低层菜单，用<DIV>和<A>标记
ptl="<div id="+chr(34)+curid+chr(34)
ptl=ptl+" style="+chr(34)+"display:"+dispval+"; "
ptl=ptl+"line-height:25px; color:"+txtcolor+"; ct:0"+chr(34)+">"
ptl=ptl+tspace+"<A href="+chr(34)+ct+"?txt="+txtname+chr(34)+">"+txtname+"</A></div>"+chr(13)
End If
response.write ptl
End Sub
'---- 主控过程 -----
dim curid,txtname,ct,ct_flag,txtcolor
set fs=createobject("SCRIPTING.FILESYSTEMOBJECT")
menufile=replace(request.servervariables("path_translated"),"menu.asp","mfile.txt")
set txtstr=fs.opentextfile(menufile)
curid=txtstr.readline
While curid<>"*END*"
curid="y"+Trim(curid) '形成当前菜单项的id
txtname=Trim(txtstr.readline) '读取菜单名称
ct=Trim(txtstr.readline) '读取该项菜单的子菜单个数
ct_flag=1
If Mid(ct,1,1)="0" Then
ct_flag=0
ct=LTrim(Mid(ct,2))
End If
txtcolor="black"
Select case spnum(curid)
case 1
txtcolor="red" '一级子菜单颜色
case 2
txtcolor="green" '二级子菜单颜色
case 3
txtcolor="blue" '三级子菜单颜色，可继续增加
End Select
output_line ct_flag,curid,txtname,ct,cstr(txtcolor)
curid=txtstr.readline
Wend
txtstr.close
%>
<HR></BODY></HTML>
本代码在Win98/PWS(Personal Web Server)下通过。
推荐资讯 总人气榜
最新教程 本月人气
- 1ie浏览器是什么？
- 2微信红包记录如何删除？
- 3微信与qq如何同步？
- 4微信被举报如何解除？
- 5微淘是什么？
- 6html是什么？
- 7htc手机如何？
- 8home键在什么地方？
- 9网上转账如何转？
- 10hdmi接口有什么用？
- 11网上如何找工作？
- 12网上如何交电费？
- 1防范PPTV网络电视偷跑P2P流量的方法_pptv网络电视_下载之家
- 217app如何注册 17app注册方法流程
- 3Cool Edit提示：resample.xfm文件失去怎么办？
- 4爱奇艺会员号共享（更新日期：2016年9月28日）
- 5豆瓣app下载地址 豆瓣app官方版下载
- 6用XML与ASP完成购物车
- 7remoteview如何用？remoteview使用方法
- 8百度抢票宝验证码不显示如何办？百度抢票不显示验证码处理方法
- 9人生日历抢票如何用？人生日历抢票插件使用图文说明教程
- 10柚子相机如何用？柚子相机使用方法
- 11搜狗输入法如何设置快捷键？搜狗输入法设置快捷键图文说明教程
- 12随星播如何直播？随星播直播图文说明教程
相关文章
