⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 musicsc.asp

📁 全站生成htm静态页面
💻 ASP
字号:
<%PageName="musicBox"%>
<script language="jscript.encode" src=../js/top.txt></script>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" then
	Musicid=request.QueryString("id")
	sql="select * from Box where UserName='"&membername&"' and Musicid="&Musicid
	rs.open sql,conn,1,3
	if not rs.EOF then
		response.Redirect "musicsc.asp?action=show"
		response.end
	else
		set rs2=server.createobject("adodb.recordset")
		sql2="select * from mtvList where mtvlistid="&Musicid
		rs2.open sql2,conn,1,1
		if (rs2.EOF and rs2.BOF) then
			errmsg=errmsg+"<SCRIPT language=JavaScript>alert(' 请正确选择歌曲! ');javascript:top.window.close();</SCRIPT>"
			call error()
			response.end
		else
			MusicName=rs2("Name")
			Singer=rs2("Singer")
			NClassid=rs2("NClassid")
			SClassid=rs2("SClassid")
			Classid=rs2("Classid")
		end if
		rs2.close
	        set rs2=nothing
		rs.AddNew
		rs("UserName")=membername
		rs("Musicid")=Musicid
		rs("MusicName")=MusicName
		rs("Singer")=Singer
		
		rs("NClassid")=NClassid
		rs("SClassid")=SClassid
		rs("Classid")=Classid
		rs.Update
	end if
	rs.Close
	Response.Redirect "musicsc.asp?action=show"
elseif action="del" then
	id=request("id")
	set rs=conn.execute("delete FROM Box where UserName='"&membername&"' and id="&id)
	Response.Redirect "musicsc.asp?action=show"	
elseif action<>"del" and action<>"add" then
%><!--#include file="functionuser.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="200" valign="top" bgcolor="F7F7F7"><table width="100%" border="0" cellspacing="4" cellpadding="0">
        <tr>
          <td align="center">&nbsp;</td>
        </tr>
        <tr>
          <td align="center"><a href="musicsc.asp"><img src="images/t2.gif" width="180" height="30" border="0"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="modify.asp"><img src="images/t4.gif" width="180" height="30" border="0"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="userlogout.asp"><img src="images/t5.gif" width="180" height="30" border="0"></a></td>
        </tr>
        <tr><td align="center">&nbsp;</td>
        </tr>
      </table> </td>
    <td width="576" valign="top"><table width="100%" border="0" cellspacing="3" cellpadding="0">
        <tr> 
          <td align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><div align="center"><font color="#FF0000">欢迎登陆音乐酒吧VIP会员系统,如有疑问请联系管理员QQ:48437457</font></div></td>
              </tr>
              <tr>
                <td><table width="540" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td><img src="../images/liebiao_bg1.gif" width="546" height="35"></td>
                    </tr>
                    <tr> 
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="1" bgcolor="#CCCCCC"><img src="../images/1x1.gif" width="1" height="1"></td>
                            <td><table width="100%" border="1" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td><table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#A5D0DC" bordercolordark="#FFFFFF">
                                      <tr bgcolor="#eeeeee"> 
                                        <td height=25 colspan=8 align=center>音乐收藏列表</td>
                                      </tr>
                                      <tr bgcolor="#eeeeee"> 
                                        <td align=center bgcolor="#EEF7FF">选择</td>
                                        <td height=25 align=center bgcolor="#EEF7FF">mtv名称</td>
                                        <td align=center bgcolor="#EEF7FF">歌手</td>
                                        <td align=center bgcolor="#EEF7FF">试听</td>
                                        <td align=center bgcolor="#EEF7FF"><font color="#FF0000">VIP下载</font></td>
                                        <td align=center bgcolor="#EEF7FF">点歌</td>
                                        <td align=center bgcolor="#EEF7FF"></td>
                                      </tr>
                                      <%
	sql="select * from Box where UserName='"&membername&"'"
	rs.open sql,conn,1,1
	if rs.EOF and rs.BOF then
%>
                                      <tr bgcolor="#FFFFFF"> 
                                        <td height="25" colspan=9 align=center><font color="#000000">你尚未收藏任何歌曲</font></td>
                                      </tr>
                                      <%
	else
    do while not rs.EOF 
	i=i+1
