📄 musicbox.asp
字号:
}
}
}
</script></head>
<table width="779" height="570" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" height="570" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
<td width="186" valign="top"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="top"><img src="images/amusic_0a11.gif" width="188" height="25"></td>
</tr>
</table>
<!--#include file="inc/login.inc" -->
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="32"><img src="images/amusic_0a13.gif" width="188" height="25"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top0.gif" width="188" height="29"></td>
</tr>
</table>
<!--#include file="inc/links.inc" -->
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23"><img src="images/0394_top1.gif" width="188" height="29"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<!--#include file="inc/list_music_hot.inc"-->
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top2.gif" width="188" height="29"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<!--#include file="inc/list_special_hot.inc"-->
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394_top3.gif" width="188" height="29"></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="45"> <div align="center"><img src="images/WMP9series_Free.gif" width="120" height="32"></div></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="45"> <div align="center"><img src="images/real.gif" width="121" height="34"></div></td>
</tr>
</table></td>
<td width="1" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
<td width="590" valign="top"><table width="589" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="314" height="18"> <div align="center">
<!--#include file="inc/top_count.inc" -->
</div></td>
<td width="24"><img src="images/fink.gif" width="25" height="23"></td>
<td width="251">
<!-- 导航歌曲搜索 开始 -->
<table width="250" border="0" cellspacing="0" cellpadding="4" align="center" height="17">
<form action="search.asp" method="get">
<tr align="center">
<td width="71" height="2"> <input name="key_keyword" class=input onFocus="this.value=''" value="关键字" size="10" maxlength="30" ></td>
<td width="79"> <select size="1" name="key_type" class=input >
<option selected value="music">歌曲名称</option>
<option value="singer">歌手名称</option>
<option value="special">专辑名称</option>
</select></td>
<td width="42"> <input type="submit" value="搜索" class=input name="submit"></td>
<td width="42"> <input type="reset" value="清除" class=input name="submit2"></td>
</tr>
</form>
</table>
<!-- 导航歌曲搜索 结束 -->
</td>
</tr>
</table>
<table width="100%" height="209" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/0394_list1.gif" bgcolor="#FFFFFF"><table width="100%" height="29" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"> </td>
<td width="97%" valign="bottom">音 乐 盒</td>
</tr>
</table></td>
</tr>
<tr>
<td height="180" bgcolor="#FFFFFF">
<table width="579" height="180" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="1" height="180" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
<td width="550" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF">
<table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><font color="#FF0000"><%=session("UserName")%> </font>的音乐盒 [为我们节约空间,请您经常清理音乐盒.谢谢!]</div></td>
</tr>
</table></td>
</tr>
</table>
<TABLE width=575 height=2
border=0 align="center" cellPadding=0 cellSpacing=0
background="images/txwm_line_1.gif">
<TBODY>
<TR>
<TD height=1><img src="images/b.gif" width="1" height="1"></TD>
</TR>
</TBODY>
</TABLE>
<table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" title="秘密：每添加一首歌词并通过审核则可以多放两首(甚至更多)歌曲!">您的音乐盒中共收藏了<font color="#FF0000"><%=MusicBox_count%></font>首歌曲 (剩余空间<font color="#FF0000"><%=BoxNum_Max-MusicBox_count%></font>首歌曲)</div></td>
</tr>
</table>
<table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="37" height="24"> <div align="center"><strong><font color="#FF6600">选择</font></strong></div></td>
<td width="253" height="24"> <div align="center"><strong><font color="#FF6600">歌
曲</font></strong></div></td>
<td width="107"><div align="center"><strong><font color="#FF6600">歌
手</font></strong></div></td>
<td width="37" height="24"> <div align="center"><strong><font color="#FF6600">试听</font></strong></div></td>
<td width="38" height="24"> <div align="center"><strong><font color="#FF6600">歌词</font></strong></div></td>
<td width="44" height="24"> <div align="center"><strong><font color="#FF6600">删除</font></strong></div></td>
<td width="53" height="24"> <div align="center"><strong><font color="#FF6600">顺序</font></strong></div></td>
</tr>
<tr>
<td colspan="7"><TABLE width=100% height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif">
<TBODY><TR><TD height=2><IMG height=2 src="img/dot.gif" width=10></TD></TR></TBODY></TABLE></td>
</tr>
<form name="form" method="post" action="musicbox.asp?action=list">
<!-- 歌曲列表 -->
<%
Do while not MusicBox_rs.eof
i=i+1
MusicBox_rs(4)=i
MusicBox_rs.Update
MusicBox_bgcolor="f7f7f7"
If i mod 2 = 0 Then
MusicBox_bgcolor="ffffff"
Else
MusicBox_bgcolor="f7f7f7"
End If
%>
<tr bgcolor="<%Response.Write (MusicBox_bgcolor)%>">
<td height="22" align="center"> <input type="checkbox" name="checked" onclick="return listbox_onclick(this)" value="<%Response.Write (MusicBox_rs(0))%>"></td>
<td height="22" > <img src="images/d.gif" alt="" width="12" height="12">
<%Response.Write (MusicBox_rs(1))%></td>
<td height="22" align="center"><a href="special.asp?id=<%Response.Write (MusicBox_rs(5))%>"><%Response.Write (MusicBox_rs(2))%></a></td>
<td height="22" align="center"><a href="#" onclick="window.open('yxplay.asp?id=<%Response.Write(MusicBox_rs(0))%>','','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')"><img src="images/0394_test.gif" alt="试 听" width="26" height="11" border=0></a></td>
<td height="22" align="center">
<%
Dim Open_MusicWord_rs
Set Open_MusicWord_rs=conn.execute("select ID from [MusicWord] where IsShow=true and MusicID="&MusicBox_rs(0))
If Open_MusicWord_rs.eof Then
Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=add&id="&MusicBox_rs(0)&"&musicname="&Replace(MusicBox_rs(1),"'","’")&"&singer="&MusicBox_rs(2)&"')""><img src='images/035no.gif' alt='添加歌词' width='16' height='13' border=0></a>")
Else
Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=show&id="&MusicBox_rs(0)&"&musicname="&Replace(MusicBox_rs(1),"'","’")&"&singer="&MusicBox_rs(2)&"')""><img src='images/035.gif' alt='浏览歌词' width='16' height='13' border=0></a>")
End If
Open_MusicWord_rs.close
Set Open_MusicWord_rs=NOTHING%>
</td>
<td height="22" align="center"><a href="#" onclick="javascript:window.open('musicbox.asp?action=del&id=<%Response.Write(MusicBox_rs(3))%>','_top')"><img src="images/center_del.gif" alt="从音乐盒中删除" width="17" height="12" border=0></td>
<td height="22" align="center"><input name="list<%Response.Write (MusicBox_rs(0))%>" type="text" value="<%Response.Write (i)%>" size="2" disabled title="请先选中你要修改的歌曲，然后才能修改歌曲中的顺序" class="checklist" style="color: #FF6600;"></td>
</tr>
<tr>
<td colspan="7"> <TABLE width=100% height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif"><TBODY><TR> <TD height=2><IMG height=2 src="img/dot.gif" width=10></TD></TR></TBODY></TABLE></td>
</tr>
<%
MusicBox_rs.movenext
Loop
MusicBox_rs.close
Set MusicBox_rs=NOTHING
%>
<!-- 歌曲列表 结束 -->
</table>
<div align="center"><br>
<input type="button" name="chkall" value="" onclick="CheckAll1(this.form)" title="选择显示的所有歌曲" style="width: 62px; height: 23px; background-image: url('images/ly1.gif'); border-style: none; border-width: medium">
<input type="button" name="chkOthers" value="" onclick="CheckOthers1(this.form)" title="反向选择歌曲" style="width: 62px; height: 23px; background-image: url('images/ly2.gif'); border-style: none; border-width: medium">
<input type="submit" name="player" value=" " title="请先选择你想听的歌曲后再点击播放" style="width: 62px; height: 23px; background-image: url('images/ly3.gif'); border-style: none; border-width: medium">
<input type="submit" name="savelist" value=" " title="保存歌曲的播放顺序" style="width: 62px; height: 23px; background-image: url('images/ly6.gif'); border-style: none; border-width: medium"><br>
</div>
</form>
</td>
<td width="1" bgcolor="#CCCCCC"><img src="images/b.gif" width="1" height="1"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/0394log.gif" width="589" height="30"></td>
</tr>
</table></td>
<td width="1" background="images/sunny01.gif"><img src="images/b.gif" width="1" height="1"></td>
</tr>
</table>
<!--#include file="box.asp"--><%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -