<%
tmp_record="id,topic,username,tim,re_counter,tcolor,forum_id"
tmp_table="bbs_topic"
sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where forum_id=74 or forum_id=112 or forum_id=75 order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
do while not rs.eof
tmp_url=cl_type&"_view.asp?id="&rs(0)
if cl_type="forum" then
tmp_url=cl_type&"_view.asp?forum_id="&rs(6)&"&view_id="&rs(0)
end if
if cl_type="article" or cl_type="news" or cl_type="forum" then
tmp_color="style=""color:"&rs(5)&";"""
end if
tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&"> "&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&":"&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人:"&rs(2)&"<br>"&tmp_count&":"&rs(4)&" 人次<br>整理时间:"&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
rs.movenext
loop
rs.close
%>