<!-- #include file="../../include/jk_nsort.asp" -->
<!-- #include file="../../style/data_sort_msing.asp" -->
<%
function music_tools()
 dim temp1 
  temp1=temp1&vbcrlf&"<table border=0 width=177 cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td><img src='../images/music/left_tool.gif' border=0></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"<tr><td>" & _
             vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"<tr><td align=center><a href='../down/list.asp?action=search&sea_type=name&keyword=media%20player' target=_blank><img src='../images/music/tool_wmp.gif' border=0></a></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"<tr><td align=center><a href='../down/list.asp?action=search&sea_type=name&keyword=real%20play' target=_blank><img src='../images/music/tool_real.gif' border=0></a></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"</table>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"</table>"
  music_tools=temp1
end function

function music_fav_csy()
 dim temp1 
  temp1=temp1&vbcrlf&"<table border=0 width=177 cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td><img src='../images/music/left_fav.gif' border=0></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr><tr><td>" & _
             vbcrlf&"<table border=0 width='80%' align=center>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='fav.asp?'>我的收藏夹</a>&nbsp;<font class=gray>首页</font></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='fav.asp?action=song'>我收藏的音乐</a>&nbsp;<a href='fav.asp?action=mana&types=song' title='管理我收藏的音乐' class=gray>管理</a></td></tr>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='fav.asp?action=disk'>我收藏的专辑</a>&nbsp;<a href='fav.asp?action=mana&types=disk' title='管理我收藏的专辑' class=gray>管理</a></td></tr>" & _
             vbcrlf&"</table></td></tr><tr><td height=3></td></tr></table>"
  music_fav_csy=temp1
end function

function music_mail_csy()
 dim temp1 
  temp1=temp1&vbcrlf&"<table border=0 width=177 cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td><img src='../images/music/left_mail.gif' border=0></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr><tr><td>" & _
             vbcrlf&"<table border=0 width='80%' align=center>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='mail.asp'>我的点歌机</a>&nbsp;<font class=gray>首页</font></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='mail.asp?action=send_in'>我收到的歌曲</a></td></tr>" & _
             vbcrlf&"<tr><td>&nbsp;<img src='../images/music/s_fav_left.gif' align=absMiddle border=0>&nbsp;<a href='mail.asp?action=send_out'>我送出的歌曲</a></td></tr>" & _
             vbcrlf&"</table></td></tr><tr><td height=3></td></tr></table>"
  music_mail_csy=temp1
end function

function music_search()
 dim temp1
  temp1=temp1&vbcrlf&"<table border=0>" & _
              vbcrlf&"<form name=music_sea_frm action='search.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
              vbcrlf&"<input type=hidden name=action value='search'>" & _
              vbcrlf&"<tr height=30>" & _
              vbcrlf&"<td>"&img_skin("new")&"</td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td>"&select_type("歌手",0,0)&"</td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_type sizs=1><option value='singer'>歌手</option><option value='song'>歌曲</option><option value='disk'>专辑</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_term sizs=1><option value='only'>满足一个条件</option><option value='all'>满足所有条件</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><input type=text name=keyword value='' size=20 maxlength=20 title='多个关键字请用 空格 格开' class=bg_search></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"  <td><input type=submit class=btn value='搜索' onclick=""javascript:return music_sea();""></td>" & _
              vbcrlf&"</tr></form></table>" & _
              vbcrlf&"<script language=javascript>" & _
              vbcrlf&"function music_sea()" & _
              vbcrlf&"{" & _
              vbcrlf&"  if (document.article_sea_frm.keyword.value==""请输入关键字"")" & _
              vbcrlf&"  {" & _
              vbcrlf&"    alert('请在搜索音乐前先输入要查询的 关键字 ！');" & _
              vbcrlf&"    document.music_sea_frm.keyword.focus();" & _
              vbcrlf&"    return false;" & _
              vbcrlf&"  }" & _
              vbcrlf&"}" & _
              vbcrlf&"</script>"
  music_search=temp1
end function

