订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp无限级调用分类显示

2020/11/20 21:47:17 字体: 浏览 1796
点击下载示例压缩包:ASPsnakDemo.rar



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>asp无限级调用分类</title>
<style>
.class1{color:#FD0509; font-size:16px;}
.class2{color:#3B02FB; font-size:14px;}
.class3{color:#54FB05; font-size:14px;}

</style>
</head>

<body>
<%
dim startime,cn,connstr,db
startime=timer()
db="db.mdb" '数据库
'on error resume next '尝试连数据库,一直到超时,但可以加强SQL注入过滤
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set cn=server.createobject("ADODB.CONNECTION")
cn.open connstr


levelCount=1
sql="select * from Menu where ParentId='0' and Status=1 order by OrderNum ASC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
%>
<div><a href="<%=rs("url")%>" class="class1"><%=rs("title")%></a></div>
<%
call getChildMenu(rs("MenuId"),"&nbsp;&nbsp;",levelCount+1)
rs.movenext
loop
rs.close
set rs=nothing

function getChildMenu(ParentId,LevelString,levelCount)
sql="select * from Menu where ParentId='"&ParentId&"' and Status=1 order by OrderNum ASC"
set rs_ChildMenu=server.CreateObject("adodb.recordset")
rs_ChildMenu.open sql,cn,1,1
do while not rs_ChildMenu.eof

classString="class"&levelCount
if levelCount>3 then '当预设样式不足的情况下,设置超出级别的样式
classString="class3"
end if
%>
<div><%=LevelString%>|_&nbsp;<a href="<%=rs_ChildMenu("url")%>" class="<%=classString%>"><%=rs_ChildMenu("title")%></a></div>
<%
call getChildMenu(rs_ChildMenu("MenuId"),LevelString&"&nbsp;&nbsp;",levelCount+1)
rs_ChildMenu.movenext
loop
rs_ChildMenu.close
set rs_ChildMenu=nothing
end function
%>
<br>
//=============================<br>
Menu表中<br>
MenuId 为菜单编号,必须唯一。建此此菜单使用类似本DEMO中所使用具有一定规则的编号,方便将来的权限管理使用<br>
ParentId 为当前菜单的父菜单编号,当此字段值为0则该菜单为一级菜单<br><br>

本例递归函数加入levelCount参数来确定当前递归的层数,可使用此参数判断当前第几级,并且可控制当前级别调用的样式表<br>

</body>
</html>


相关阅读
javascript_vb_asp代码转换器
旅行社手机网站模板4
另类的误删资料恢复,不使用任何软件恢复你误删除的资料
在iframe窗口中打开链接
连云港电子杂志网站
文本框输入限制
松原市海航商务旅行社
苏欧装饰
共有0条关于《asp无限级调用分类显示》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
更多>>同类信息
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
asp无限级调用分类显示
更多>>最新添加文章
pywinauto技术文档
使用uiautomatorviewer连接模拟器页面报错No Android devices were detected by adb.
python+appium自动化测试-滑动
Appium获取手机分辨率 & 自适应设备下滑刷新
python加Appium判断滑动是否到达屏幕底部
python退出while循环break、return、continue
Python PyInstaller安装和使用教程(详解版)
python自动控制鼠标操作pymouse
更多>>随机抽取信息
利用JavaScript获取现在时间日期与农历
珍惜每一个你遇到过的人 放开你心灵之约的视频
鼠标放在表格区域内,当前格的一整行和一整列变色
JavaScript max() 方法
深山工作室
网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法