<%@ LANGUAGE=VBScript codepage ="936" %>
<%
Response.Buffer=true
Response.Expires=0
%>
<head>
<title><%=Application("zhbg_chatroomname")%> - 自助点歌</title>
<link href="../../games/css.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #E2EDFE;
}
-->
</style>
</head>

<body oncontextmenu=self.event.returnValue=false>
<table width="396" align="center">
  <tr><td>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select top 6 * from music order by -dateandtime",conn
x=0
if rs.bof and rs.eof then
	response.write "<p align=center>暂时没有送歌信息</p>"
else
%>
<%do while not rs.eof%>
<img src="music.gif"> 
<bgsound src=chat/wav/xintie.wav loop=1>
<acronym title="点歌:<%=rs("name")%>&#13&#10送给:<%=rs("toname")%>&#13&#10祝福:<%=rs("zhufu")%>&#13&#10送出时间:<%=rs("dateandtime")%>"><font color=red><%=rs("name")%></font>为<font color=red><%=rs("toname")%></font>送出歌曲[<a href="#" title="点歌:<%=rs("name")%>&#13&#10送给:<%=rs("toname")%>&#13&#10祝福:<%=rs("zhufu")%>&#13&#10送出时间:<%=rs("dateandtime")%>" onClick="window.open('Play.asp?id=<%=rs("id")%>','url','resizable=no,width=300,height=200')"><font color="#ff9900"><%=rs("songname")%></font></a>]</acronym><br><br>
<%
x=x+1
if x=6 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<div align=right>[<a href="#" onClick="window.open('add.asp','add','width=300,height=200')"><font color="#FF9900">我要点歌</font></a>]
  [<a href="#" onClick="window.open('index.asp','more','width=500,height=300')"><font color="#FF9900">查看更多</font></a>]...</div>
</td></tr></table>