toplist.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="connmi.asp"-->
<%


call main()


sub main()
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from media Order By sendtime Desc"
rs.open sql,connm,3,3
if rs.eof and rs.bof then
response.write("<p align=center><br>")
response.write("无点歌列表！</p>")
else
%><link rel=stylesheet type=text/css href=style.css>
<table cellpadding=4 cellspacing=4 width=97% align=center bordercolor=#fffff border=0> 
<tr><td><marquee direction=up TrueSpeed scrollAmount=1 scrollDelay=80 height=80 onMouseOut=this.start(); onMouseOver=this.stop(); width=98% border="0">
<%do while not rs.eof%>
<font color=blue><%=rs("sender")%></font>在<%=rs("sendtime")%>为<font color=green><%=rs("incept")%></font>点了一首[<a href=dgbf.asp?url=<%=rs("url")%> target=_blank><%=rs("medianame")%></a>]<br>祝福道：<font color=red><%=rs("content")%></font><BR><BR>
<%
rs.movenext
loop
%>
</marquee></td></tr>
</table>
<%
end if
rs.close
set rs=nothing
connm.close
set connm=nothing
%>
<%end sub%>