index_news.asp

情缘天空美化版 v3.68 强大的公告

<%sub index_news()
opennews
sql="SELECT top "&indexnews&" news_ahome, news_author, news_date, news_id, news_title FROM news ORDER BY news_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="554" border="0" height=22 align="center" cellpadding="0" cellspacing="0" >
<tr><td height=30><img src=images/001.jpg border=0 width=554></td></tr>
</table>
<table width="100%" border="0"  cellspacing="0"  cellpadding="0" align="center"  background=images/news_bg.jpg>
<tr>
<td colspan="2" valign="top" background="images/dotlineh.gif" height="1"></td>
</tr>
<tr>
<td colspan="2" align="right" class="chinese">
</td>
</tr>
<tr>
<td colspan="2" valign="top" background="images/dotlineh.gif" height="1"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="88%" ><script src=http://www.qytk.net/bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=9&sdate=&orders=4&info=6&action=1&reply=0&showpic=0>
</script></td>
</tr>
<tr>
<td colspan="2" valign="top" background="images/dotlineh.gif" height="1"></td>
</tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>
<tr>
<td colspan="2" height="25" class="chinese"> 正在更新之中........</td>
</tr>
<%end if%>
<%if not rs.eof or not rs.bof then%>
<tr>
<td colspan="2" align="right" class="chinese"><font color=#dddddd>创意无限&nbsp;真诚永远…</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="news.asp"><img src="images/bottom.gif" border="0" alt="More News"></a>
</td>
</tr>

<%end if%>
</table>
<%
rs.close
set rs=nothing
end sub%>