Squall Programming Room

Including Some Excellently Technologic Documents

ASP+Js+Access 实现无级分类

ASP+JS+ACCESS的无级分类,个人感觉很实用,虽然技术不是很深,但是实用率很高!

conn.inc就不用我多说了,自己写一个去就OK了,下面我说说数据库的架构!

数据库名字自己起就完了!(千万要和conn.inc匹配哦~~哈哈~注意小错误!)

 表名tree, 列名  ID(自动增长)、pid(数字)、content(文本)、link(文本)

好了,说的很清楚了吧 嘿嘿,下面是代码了!!大家看 有什么不懂的留言给我!

<!--#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="images/"

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+"plus.gif"
href=Request.ServerVariables("URL")&"?id="&rs("id")
click="onclick=""location.href="&href&""""
else
img=imgFolder+"minus.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>

阅读更多
个人分类: ASP/ASP.net
上一篇二级下拉列表的实现
下一篇在blog中显示天气预报、日历、时钟、MSN、QQ在线状态(转载自CSDN)
想对作者说点什么? 我来说一句

ASP无级分类解决方案

ttt015651 ttt015651

2010-10-15 15:13:00

阅读数:421

功能强大的无级分类

2012年08月28日 1KB 下载

asp.net 无级分类实现

2013年01月21日 523KB 下载

PHP利用递归实现无极限分类

1

ym_diver ym_diver

2017-05-06 13:06:26

阅读数:128

ASP递归无限级分类源码

2009年10月09日 643KB 下载

没有更多推荐了,返回首页

不良信息举报

ASP+Js+Access 实现无级分类

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