news.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->
<table cellspacing=0 cellpadding=1 width="100%" bgcolor=#ffffff border=0><tbody><tr><td>
<% Set rs = Server.CreateObject("ADODB.Recordset")       
sql="select * from affiche"       
rs.open sql,conn,3,3       
if rs.eof then       
response.Write("")       
else       
do while not rs.eof %>       
      <TABLE border=0 cellPadding=3 cellSpacing=0 width="100%">
        <TBODY>
        <TR> 
          <TD width="10"><IMG height=9 src="images/toppagedot1.gif" width=8></TD>
          <TD width="755"><a href="ShowNews.asp?id=<%=rs("id")%>" target="_blank"><%=rs("affichetop")%></a></TD>
        </TR>
        </TBODY>
      </TABLE>   
					 <%       
					rs.movenext       
					   loop       
					   end if       
					   %>
					   </td></tr></tbody></table>