<!-- #include file="include/AMH_onlogin.asp" -->
<!-- #include file="AMH_music_config.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit="收藏管理"
Index_Url="MFav"
PageUrl = PageUrl&"ChannelIDs="&iChannelIDs&"&"
Call AMH_Master(1,2)
Call AMH_Header(1)
%>
<tr><td colspan=2 align=center>
<a href='?ChannelIDs=<%=iChannelIDs%>'>收藏列表</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='AMH_music_singer.asp?ChannelIDs=<%=iChannelIDs%>'>歌手管理</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='AMH_music_disk.asp?ChannelIDs=<%=iChannelIDs%>'>专辑管理</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='AMH_Music_Song.asp?ChannelIDs=<%=iChannelIDs%>'>歌曲管理</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='?ChannelIDs=<%=iChannelIDs%>&action=clear' onclick="javascript:return click_return('清空所有收藏',0);">清空所有收藏</a>
</td></tr>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='?ChannelIDs=<%=iChannelIDs%>action=favlist&types=sea' method=post>
  <tr>
  <td>搜索（收藏列表）关键字：</td>
  <td><input type=text name=keyword value='<%response.write keyword%>' size=15 maxlength=20></td>
  <td><input type=submit value='搜索'></td>
  </tr>
  </form>
  </table>
</td></tr>
<%
call AMH_table(1)
if action="handle" then call AsaiMHGo_Handle()
select case action
  case "clear"
    call AsaiMHGo_Clear()
  case else
    call fav_list_main()
end select
call AMH_ender(1)
'-----------------------------------收藏列表-------------------------------------------
sub fav_list_main()
  dim fav_type,obj_page
  response.write "<form name=sel_form action='"&PageUrl&"ID="&id&"&Action=handle' method=post>"&_
             vbcrlf&"<tr align=center>" & _
             vbcrlf&"<td class=td width='7%'>序号</td>" & _
             vbcrlf&"<td class=td width='43%'>收藏名称</td>" & _
             vbcrlf&"<td class=td width='12%'>所属歌手</td>" & _
             vbcrlf&"<td class=td  width='12%'>收藏用户</td>" & _
             vbcrlf&"<td class=td width='12%' align=center>收藏类型</td>" & _
             vbcrlf&"<td class=td width='7%'><input type=checkbox name=sel_all value='yes' onclick=""javascript:select_all(this.form);""></td>" & _
             vbcrlf&"</tr>"
  if types="sea" then
    sql_add=" where name like '%"& keyword &"%'"
  end if
     set obj_page=New Cls_pageCute
  obj_page.nummer=nummer
  obj_page.pageurl=pageurl
  obj_page.page_tit=tit_fir
  obj_page.page_unit="条"
  obj_page.v_id="id"
  call obj_page.p_init("id,name,singer,username,f_type",Data_Name,sql_add,"id desc")
  sql=obj_page.sql_count
  set rs=Cls.exec(sql,1)
  obj_page.rssum=rs(0)
  rs.close
  call obj_page.p_main("id,name,singer,username,f_type",Data_Name,sql_add,"id desc")
  for i=1 to obj_page.page_num	
  if rs("f_type")="song" then fav_type="歌曲"
	if rs("f_type")="disk" then fav_type="专辑"
      response.write "<tr>" & _
             vbcrlf&"<td align=center>"&i&"</td>" & _
             vbcrlf&"<td>"&rs("name")&"</td>" & _
             vbcrlf&"<td align=center>"&rs("singer")&"</td>" & _
             vbcrlf&"<td align=center>"&rs("username")&"</td>" & _
             vbcrlf&"<td align=center>"&fav_type&"</td>" & _
             vbcrlf&"<td align=center><input type=checkbox name=sel_id value='"&rs("id")&"' class=bg_tds></td>" & _
             vbcrlf&"</tr>"
      rs.movenext
    next
    rs.close
    set rs=nothing
    response.write "<tr class=tr1>" & _
              vbcrlf&"<tr class=tr1><td colspan=3>"&obj_page.page_var&"分页："&obj_page.page_cute&"</td>" & _             
              vbcrlf&"<td colspan=3 align=center>执行<select name=sel_type size=1><option value='删除'>删除</option></select><input type=submit value='操作' onclick=""return sel_click(this.form);""></td>" & _
             vbcrlf&"</tr>" & _
             vbcrlf&"</form>" & _
             vbcrlf&"</table></td></tr>" 
end sub

%>
