论坛与新闻图片调用

   <table border=0 width='100%'>
<%
sql="select top 8 id,forum_id,topic from bbs_topic order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  topic=rs("topic")
  response.write vbcrlf&"    <tr><td height='"&dim_num(6)&"'><img src='skin/"&joekoe_cms.web_skin&"/small/h_forum.gif' border=0 align=absMiddle><a href='forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&id&"' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,13)&"</a></td></tr>"
  rs.movenext
loop
rs.close
%>
    </table>

<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<%
sql="select top 1 id,topic,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  topic=rs("topic")
  response.write "    <tr><td align=center>"&pic_fk(rs("pic"),2,"news_view.asp?id="&id)&"</td></tr>"
  response.write "    <tr><td align=center><a href='news_view.asp?id="&id&"' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,16)&"</a></td></tr>"
  rs.movenext
loop
rs.close
%>
    </table>