indexnew.asp

音乐类型的好网站

<%sub index_news()
'============================================================站点新闻
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
do while not rs.eof%>
&nbsp;<img src="img/none.gif" border="0"><img src="img/icon.gif" border="0">&nbsp;<a href="javascript:news('shownews.asp?news_id=<%=rs("news_id")%>')" title="发表时间：<%=rs("news_date")%>"><%=left(rs("news_title"),25)%></a><span style="font-size: 6pt">&nbsp;<%=rs("news_date")%></span></a><br>  
<%rs.movenext
loop
if rs.eof and rs.bof then%>
<font color="#666666">目前尚无任何新闻！</font>
<%end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
end sub%>