function music_head_top()
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 class=mtb cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td height=53 background='../images/music/center_top_bg.gif' align=center>" & _
             vbcrlf&"<table border=0 cellspacing=0 cellpadding=0>" & _
             vbcrlf&"<tr><td align=left>" & _
             vbcrlf&"<table border=0><tr>" & _
             vbcrlf&"<td><a href='song_list.asp'>歌曲列表</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='disk_list.asp'>专辑列表</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='singer_list.asp'>歌手列表</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='song_list.asp?action=good'>歌曲推荐</td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='disk_list.asp?action=good'>专辑推荐</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='singer_list.asp?action=good'>歌手推荐</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='buy.asp'>音乐冲值</a></td>" & _
             vbcrlf&"<td width=10></td>" & _
             vbcrlf&"<td><a href='fav.asp'>我的收藏夹</a></td>" & _
             vbcrlf&"</tr></table>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"<tr><td align=left>" & _
             vbcrlf&"<table border=0><tr>"
  music_head_top=temp1
end function

function music_head_end()
  dim temp1
  temp1=temp1&vbcrlf&"<td><a href='mail.asp'>我的点歌机</a></td>" & _
			 vbcrlf&"</tr></table>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"</table>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"</table>"
  music_head_end=temp1
end function

function music_bar_top(iname,ttype)
  dim tablet,tabled,tablel,temp1
  select case ttype
    case 1
    tablet="class=mtb"
	tabled=" "
	tablel="cellspacing=0 cellpadding=0"
    case 0
    tablet="width=177"
	tabled="<tr><td height=5></td></tr>"
	tablel="cellspacing=1 cellpadding=2"
  end select
  temp1=temp1&vbcrlf&"<table border=0 "&tablet&" cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td><img src='../images/music/"&iname&".gif' border=0></td></tr>" & _
             vbcrlf&""&tabled&"" & _
             vbcrlf&"<tr><td>" & _
             vbcrlf&"<table border=0 width='100%' "&tablel&">"
  music_bar_top=temp1
end function

function music_bar_end()
  dim temp1
  temp1=temp1&vbcrlf&"</table>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"<tr><td height=3></td></tr>" & _
             vbcrlf&"</table>"
  music_bar_end=temp1
end function

function music_list_top(iname,ttype,b_type)
  dim tablet,temp1
  select case ttype
    case 1
    tablet="class=mtb"
    case 0
    tablet="width=177"
  end select
  temp1=temp1&vbcrlf&"<table border=0 "&tablet&" cellspacing=0 cellpadding=0 align=center>" & _
             vbcrlf&"<tr><td><img src='../images/music/"&iname&".gif' border=0></td></tr>" & _
             vbcrlf&"<tr><td><table border=0 width='100%' cellspacing=1 cellpadding=1 class=mtable>" & _
             vbcrlf&"<form name=music_play action='pass.asp' target='play_win' onsubmit='return music_play_win()'>" & _
             vbcrlf&"<tr height=22 align=center>" & _
             vbcrlf&"<td width='7%' class=mtd>序号</td>" & _
             vbcrlf&"<td width='32%' class=mtd>歌曲名称</td>" & _
             vbcrlf&"<td width='12%' class=mtd>歌手</td>" & _
             vbcrlf&"<td width='7%' class=mtd>试听</td>" & _
             vbcrlf&"<td width='7%' class=mtd>下载</td>" & _
             vbcrlf&"<td width='7%' class=mtd>铃声</td>" & _
             vbcrlf&"<td width='7%' class=mtd>歌词</td>"
   if (b_type<>"msg") then temp1=temp1&"<td width='7%' class=mtd>点歌</td>"
   if (b_type<>"fav") then temp1=temp1&"<td width='7%' class=mtd>收藏</td>"
   temp1=temp1&"<td width='7%' class=mtd>选择</td></tr>"
  music_list_top=temp1
end function

function music_list_end()
dim temp1
  temp1=temp1&vbcrlf&"<tr class=mbg_tds height=30 align=center><td colspan=10>" & _
             vbcrlf&"<input type=button class=btn name=chkall value=全部选择 onclick='javascript:music_check_all(this.form);' title=选择显示的所有歌曲>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
             vbcrlf&"<input type=button class=btn name=chkOthers value=反向选择 onclick='javascript:music_check_other(this.form);' title=反向选择歌曲>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
             vbcrlf&"<input type=submit class=btn value=播放所选 title=请先选择你想听的歌曲后再点击连播>" & _
             vbcrlf&"</td></tr>" & _
             vbcrlf&"</form>" & _
             vbcrlf&"</table></td></tr>" & _
             vbcrlf&"<tr><td><img src='../images/music/center_song_end.gif' border=0></td></tr>" & _
             vbcrlf&"<tr><td height=5></td></tr>" & _
             vbcrlf&"</table>"
  music_list_end=temp1
end function

