<table width="290" height="22" border="0" align="center" cellspacing="0">
<tr>
<!--#include file="conn1.asp"-->
<% set rs5=server.CreateObject("adodb.recordset")
sql="select top 10 * from [forum] where goodtopic=1 and deltopic<>1 order by id desc "
rs5.open sql,conn,1,1
if rs5.eof and rs5.bof then
response.write"暂无精品贴!"
else
i=1
do while(not rs5.eof and i<11)
%>
<td width="15">&nbsp;</td>
<td width="200" height="22"><a href="bbs\showpost.asp?id=<%=rs5("id")%>" ><%=left(rs5("topic"),12)%>
<%if len(rs5("topic"))>12 then%>
...
<%end if%>
</a></td>
<td width="95"><%=rs5("lastname")%></td>
</tr>
<% i=i+1
rs5.movenext
loop
rs5.close
end if
%>
</table>