new.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 26 行

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