<br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="4" width=<%=dkuan%> border="0" class="a2" align="center"><tr class="a1"><td valign="center" align="middle" width="33%">..::最新发表主题::..</td><td valign="center" align="middle" width="33%">..::本周最强人气::.. </td><td valign="center" align="middle" width="33%">..::本周最多回复 </td></tr>
<tr class="a4"><td><%
sql="select top 6 id,icon,topic from forum where deltopic<>1 and forumid<>32 order by id Desc"
rs.Open sql,Conn,1
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write " <a href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close
%></td><td>
<%

sql="select top 6 id,icon,topic from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 and forumid<>32 order by Views Desc,id"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write " <a href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close
%></td><td>
<%

sql="select top 6 id,icon,topic from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by replies Desc,id"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write " <a href=ShowPost.asp?id="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close 
%>

</td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>