|
 
|
先发个小排行,提提人气
纯代码，不需要下载什么东东。
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 |
|
鲁公网安备 37120302000001号
