<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->

<!--#include file="conn.asp"-->

<%
'---------------------
' write by 绿水青山 for 动网6.0
' 本插件经由 gafc 修改适应leadbbs3.14
'---------------------
DEF_BBS_HomeUrl = "../../"
siteHead("   查看歌曲收听情况")
%>
<html>
<head>
<title>查看歌曲收听情况</title>

<body topmargin=2 leftmargin=0 >

<table width=98% align=center border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
  <tr class=tbhead2>
    <td height=25 align=center><font class=headfont><b>查看该歌曲收听人员情况</b></font></td></tr>
</table>

<table width=98% align=center border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr class=tbbg1>
 <td>
<%
dim rs,sql,acceptuser,i,m
    set rs=server.createobject("adodb.recordset")
    sql="select acceptuser from media where id="&request("id")
    rs.open sql,connDG,3,3	
    acceptuser=split(rs(0),"|")
    m=0
    for i=1 to ubound(acceptuser)
       
        response.write "<a href="&DEF_BBS_HomeUrl&"user/lookuserinfo.asp?name="&acceptuser(i)&" target=parent>"&acceptuser(i)&"</a>&nbsp"
        m=m+1
        if m mod 5 = 0 then response.write "<br>"

        
    next
   
    rs.close
    set rs=nothing

call CloseDB()
%>
</td>
</tr>
</table>
</body>
</html>