hot.asp

来自「1.页顶分类菜单——老版本中需要手工修改页面文件来管理分类」· ASP 代码 · 共 26 行

<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
<%
bbsurl="http://www.6kbbs.com/bbs"     '论坛地址绝对路径，末尾不能加上 /		
tophotzt=10              '显示最热帖数目
%>
document.write("<style type='text/css'><!--.css {  font-size: 9pt}--></style><table class=css border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#f3f3f3' width='100%'>");
document.write("<%
set tophot=myconn.execute("select zhuti,id,riqi,name,face,bd,totable from [bbstl] where gonggao=0 and type<>5 and riqi>now()-7 order by hits desc")
if not tophot.eof then
i=0
do while not tophot.eof
i=i+1
response.write"<tr><td><img src="&bbsurl&"/face/"&tophot("face")&".gif align='absmiddle'></td>"
response.write"<td>&nbsp;<a target=_blank href="&bbsurl&"/show.asp?bd="&tophot("bd")&"&id="&tophot("id")&" title='"&lefttrue(kbbs(tophot("zhuti")),80)&"'>"&lefttrue(kbbs(tophot("zhuti")),30)&"</a></td>"
response.write"<td><a target=_blank href="&bbsurl&"/userinfo.asp?name="&tophot("name")&">"&tophot("name")&"</a></td>"
response.write"<td>"&tophot("riqi")&"</td></tr>"
tophot.movenext
if i=tophotzt then exit do
loop
end if
tophot.close
set tophot=nothing
%>");
document.write("</table>");