逐梦论坛 - Powered by Discuz! Board

标题: [LeadBBS相关] 【WENSUI】在论坛首页加“当前最高人气版”的方法 [打印本页]

作者: shillan 时间: 2005-12-28 04:37 标题: 【WENSUI】在论坛首页加“当前最高人气版”的方法

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

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

欢迎光临逐梦论坛 (http://temp2023.zhumeng.org/)