function music_list(i,b_id,b_cid,b_sid,b_nid,b_top,b_sin,b_type)
  dim temp1
  temp1=temp1&vbcrlf&"<tr class=mbg_td align=center>" & _
             vbcrlf&"<td class=tims>"&i&"</td>" & _
             vbcrlf&"<td align=left>&nbsp;<img src='../images/music/small_mp3_s.gif' border=0 align=absMiddle>&nbsp;<a alt='"&joekoe_cms.code_html(b_top,1,0)&"'>"&joekoe_cms.code_html(b_top,1,22)&"</a></td>" & _
             vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_view('singer_view.asp?c_id="&b_cid&"&s_id="&b_sid&"&n_id="&b_nid&"',1);"">"&joekoe_cms.code_html(b_sin,1,0)&"</a></td>" & _
             vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_win('pass.asp?id="&b_id&"','play_win',310,253,'no');""><img src='../images/music/play.gif' border=0 alt='试听'></a></td>" & _
             vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_win('down.asp?id="&b_id&"','down_win',570,225,'no');""><img src='../images/music/download.gif' border=0 alt='下载'></a></td>" & _
             vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_view('http://cl.sina.com.cn/newindex_search.php?searchtype=1&keyword="&b_top&"',1);""><img src='../images/music/Send.gif' border=0 width=16 height=16 alt='铃声'></a></td>" & _
             vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_view('http://mp3search.baidu.com/wstsearch?tn=baidump3lyric&ct=150994944&rn=10&word="&b_top&"');""><img src='../images/music/book.gif' border=0 alt='歌词'></a></td>"
  if (b_type<>"msg") then temp1=temp1&"<td><a href='javascript:;' onclick=""javascript:open_win('send.asp?id="&b_id&"','send_win',570,343,'no');""><img src='../images/music/smusic.gif' border=0 alt='点歌'></a></td>"
  if (b_type<>"fav") then temp1=temp1&"<td><a href='javascript:;' onclick=""javascript:open_view('fav.asp?action=add&types=song&id="&b_id&"',1);""><img src='../images/music/favadd.gif' border=0 alt='收藏'></a></td>"
       temp1=temp1&"<td><input type='checkbox' name='id' value='"&b_id&"'></td>" & _
             vbcrlf&"</tr>"
  music_list=temp1
end function

function music_disk_list(b_pic,b_id,b_cid,b_sid,b_nid,b_top,b_sin,b_can,b_lan,b_tim)
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0>" & _
             vbcrlf&"<tr>" & _
             vbcrlf&"<td width='35%' align=center>"&pic_fk(b_pic,1,"disk_view.asp?id="&b_id)&"</td>" & _
             vbcrlf&"<td width='65%'><table border=0>" & _
             vbcrlf&"<tr><td>名称：<a href='javascript:;' onclick=""javascript:open_view('disk_view.asp?id="&b_id&"',1);"" alt='"&joekoe_cms.code_html(b_top,1,0)&"'>"&joekoe_cms.code_html(b_top,1,8)&"</a></td></tr>" & _
             vbcrlf&"<tr><td>歌手：<a href='javascript:;' onclick=""javascript:open_view('singer_view.asp?c_id="&b_cid&"&s_id="&b_sid&"&n_id="&b_nid&"',1);"">"&joekoe_cms.code_html(b_sin,1,0)&"</a></td></tr>" & _
             vbcrlf&"<tr><td>公司："&b_can&"</td></tr>" & _
             vbcrlf&"<tr><td>语言："&b_lan&"</td></tr>" & _
             vbcrlf&"<tr><td>发行：<font class=tims>"&b_tim&"</font></td></tr>" & _
             vbcrlf&"</table></td>" & _
             vbcrlf&"</tr>" & _
             vbcrlf&"</table>"
  music_disk_list=temp1
end function

sub music_error(errs)
  if errs="" then
    response.write joekoe_cms.js_put("alert(""错误的ID参数：\n\n您勿向本站提交非法信息！"");window.close();",1)
  else
    response.write joekoe_cms.js_put("alert("""&errs&""");window.close();",1)
  end if
  session.Contents.Remove(joekoe_cms.web_cookies&"_music")
  call web_clear(1)
end sub

sub c_s_nid()
  if c_id<>"" then
    if n_id<>"" then
      sql_add=" where n_id="&n_id
    elseif s_id<>"" then
      sql_add=" where s_id="&s_id 
    else
      sql_add=" where c_id="&c_id
    end if
  end if
end sub
%>