asp无限级分类
时间:2007-09-16 18:06:00
比较简单的一个页面,类似csdn论坛在ns下的左边列表
描述:
1.
数据名:tree.mdb
表名:tree
表结构:id(自编) pid(数字) content(文本) link(文本)
2.
图片:endnode.gif collapsed.gif back.gif(均在img目录下,可自行修改)
3.
代码:
<!--#include file="conn.inc"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>无限级列表</TITLE>
<!--
by fason(2003-5-12)
-->
<style>
.node{
font-size:12px;
padding:0 0 2 0;
margin-left:10;
height:22px;
}
img{
vertical-align:middle;
width:11px;
height:11px;
}
a{text-decoration:none;font-size:12px;color:black}
.deeptree{
width:100%;
height:100%;
backgound-color:#f2f2f2;
overflow:auto;
}
</style>
</HEAD>
<BODY bgcolor=#f2f2f2>
<nobr>
<div class="deeptree">
<%
newid=Request.QueryString("id")
if newid="" or CInt(newid)<0 then newid=0
if isNumeric(newid) then
listTree(CInt(newid))
end if
function listTree(id)
dim rs
dim imgFolder,imgFile
dim link,href,parentHref
dim target,ahref,click
target="main" ’所指定的框架名
imgFolder="img/" ’默认路径
set rs=conn.execute("select *,(select count(*) from tree where pid = T.id) as children,(select pid from tree where id="&id&") as parent from tree T where pid="&id)
if not rs.eof then
parentHref=Request.ServerVariables("URL")&"?id="&rs("parent")
if id<>0 then Response.Write "<div class=’node’ nowrap=true><a href=’"&parentHref&"’ onfocus=’blur()’><img src=’"&imgFolder&"back.gif’ border=0></a> <a href=’"&parentHref&"’>上一级目录</a></div>"&VbCrLf
do while not rs.eof
if rs("children")>0 then
img=imgFolder+"collapsed.gif"
href=Request.ServerVariables("URL")&"?id="&rs("id")
click="onclick=""location.href=’"&href&"’"""
else
img=imgFolder+"endnode.gif"
href="javascript:void(0)"
end if
if not isNull(rs("link")) then
ahref=rs("link")
else
ahref="javascript:void(0)"
target="_self"
end if
link="<a href=’"&ahref&"’ target=’"&target&"’ title=’"&rs("content")&"’ "&click&">"&rs("content")&"</a>"
Response.Write "<div class=’node’ nowrap=true><a href=’"&href&"’ onfocus=’blur()’><img src=’"&img&"’ border=0></a> "&link&"</div>"
rs.movenext
loop
rs.close:set rs=nothing
end if
end function
conn.close:set conn=nothing
%>
</div>
</nobr>
</BODY>
</HTML>
conn.inc:
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("tree.mdb") & ";Persist Security Info=False"
%>
4.测试:ie6,ns7,mozilla下测试通过
标签:无限极,分类
0
投稿
猜你喜欢
python pyenv多版本管理工具的使用
2022-03-10 05:21:52
Python-接口开发入门解析
2022-05-24 09:19:43
Python最基本的输入输出详解
2023-11-27 16:49:24
python感知机实现代码
2022-03-12 14:59:50
DSDS应用场景(高通5G)
2022-06-18 05:08:44
Mysql使用索引实现查询优化
2024-01-16 03:59:35
DHTML 打造 Picture Spelling
2013-08-22 17:01:53
SQL Server中选出指定范围行的SQL语句写法
2008-12-09 15:04:00
简单了解操作mysql数据库的命令行神器mycli
2024-01-24 03:44:14
python利用后缀表达式实现计算器功能
2022-08-26 03:25:35
pymongo实现控制mongodb中数字字段做加法的方法
2021-12-15 21:04:06
python Pygame的具体使用讲解
2021-01-15 21:41:26
python对json的相关操作实例详解
2022-03-27 20:15:06
吴恩达机器学习练习:SVM支持向量机
2023-10-30 11:49:53
MySQL在Windows中net start mysql 启动MySQL服务报错 发生系统错误解决方案
2024-01-12 21:39:42
java EJB 加密与解密原理的一个例子
2023-10-02 06:41:16
Python 时间处理datetime实例
2023-11-17 08:09:37
解析Vue2.0双向绑定实现原理
2024-06-05 15:29:32
Pytorch中transforms.Resize()的简单使用
2023-06-17 02:23:28
深入了解Golang中的数据类型
2024-02-10 10:17:49