<%
sub music_disk_1()
dim Specialid,Nclass,name,Gongsi,Yuyan,pic,intro,gong,Times,li
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_disk_list.gif' border=0></td></tr>
</table>
<table border=0 width='100%' cellspacing=0 cellpadding=4 align=center>
<tr><td width='20%' height=5></td><td width='30%'></td><td width='20%'></td><td width='30%'></td></tr>
<%
  sql="select count(id) from mv_boxd where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if int(rssum)<1 then
    response.write "<br><p align='center'>Sorry, 暂 时 没 有 任 何 专 辑</p>" 
    end if
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_boxd where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  nid=rs("Specialid")
  if (li mod 2)=0 then response.write vbcrlf&"<tr align=center valign=top>"
%>
<td><%response.write pic_fk(rs("pic"),1,"music_disk_view.asp?albumid="&nid)%></td>
<td><table border=0 width='100%'>
<tr><td>名称：<b><a href='music_disk_view.asp?albumid=<%=rs("diskid")%>' alt='浏览专辑：<%=rs("diskName")%>'><%response.write joekoe_cms.code_html(rs("diskName"),1,8)%></a></b></td></tr>
<tr><td>歌手：<a href='music_singer_view.asp?Name=<%=rs("Singer")%>&id=<%=rs("SClassid")%>&artid=<%=rs("NClassid")%>' alt='查看歌手 <%=rs("Singer")%> 的信息'><%response.write joekoe_cms.code_html(rs("Singer"),1,8)%></a></td></tr>
<tr><td>地区：<%=rs("gong")%></td></tr>
<tr><td>语言：<%=rs("yuyan")%></td></tr>
<tr><td>发行：<font class=tims><%=rs("Times")%></font></td></tr>
</table></td>
<%
if (li mod 2)>0 then response.write vbcrlf&"</tr>"
    rs.movenext
    li=li+1
  next
  rs.close
  set rs=nothing
%>
<tr><td height=2 colspan=4></td></tr></table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>专辑收藏</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>张<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>张'>专辑</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %>
  </tr>
  </table>
  </td></tr></table>
<% 
end sub

