整理一个asp多级树型分类问题的解决方法（7）

这是天极论坛的树型解决方案，是坛主烈云写的。

sub  MainList()显示主题帖 
ON  ERROR  RESUME  NEXT 
       set  rs=Server.CreateObject("ADODB.Recordset") 
       sql="select  *  from  "&bbs_id&"  where  lanp_level=1  order  by  lanp_subdate  DESC" 
       rs.Open  sql,conn,1,1 
Set  rs=  conn.Execute("bbs_level1  "&bbs_id&"") 
if  not  rs.eof  then 
       rs.pagesize=15 
       rs.AbsolutePage  =1 
       if  Request("page")<>""  then  rs.AbsolutePage  =Request("page") 
       RowCount  =rs.pagesize 
       session("pageccu")=rs.pagecount 
       Response.Write  "<ul>" 
       For  i=  0  To  15 
       If  rs.eof  Then  exit  for 
       Do  While  Not  rs.Eof  and  RowCount>0 
               Response.Write  "<li  class=tds>" 
               If  rs("bbs_zt")="1"  Then 
                               Response.Write  "<img  src=img/jh.gif>  " 
               Else   
               if  rs("lanp_icon")<>""  then  Response.Write  "<img  src=images/"  &rs("lanp_icon")&".gif>  " 
               End  If 
               Response.Write  "<a  href=disp.asp?uid="&nowid&"&lanp_id="&rs("lanp_id")&"&bbsid="&Request("bbsid")&">"&Replace(rs("lanp_title"),"  ","  ")&"</a>" 
               if  rs("lanp_size")=0  then 
                       Response.Write  "(空)" 
               else 
                       Response.Write  "("&rs("lanp_size")&"字)" 
               end  if 
               lanu_nickn=rs("lanu_nickn") 
               Response.Write  "(<a  href=userinfo.asp?uid=lan122545&target="&lanu_nickn&"  target=_b>"&lanu_nickn&"</a>  " 
               Response.Write  "<font  size=1>"&rs("lanp_date")&""  &"</font>" 
               Response.Write  "<font  color=226699>  阅读:"&rs("lanp_reads")  &")</font>" 
               If  DateDiff(  "d",rs("lanp_date"),DateAdd("d",-1,Now()))<0  Then 
                       Response.Write  "<img  src=images/new.gif  width=31  height=12>" 
               End  If 
               Response.Write  "</li>" 
               If  rs("lanp_reply")<>""    And  rs("lanp_reply")<>"0"  Then 
                
                       SubList  rs("lanp_reply"),rs("lanp_id") 
                       ccc=0 
               End  If 
               Response.Write  "<hr  style=height:1pt>" 
               RowCount=RowCount-1 
               rs.MoveNext 
               Next 
       Loop 
       Response.Write  "</ul>" 
       Response.Write("分页显示"&dd) 
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