new.asp

1.页顶分类菜单——老版本中需要手工修改页面文件来管理分类

<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
<%
bbsurl="http://www.6kbbs.com/bbs"		'论坛地址绝对路径，末尾不能加上 /		
topicnum=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 topnew=myconn.execute("select zhuti,id,name,riqi,face,bd,totable from [bbstl] where type<>5 order by riqi desc")
if not topnew.eof then
i=0
do while not topnew.eof
i=i+1
response.write"<tr height='24'><td align=center width=40><img src="&bbsurl&"/face/"&topnew("face")&".gif align='absmiddle'></td>"
response.write"<td width=*>&nbsp;<a target=_blank href="&bbsurl&"/show.asp?bd="&topnew("bd")&"&id="&topnew("id")&"&totable="&topnew("totable")&" title='"&lefttrue(kbbs(topnew("zhuti")),80)&"'>"&lefttrue(kbbs(topnew("zhuti")),28)&"</a></td>"
response.write"<td width=90>&nbsp;[<a target=_blank href="&bbsurl&"/userinfo.asp?name="&topnew("name")&">"&topnew("name")&"</a>]</td>"
response.write"<td width=200>&nbsp;"&topnew("riqi")&"</td></tr>"
topnew.movenext
if i=topicnum then exit do
loop
end if
topnew.close
set topnew=nothing
%>");
document.write("</table>");