hotzt.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 首页调用本周最热贴 插件 for 6KSU1.1
'# 调用方法：<script src='hotzt.asp'></script>
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
document.write("<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' 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=10 then exit do
loop
end if
tophot.close
set tophot=nothing
%>");
document.write("</table>");