index_gb.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 33 行

<%sub index_gb()

sql="SELECT top "&indexnews&" * FROM gbook ORDER BY addtime DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<div align="center">
  <center>
    <table width="98%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E8E8E8" height="33" style="border-collapse: collapse" bordercolor="#111111">
      <%do while not rs.eof%>
      <tr> 
          <td height="5" bgcolor="#FFFFFF" class="chinese"> · <a href="gbook/index.asp" target="_blank"><%=rs("zt")%></a></td>
      </tr>
      <tr> 
        <td valign="top" background="images/dotlineh.gif" height="1" bgcolor="#FFFFFF"></td>
      </tr>
      <%rs.movenext
		loop
		if rs.eof and rs.bof then%>
      <tr> 
        <td height="12" align="left" class="chinese" bgcolor="#FFFFFF"> <font color="#666666">目前尚无任何留言！</font></td>
      </tr>
      <%end if%>
      <%if not rs.eof or not rs.bof then%>
      <%end if%>
    </table>
  </center>
</div>

<%
rs.close
set rs=nothing
end sub%>