<!--#include file="../inc/jc_conn.asp"-->
<%
body="document.write(""<div align='center'>"");"&vbNewLine
body=body&"document.write(""<table border='0' width='395' cellpadding='0' style='border-collapse: collapse' height='120'>"");"&vbNewLine
body=body&"document.write(""<tr><td height='5' colspan='2'></td><tr>"");"&vbNewLine
set rs=conn.execute("SELECT * FROM Sendmusic order by id desc")
    if rs.eof and rs.bof then 
	response.write "暂无点歌"
        Response.End 
        else
for i=1 to 7
if not rs.eof then
body=body&"document.write(""<tr>"");"&vbNewLine
for j = 1 to 2
if not rs.eof then
body=body&"document.write(""<td width='197' height='20'>．<a target=blank href=/qqdg/qqshow.asp?id="&rs("id")&" title=\""『"&rs("fromuser")&"』点一首<"&rs("musicname")&">送给『"&rs("foruser")&"』\"">"&left(rs("fromuser"),4)&" 点<font color=red>"&left(rs("musicname"),5)&"</font>送 "&left(rs("foruser"),3)&"</td>"");"&vbNewLine
rs.movenext
         end if
          next
body=body&"document.write(""</tr>"");"&vbNewLine
rs.movenext
end if
next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
body=body&"document.write(""</table></div>"")"&vbNewLine
response.write body
%>