else
response.write "<p><CENTER>还没有帖子呢,没有的看喽！</CENTER></p>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
Sub SubList(lanp_reply,lanp_id)分级显示子帖
dim lanrs
set lanrs=Server.CreateObject("ADODB.Recordset")
sql2="select * from "&bbs_id&" where lanp_id in ("&lanp_reply&")"
lanrs.Open sql2,conn,1,1
Set lanrs= conn.Execute("bbs_levelN "&bbs_id&","&lanp_reply&"")
response.write "<ul>"
Do While Not lanrs.Eof
lanp_date = lanrs("lanp_date")
lanp_size=lanrs("lanp_size")
lanp_reply1=lanrs("lanp_reply")
lanp_reads1=lanrs("lanp_reads")
ccc=ccc+1
If ccc>15 Then exit do
If ccc > 16 Then
Response.Write("<BR><a href=disp.asp?lanp_id="&lanp_id&"&bbsid="&Request("bbsid") &">更多内容>>>>>></a>")
exit do
End If
response.write "<li class=tds>"规则段落显示符
if lanrs("lanp_icon")<>"" then如果表情图标字段不为空则显示
response.write "<img src=images/" &lanrs("lanp_icon")&".gif> "
end if
response.write "<a href=disp.asp?uid="&nowid&"&lanp_id="&lanrs("lanp_id")&"&bbsid="&Request("bbsid") &">"&Replace(lanrs("lanp_title")," "," ")&"</a>"以帖子主题为链接名，指向帖子编号，显示帖子内容
if lanp_size=0 then显示帖子内容大小
response.write "<空>"
else
response.write "("&lanp_size&"字)"
end if
llanu=lanrs("lanu_nickn")
response.write "(<a href=userinfo.asp?uid=lan122545&target="&llanu&" target=_b>"&llanu&"</a> "粗体显示帖子作者
response.write "<font size=1>"&lanp_date&" "&"</font>"显示帖子发表时间
response.write "<font color=226699>阅读:"&lanp_reads1&")</font>"显示帖子点击数
If DateDiff( "d",lanp_date,DateAdd("d",-1,Now()))<0 Then 如果是在2两天之内，则标注“新”的图片
response.write "<img src=images/new.gif width=31 height=12>"
End If
response.write "</li>"规则段落显示符结束
If lanp_reply1<>"" And lanp_reply1<>"0" Then如果该帖仍有响应（子帖号），则再次调用本子程序（sub）
SubList lanrs("lanp_reply"),lanp_id
Else
End If
lanrs.MoveNext移向下一记录
Loop
response.write "</ul>"
lanrs.close
set lanrs=Nothing
End Sub
这是开发者俱乐部提供的一个比较简单的树型实现方案
树型结构在我们应用程序中还是很常见的，比如文件目录，BBS，权限设置，部门设置等。这些数
据信息都采用层次型结构，而在我们现在的关系型数据库中很难清淅表达。那么要在程序中遇到树型
结构问题该如何处理呢？
最近笔者通过一个ASP权限管理的程序轻松解决了一这问题，现在将其整理出来以飨读者。
首先，要将层次型数据模型转化为关系型数据模型。也就是说如何在我们的ACCESS，SQL SERVER
，ORACLE等关系型数据库中设计这个数据结构。
拿个实例来讲吧，譬如下面一个数据：
分页： [1] [2] [3] [4] [5] [6] [7] [8] [9] (编辑:网站学习网)
|
当前位置：