sub music_fav()
dim musicname,singer,sclassid,nclassid
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_fav.gif' border=0></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name='form2' onsubmit='return mv_home()' target='mv_home' action='music_view_pass.asp'>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='33%' class=mtd>歌曲名称</td>
<td width='18%' class=mtd>歌手</td>
<td width='7%' class=mtd>歌词</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>点歌</td>
<td width='7%' class=mtd>下载</td>
<td width='7%' class=mtd>收藏</td>
<td width='7%' class=mtd>选择</td>
</tr>
<% 
  sql="select count(id) from mv_box where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_box where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  id=rs("Musicid")
  musicname=rs("musicName")
  singer=rs("singer")
  sclassid=rs("SClassid")
  nclassid=rs("NClassid")
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td align=left><a href=javascript:play('<%response.write id%>')><%response.write joekoe_cms.code_html(musicName,1,20)%></a></td>
<td><a href='music_list_view.asp?Name=<%=rs("singer")%>' alt='查看歌手 <%=rs("singer")%> 的所有音乐'><%response.write joekoe_cms.code_html(rs("singer"),1,8)%></a></td>
<td><a href='javascript:' onclick="javascript:window.open('musicword.asp?action=show&id=<%=rs("id")%>&musicname=<%=rs("musicname")%>&singer=<%=rs("singer")%>','mvhome','scrollbars=yes,resizable=on,width=384,height=418');return false;"><img src='images/music/n_toupiao.gif' alt='只有会员才能够浏览 <%=rs("musicName")%> 歌词' border=0></a></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('music_song.asp?id=<%response.write id%>','mv_home',518,318,'no');><img src='images/music/song.gif' border=0 alt='只有会员才能够网站点歌 <%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('mv_down.asp?id=<%=rs("id")%>',99,318,160,'no');><img src='images/music/small_down.gif' border=0 alt='只有会员才能够下载歌曲 <%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('music_fav.asp?action=add&id=<%response.write id%>',99,300,98,'no');><img src='images/music/small_fav.gif' border=0 alt='只有会员才能够收藏歌曲 <%=rs("musicName")%>'></a></td>
<td><input type='checkbox' name='checked' value='<%response.write id%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr><td colspan=9 class=mbg_tds height=30 align=center>
<input type='button' name='chkall' value='全部选择' onclick='CheckAll(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type='button' name='chkothers' value='反向选择' onclick='CheckOthers(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type='submit' name='B1' value='播放所选'>
</td></tr>
</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>

<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>音乐收藏</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>首<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>首'>音乐</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %>
  </tr>
  </table>
  </td></tr></table>
<% 
end sub

sub music_song()
dim musicname
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_music_fav.gif' border=0 alt='秋月家园点歌'></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name='form2' onsubmit='return mv_home()' target='mv_home' action='music_view_pass.asp'>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='27%' class=mtd>歌曲名称</td>
<td width='12%' class=mtd>收听对象</td>
<td width='16%' class=mtd>点播时间</td>
<td width='24%' class=mtd>祝福内容</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>选择</td>
</tr>
<% 
  sql="select count(id) from mv_disk where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_disk where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  id=rs("Musicid")
  musicname=rs("musicName")
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td align=left><a href=javascript:play('<%=rs("Musicid")%>')><%response.write joekoe_cms.code_html(rs("MusicName"),1,20)%></a></td>
<td><a href='user_view.asp?username=<%=rs("Name")%>') target=_blank><%=rs("Name")%></a></td>
<td><%=rs("data")%></td>
<td align=left><%response.write code_jk2(rs("content"))%></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><input type='checkbox' name='checked' value='<%response.write id%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr><td colspan=9 class=mbg_tds height=30 align=center>
<input type='button' name='chkall' value='全部选择' onclick='CheckAll(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type='button' name='chkothers' value='反向选择' onclick='CheckOthers(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type='submit' name='B1' value='播放所选'>
</td></tr>
</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>

<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>音乐点歌</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>首<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>首'>音乐</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %>
  </tr>
  </table>
  </td></tr></table>
<% 
end sub

sub music_disk_main()
%>
<!-------------------音乐家园收藏专集------------------->
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_disk_new.gif' border=0></td></tr>
</table>
<table border=0 width='98%' cellspacing=0 cellpadding=4 align=center>
<tr><td width='20%' height=5></td><td width='30%'></td><td width='20%'></td><td width='30%'></td></tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
sql="SELECT * FROM mv_boxd where UserName='"&login_username&"'"
rs.Open sql,conn,1,1
do while not rs.eof
nid=rs("Specialid")
if (i mod 2)=0 then response.write vbcrlf&"<tr align=center valign=top>"
%>
<td><%response.write pic_fk(rs("pic"),1,"music_disk_view.asp?albumid="&nid)%></td>
<td><table border=0 width='100%'>
<tr><td>名称：<b><a href='music_disk_view.asp?albumid=<%=rs("diskid")%>' alt='浏览专辑：<%=rs("diskName")%>' target=_blank><%response.write joekoe_cms.code_html(rs("diskName"),1,8)%></a></b></td></tr>
<tr><td>歌手：<a href='music_singer_view.asp?Name=<%=rs("Singer")%>&id=<%=rs("SClassid")%>&artid=<%=rs("NClassid")%>' alt='查看歌手 <%=rs("Singer")%> 的所有专辑'><%response.write joekoe_cms.code_html(rs("Singer"),1,8)%></a></td></tr>
<tr><td>地区：<%=rs("gong")%></td></tr>
<tr><td>语言：<%=rs("yuyan")%></td></tr>
<tr><td>发行：<font class=tims><%=rs("times")%></font></td></tr>
</table></td>
<%
if (i mod 2)>0 then response.write vbcrlf&"</tr>"
i=i+1
if i>=4 then exit do
rs.movenext
loop
%>
<tr><td height=2></td></tr>
</table>
<!-------------------音乐家园收藏歌曲------------------->
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_music_good.gif' border=0></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name='form2' onsubmit=javascript:return mv_home(); target='mv_home' action='music_view_pass.asp'>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='33%' class=mtd>歌曲名称</td>
<td width='18%' class=mtd>歌手</td>
<td width='7%' class=mtd>歌词</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>点歌</td>
<td width='7%' class=mtd>下载</td>
<td width='7%' class=mtd>收藏</td>
<td width='7%' class=mtd>选择</td>
<%
i=0
MaxList=5
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM mv_box where UserName='"&login_username&"'"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%=i%></td>
<td align=left><a href=javascript:play('<%=rs("musicid")%>')><%response.write joekoe_cms.code_html(rs("musicName"),1,15)%></a></td>
<td><a href='music_list_view.asp?Name=<%=rs("singer")%>' alt='查看歌手 <%=rs("singer")%> 的所有音乐'><%response.write joekoe_cms.code_html(rs("singer"),1,8)%></a></td>
<td><a href='javascript:' onclick="javascript:window.open('musicword.asp?action=show&id=<%=rs("id")%>&musicname=<%=rs("musicname")%>&singer=<%=rs("singer")%>','mvhome','scrollbars=yes,resizable=on,width=384,height=418');return false;"><img src='images/music/n_toupiao.gif' alt='浏览歌词' border=0></a></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><a href='javascript:' onClick="javascript:window.open('music_song.asp?id=<%=rs("id")%>','mvhome','scrollbars=on,resizable=on,width=518,height=318');return false;" ><img src='images/music/song.gif' border=0 alt='只有会员才能够点播歌曲　<%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('mv_down.asp?id=<%=rs("id")%>',99,318,160,'no');><img src='images/music/small_down.gif' border=0 alt='只有会员才能够下载歌曲 <%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('music_fav.asp?action=add&id=<%=rs("id")%>',99,300,98,'no');><img  border=0 src='images/music/small_fav.gif'></a></td>
<td><input type='checkbox' name='checked' value='<%=rs("musicid")%>'></td>
</tr>

<%
if i>=MaxList then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>

<tr><td colspan=9 class=mbg_tds height=30 align=center>
<input type='button' name='chkall' value='全部选择' onclick='CheckAll(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
<input type='button' name='chkothers' value='反向选择' onclick='CheckOthers(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
<input type='submit' name='B1' value='播放所选'>
</td></tr>

</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>
<!-------------------音乐家园点播歌曲------------------->
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_music_fav.gif' border=0 alt='中国原创音乐网点播歌曲'></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name=singer_listtype_frm action='music_view_pass.asp' method=get target='music_play_win'>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='27%' class=mtd>歌曲名称</td>
<td width='12%' class=mtd>收听对象</td>
<td width='16%' class=mtd>点播时间</td>
<td width='24%' class=mtd>祝福内容</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>选择</td>
</tr>
<%
i=0
MaxList=5
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM mv_disk where UserName='"&login_username&"'"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%=i%></td>
<td align=left><a href=javascript:play('<%=rs("Musicid")%>')><%response.write joekoe_cms.code_html(rs("MusicName"),1,20)%></a></td>
<td><a href='user_view.asp?username=<%=rs("Name")%>') target=_blank><%=rs("Name")%></a></td>
<td><%=rs("data")%></td>
<td align=left><%response.write code_jk2(rs("content"))%></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><input type='checkbox' name='checked' value='<%=rs("musicid")%>'></td>
</tr>
<%
if i>=MaxList then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr><td colspan=9 class=mbg_tds height=30 align=center>
<input type='button' name='chkall' value='全部选择' onclick='CheckAll(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
<input type='button' name='chkothers' value='反向选择' onclick='CheckOthers(this.form)'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
<input type='submit' name='B1' value='播放所选'>
</td></tr>

