调用最新留言

<%
sql="select top 10 id,topic from gb_data 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)&"'><a href='gbook.asp?id="&id&"' target=_blank >"&joekoe_cms.code_html(topic,1,15)&"</a></td></tr>"
rs.movenext
loop
rs.close
%>


<table border=0 width='100%' class=bg_td>
<%
sql="select top 10 id,topic,tim from gb_data 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)&"' style='border-bottom:1px dotted #e0e0e0'><img src='skin/"&joekoe_cms.web_skin&"/small/h_vouch.gif' border=0 align=absMiddle> <a href='gbook.asp' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,18)&"</a></td><td class=tims style='border-bottom:1px dotted #e0e0e0' align=right>"&joekoe_cms.time_type(rs("tim"),3)&"</td></tr>"
rs.movenext
loop
rs.close
%>
</table>


<table width=100% border=0 cellpadding=0 cellspacing=0>
<tr><td class=td1> <script language=javascript>document.write(img_skin('m_index'));</script>最新留言</td></tr>
<tr><td align=center>
<table border=0 cellspacing=0 cellpadding=0 width='98%'>
<%
sql="select top 7 topic,re_word,nname,hidden,tim,icon from gb_data order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
topic=rs("topic")
'if rs("re_word")<>"" or rs("hidden")=1 then
response.write vbcrlf&" <tr><td height="&dim_num(6)&" class=under_dotline><img src='images/icon/"&rs("icon")&".gif' border=0 align=absMiddle> <a href='gbook.asp' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&rs("nname")&"： "&joekoe_cms.code_html(topic,1,30)&"</a></td><td class=under_dotline align=right>"&joekoe_cms.time_type(rs("tim"),1)&"</td></tr>"
'end if
rs.movenext
loop
rs.close
%>
</table>
</td></tr>
</table>


<tr><td height=25 align=center>
  <table border=0 cellspacing=0 cellpadding=0 width='100%' class=bg_td>
    <tr><td align=left background='skin/<%response.write joekoe_cms.web_skin%>/bg_td.gif' height=26 border=0><b><font color="#FFFFFF"> <img src="skin/skin_1/small/m_forum.gif" width="11"  height="11"> 网站公告</font></b></td></tr>
    <tr><td align=center>
   <%
sql="select top 9 id,topic,tim from gb_data 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)&"' style='border-bottom:1px dotted #e0e0e0'><img src='skin/"&joekoe_cms.web_skin&"/small/h_vouch.gif' border=0 align=absMiddle> <a href='gbook.asp' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,18)&"</a></td><td class=tims style='border-bottom:1px dotted #e0e0e0' align=right>"&joekoe_cms.time_type(rs("tim"),3)&"</td></tr>"
rs.movenext
loop
rs.close
%>
</td></tr>
    </table>
  </td></tr>
  <tr><td height=8 align=center>
  </td></tr>

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: