WebBuild

无限极分类例子

作者:parno 日期:2006-09-16

字体大小: 小中大

比较简单的一个页面，类似csdn论坛在ns下的左边列表。
描述：
1. 数据名：tree.mdb；表名：tree
表结构：id(自编) pid(数字) content(文本) link(文本)
2. 图片：endnode.gif collapsed.gif back.gif(均在img目录下，可自行修改)
3. 代码：

复制内容到剪贴板

程序代码

无限级列表

<%
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 "

上一级目录

"&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=""&rs("content")&""
Response.Write "

"&link&"

"
rs.movenext
loop
rs.close:set rs=nothing
end if
end function
conn.close:set conn=nothing
%>

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下测试通过

[本日志由 Admin 于 2017-05-19 05:38 AM 更新]