</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>
<%
end sub

sub music_song_1()
dim musicname
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_music_fav.gif' border=0 alt='秋月家园点歌管理'></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name=singer_listtype_frm action='?action=songdle' method=post>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='27%' class=mtd>歌曲名称</td>
<td width='12%' class=mtd>收听对象</td>
<td width='16%' class=mtd>点播时间</td>
<td width='24%' class=mtd>祝福内容</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>选择</td>
</tr>
<% 
  sql="select count(id) from mv_disk where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_disk where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  id=rs("Musicid")
  musicname=rs("musicName")
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td align=left><a href=javascript:play('<%=rs("Musicid")%>')><%response.write joekoe_cms.code_html(rs("MusicName"),1,20)%></a></td>
<td><a href='user_view.asp?username=<%=rs("Name")%>') target=_blank><%=rs("Name")%></a></td>
<td><%=rs("data")%></td>
<td align=left><%response.write code_jk2(rs("content"))%></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><input type=checkbox name=id value='<%=rs("id")%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr><td colspan=9 class=bg_1 height=30 align=center>
<input type=button name=b1 value='全部选择' onClick="javascript:music_check_all(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b2 value='反向选择' onClick="javascript:music_check_other(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b3 value='删除所选' onClick="javascript:music_check_play(this.form,'no');">
</td></tr>
</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>

<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>音乐点歌[管理]</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>首<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>首'>音乐</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %></td>
 </tr>
 </table>
 </td></tr></table>
<% 
end sub

sub music_go_handle()
  dim sel_id,hdim,hnum,hid,i,htype,hintegral,sel_type,del_upload_true
  id=trim(request.form("id"))
  id=replace(id,"","")
  hdim=split(id,",")
  hnum=ubound(hdim)
  for i=0 to hnum
  hid=hdim(i)
  if del_upload_true then call upload_del(index_url,hid)
     call joekoe_cms.exec("delete from mv_disk where UserName='"&login_username&"' and id="&hid,0)
next
erase hdim
  action=""
  response.write vbcrlf&"<script language=javascript>alert(""已成功（删除）操作了"&(hnum+1)&"条记录！"");</script>"
  Response.Redirect "?action=m_song"
end sub

sub music_favdle()
  dim sel_id,hdim,hnum,hid,i,htype,hintegral,sel_type,del_upload_true
  id=trim(request.form("id"))
  id=replace(id,"","")
  hdim=split(id,",")
  hnum=ubound(hdim)
  for i=0 to hnum
  hid=hdim(i)
  if del_upload_true then call upload_del(index_url,hid)
     call joekoe_cms.exec("delete from mv_box where UserName='"&login_username&"' and id="&hid,0)
next
erase hdim
  action=""
  response.write vbcrlf&"<script language=javascript>alert(""已成功（删除）操作了"&(hnum+1)&"条记录！"");</script>"
  Response.Redirect "?action=m_fav"
end sub

sub music_diskdle()
  dim sel_id,hdim,hnum,hid,i,htype,hintegral,sel_type,del_upload_true
  id=trim(request.form("id"))
  id=replace(id,"","")
  hdim=split(id,",")
  hnum=ubound(hdim)
  for i=0 to hnum
  hid=hdim(i)
  if del_upload_true then call upload_del(index_url,hid)
     call joekoe_cms.exec("delete from mv_boxd where UserName='"&login_username&"' and id="&hid,0)
next
erase hdim
  action=""
  response.write vbcrlf&"<script language=javascript>alert(""已成功（删除）操作了"&(hnum+1)&"条记录！"");</script>"
   Response.Redirect "?action=m_disk"
end sub

sub music_fav_1()
dim musicname,singer,sclassid,nclassid
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_fav.gif' border=0></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name=singer_listtype_frm action='?action=favdle' method=post>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='33%' class=mtd>歌曲名称</td>
<td width='18%' class=mtd>歌手</td>
<td width='7%' class=mtd>歌词</td>
<td width='7%' class=mtd>和弦</td>
<td width='7%' class=mtd>点歌</td>
<td width='7%' class=mtd>下载</td>
<td width='7%' class=mtd>收藏</td>
<td width='7%' class=mtd>选择</td>
</tr>
<% 
  sql="select count(id) from mv_box where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_box where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  id=rs("Musicid")
  musicname=rs("musicName")
  singer=rs("singer")
  sclassid=rs("SClassid")
  nclassid=rs("NClassid")
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td align=left><a href=javascript:play('<%response.write id%>')><%response.write joekoe_cms.code_html(musicName,1,20)%></a></td>
<td><a href='music_list_view.asp?Name=<%=rs("singer")%>' alt='查看歌手 <%=rs("singer")%> 的所有音乐'><%response.write joekoe_cms.code_html(rs("singer"),1,8)%></a></td>
<td><a href='javascript:' onclick="javascript:window.open('musicword.asp?action=show&id=<%=rs("id")%>&musicname=<%=rs("musicname")%>&singer=<%=rs("singer")%>','mvhome','scrollbars=yes,resizable=on,width=384,height=418');return false;"><img src='images/music/n_toupiao.gif' alt='只有会员才能够浏览 <%=rs("musicName")%> 歌词' border=0></a></td>
<td><a href='javascript:' onclick="javascript:window.open('http://www.caishow.com/ring_body.asp?f=2250&search=<%=rs("musicName")%>','mvhome','scrollbars=yes,resizable=yes,width=300,height=300');return false;" ><img alt='<%=rs("musicName")%>' src='images/music/Send.gif' border=0></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('music_song.asp?id=<%response.write id%>','mv_home',518,318,'no');><img src='images/music/song.gif' border=0 alt='只有会员才能够网站点歌 <%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('mv_down.asp?id=<%response.write id%>',99,318,160,'no');><img src='images/music/small_down.gif' border=0 alt='只有会员才能够下载歌曲 <%=rs("musicName")%>'></a></td>
<td><a href='javascript:;' onClick=javascript:open_win('music_fav.asp?action=add&id=<%response.write id%>',99,300,98,'no');><img src='images/music/small_fav.gif' border=0 alt='只有会员才能够收藏歌曲 <%=rs("musicName")%>'></a></td>
<td><input type='checkbox' name=id value='<%=rs("id")%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr><td colspan=9 class=bg_1 height=30 align=center>
<input type=button name=b1 value='全部选择' onClick="javascript:music_check_all(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b2 value='反向选择' onClick="javascript:music_check_other(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b3 value='删除所选' onClick="javascript:music_check_play(this.form,'no');">
</td></tr>
</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>

<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>音乐收藏[管理]</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>首<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>首'>音乐</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %>
  </tr>
  </table>
  </td></tr></table>
<% 
end sub

sub music_disk_2()
%>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_disk_fav.gif' border=0 alt='秋月家园收藏专辑管理'></td></tr>
</table>
<table cellspacing=1 cellpadding=1 class=mtable>
<form name=singer_listtype_frm action='?action=diskdle' method=post>
<tr align=center height=20>
<td width='7%' class=mtd>序号</td>
<td width='48%' class=mtd>专辑名称</td>
<td width='18%' class=mtd>歌手</td>
<td width='18%' class=mtd>收藏时间</td>
<td width='7%' class=mtd>选择</td>
</tr>
<% 
  sql="select count(id) from mv_boxd where UserName='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from mv_boxd where UserName='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
  id=rs("diskid")
%>
<tr align=center height=22 class=mbg_td>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td align=left><a href='music_disk_view.asp?albumid=<%=rs("diskid")%>' alt='浏览专辑：<%=rs("diskName")%>'><%response.write joekoe_cms.code_html(rs("diskName"),1,8)%></a></td>
<td><a href='music_singer_view.asp?Name=<%=rs("Singer")%>&id=<%=rs("SClassid")%>&artid=<%=rs("NClassid")%>' alt='查看歌手 <%=rs("Singer")%> 的信息'><%response.write joekoe_cms.code_html(rs("Singer"),1,8)%></a></td>
<td><%=rs("Times")%></td>
<td><input type=checkbox name=id value='<%=rs("id")%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr><td colspan=9 class=bg_1 height=30 align=center>
<input type=button name=b1 value='全部选择' onClick="javascript:music_check_all(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b2 value='反向选择' onClick="javascript:music_check_other(this.form);">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=button name=b3 value='删除所选' onClick="javascript:music_check_play(this.form,'no');">
</td></tr>
</form>
</table>
<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td><img src='images/music/center_song_end.gif' border=0></td></tr>
</table>

<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>
<tr><td height=30>
  <table border=0>
  <tr>
  <td><img src='images/music/wma.gif' align=absMiddle border=0>&nbsp;<font class=blue><b>收藏专辑[管理]</b></font></td>
  <td>共有<font class=red><%response.write rssum%></font>首<font alt=' 每页<font color="#ff0000"><%response.write nummer%></font>/<font color="#ff0000"><%response.write rssum%></font>首'>音乐</font> 页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>
  <td width=3></td>
  <td>分页：</td>
  <td><% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %></td>
 </tr>
 </table>
 </td></tr></table>
<% 
end sub
%>