hot.asp

不出错的ASP整站源码。 后台//本机目录地址/login.asp(admin.asp) 密码和用户名：admin.asp

<!--#include file="conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%
dim bbsurl,tophotzt,tsql,i,tophot,topicinfo
bbsurl="http://www.6kbbs.net/bbs"     '论坛地址绝对路径，末尾不能加上 /		
tophotzt=10              '显示最热帖数目
%>
document.write("<style type='text/css'><!--.css {  font-size: 9pt}--></style><table class=css height=28 border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#f3f3f3' width='100%'>");
document.write("<%
tsql="select top "&tophotzt&" id,userid,topicinfo,bd,edittime,totable from topic where type<>3 order by hits desc"
set tophot=conn.execute(tsql)
i=0
do while not tophot.eof
i=i+1
topicinfo=tophot("topicinfo")
topicinfo=split(topicinfo,"|")
response.write"<tr height='24'><td align=center width=40>&nbsp;<img src="&bbsurl&"/face/"&topicinfo(0)&".gif align='absmiddle'></td>"
response.write"<td width=*>&nbsp;<a target=_blank href="&bbsurl&"/showbbs.asp?bd="&tophot("bd")&"&id="&tophot("id")&"&totable="&tophot("totable")&">"&lefttrue(kbbs(topicinfo(1)),30)&"</a></td>"
response.write"<td width=90>&nbsp;<a target=_blank href="&bbsurl&"/userinfo.asp?userid="&tophot("userid")&">"&topicinfo(2)&"</a></td>"
response.write"<td width=200>&nbsp;"&tophot("edittime")&"</td></tr>"
tophot.movenext
if i=tophotzt then exit do
loop
tophot.close
set tophot=nothing
%>");
document.write("</table>");