[LeadBBS相关] 【WENSUI】在论坛首页加“当前最高人气版”的方法 下载, border, center, class

先发个小排行,提提人气
纯代码，不需要下载什么东东。


boards.asp

找到:

--------------------

      if boardnum = -1 then
            response.write "<table width=" & def_bbs_screenwidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & def_bbs_darkcolor & " class=tbone><tr bgcolor=" & def_bbs_lightestcolor & " class=tbbg9><td colspan=4>找不到任何版面</td></tr></table>"
      else%>

-----------------------------
替换为:
------------------------------
      if boardnum = -1 then
            response.write "<table width=" & def_bbs_screenwidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & def_bbs_darkcolor & " class=tbone><tr bgcolor=" & def_bbs_lightestcolor & " class=tbbg9><td colspan=4>找不到任何版面</td></tr></table>"
      else
            response.write "<table width=" & def_bbs_screenwidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & def_bbs_darkcolor & " class=tbone><tr bgcolor=" & def_bbs_lightestcolor & " class=tbbg9><td colspan=4><img src=images/folder.gif width=16 height=16  border=0 align=absmiddle> 论坛现有一级可见版面：" & boardnum+1 & " 个"
            dim tmprs,tmpsql,tmpid,tmpname
            tmpsql = "select top 1 boardid,boardname from leadbbs_boards where hiddenflag = 0  order by todayannounce desc"
                set tmprs = con.execute(tmpsql)
            gbl_dbnum = gbl_dbnum + 1
                tmpid = tmprs(0)
                tmpname = tmprs(1)
                tmprs.close
            set tmprs = nothing
            response.write " | <img src=/vthot.gif width=18 height=18  border=0 align=absmiddle>当前最高人气版：<a href=board/board.asp?boardid=" & tmpid & "><font color=red>" & tmpname & "</font></a></td></tr></table>"
      %>
--------------------
即可

http://w.leadbbs.com/a/a.asp?b=200&id=2068526