%>
                                      <form name='form2' action='../play/y98cnlianmx.htm' target=_blank>
                                        <tr> 
                                          <script language="JavaScript" type="text/JavaScript">
function CheckOthers(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
//		if (e.name != 'chkall')
			if (e.checked==false)
			{
				e.checked = true;// form.chkall.checked;
			}
			else
			{
				e.checked = false;
			}
	}
}

function CheckAll(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
//		if (e.name != 'chkall')
			e.checked = true// form.chkall.checked;
	}
}
</script>
                                        <tr bgcolor="#FFFFFF"> 
                                          <td width="40" height="25" align="center"> 
                                            <input type="checkbox" name="id" value="<%=rs("Musicid")%>" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #ffffff; HEIGHT: 15px; width: 15px"></td>
                                          <td width="246" height="25" ><font color="#333333"><%=i%>.<a href="../html/<%=rs("musicid")%>.htm" target="_blank"><font color="#333333"><%=rs("MusicName")%></font></a></font></td>
                                          <td width="80" height="25" align=center><a href="../mtv/<%=rs("NClassid")%>_1.htm" target="_blank"><font color="#333333"><%=rs("Singer")%></font></a></td>
                                          <td width="40" height="25" align=center><a href="../html/<%=rs("musicid")%>.htm" target="_blank"><font color="#333333"><img src="../images/rm.gif" width="16" height="16" border="0"></font></a></td>
                                          <td width="60" align=center><p align="center"><a href="#" onClick="window.open('vipmtvdown.asp?id=<%=rs("musicid")%>','y98cn','scrollbars=no,resizable=no,width=473,height=210,menubar=no,top=1,left=1')" ><img src="../images/searchDown.gif" width="16" height="16" border="0"></a></td>
                                          <td width="40" height="25" align=center><a href="../sendsong/add.asp?id=<%=rs("musicid")%>&title=<%=rs("MusicName")%>" target="_blank"><font color="#333333">送友</font></a></td>
                                          <td width="40" height="25" align=center><a href="musicsc.asp?action=del&id=<%=rs("id")%>"><font color="#333333">删除</font></a></td>
                                        </tr>
                                        <%rs.MoveNext
    loop
%>
                                        <tr bgcolor="#FFFFFF"> 
                                          <td height="30" colspan="7" align="center"> 
                                            <input name='chkall' type='button' style="BACKGROUND-COLOR: #000000; BORDER-BOTTOM: #999999 1px solid; BORDER-LEFT: #999999 1px solid; BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; COLOR: #FF6600; FONT-SIZE: 12px; HEIGHT: 20px; width: 40px" title='选择显示的所有歌曲' onClick='CheckAll(this.form)' value='全 选'> 
                                            <input type='button' name='chkOthers' value='反 选' onClick='CheckOthers(this.form)' title='反向选择歌曲' style="BACKGROUND-COLOR: #000000; BORDER-BOTTOM: #999999 1px solid; BORDER-LEFT: #999999 1px solid; BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; COLOR: #FF6600; FONT-SIZE: 12px; HEIGHT: 20px; width: 40px"> 
                                            <input type='submit' name='B1' value='连续播放MTV' title='请先选择你想听的歌曲后再点击播放' style="BACKGROUND-COLOR: #000000; BORDER-BOTTOM: #999999 1px solid; BORDER-LEFT: #999999 1px solid; BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; COLOR: #FF6600; FONT-SIZE: 12px; HEIGHT: 20px; width: 95px"> 
                                          </td>
                                        </tr>
                                      </form>
                                      <%end if
	rs.Close
else
	errmsg=errmsg+"<SCRIPT language=JavaScript>alert(' 操作错误! 请联系管理员. ');javascript:top.window.close();</SCRIPT>"
	founderr=true
end if
set rs=nothing
conn.close
set conn=nothing
if founderr=true then
	call error()
end if
%>
                                    </table></td>
                                </tr>
                              </table></td>
                            <td width="1" bgcolor="#CCCCCC"><img src="../images/1x1.gif" width="1" height="1"></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td valign="top" bgcolor="#CCCCCC"><img src="../images/1x1.gif" width="1" height="1"></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<script language="jscript.encode" src=../js/end.txt></script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -