📄 con_music_class.asp
字号:
<!-- #include file="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> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_fav.asp?'>我的收藏夹</a> <font class=gray>首页</font></td></tr>" & _
vbcrlf&"<tr><td height=5></td></tr>" & _
vbcrlf&"<tr><td> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_fav.asp?action=song'>我收藏的音乐</a> <a href='music_fav.asp?action=mana&types=song' title='管理我收藏的音乐' class=gray>管理</a></td></tr>" & _
vbcrlf&"<tr><td> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_fav.asp?action=disk'>我收藏的专辑</a> <a href='music_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> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_mail.asp'>我的点歌机</a> <font class=gray>首页</font></td></tr>" & _
vbcrlf&"<tr><td height=5></td></tr>" & _
vbcrlf&"<tr><td> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_mail.asp?action=send_in'>我收到的歌曲</a></td></tr>" & _
vbcrlf&"<tr><td> <img src='images/music/s_fav_left.gif' align=absMiddle border=0> <a href='music_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='music_search.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
vbcrlf&"<input type=hidden name=action value='search'>" & _
vbcrlf&"<tr height=30>" & _
vbcrlf&"<td><img src='images/small/search.gif' border=0></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 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='music_song_list.asp'>歌曲列表</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_disk_list.asp'>专辑列表</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_singer_list.asp'>歌手列表</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_song_list.asp?action=good'>歌曲推荐</td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_disk_list.asp?action=good'>专辑推荐</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_singer_list.asp?action=good'>歌手推荐</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_buy.asp'>音乐冲值</a></td>" & _
vbcrlf&"<td width=10></td>" & _
vbcrlf&"<td><a href='music_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='music_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='music_pass.asp' target='music_play_win' onsubmit='return music_play_win()'>" & _
vbcrlf&"<tr height=22 align=center>" & _
vbcrlf&"<td width='7%' class=mtd>序号</td>" & _
vbcrlf&"<td width='28%' class=mtd>歌曲名称</td>" & _
vbcrlf&"<td width='16%' 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 name=chkall value=全部选择 onclick='javascript:music_check_all(this.form);' title=选择显示的所有歌曲> " & _
vbcrlf&"<input type=button name=chkOthers value=反向选择 onclick='javascript:music_check_other(this.form);' title=反向选择歌曲> " & _
vbcrlf&"<input type=submit 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> <img src='images/music/small_mp3_s.gif' border=0 align=absMiddle> <a alt='"&joekoe_cms.code_html(b_top,1,0)&"'>"&joekoe_cms.code_html(b_top,1,12)&"</a></td>" & _
vbcrlf&"<td><a href='javascript:;' onclick=""javascript:open_view('music_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('music_pass.asp?id="&b_id&"','music_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('music_down.asp?id="&b_id&"','music_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://bf.sina.com.cn/cgi-bin/sms/srchring.cgi?key="&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('music_send.asp?id="&b_id&"','music_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('music_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,"music_disk_view.asp?id="&b_id)&"</td>" & _
vbcrlf&"<td width='65%'><table border=0>" & _
vbcrlf&"<tr><td>名称：<a href='javascript:;' onclick=""javascript:open_view('music_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('music_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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -