📄 usercollect.asp

📁 青岛dj站程序,带后台管理名字和密码都是:admin
💻 ASP
字号:
<!--#include file="function.asp"-->
<%
founderr=false
if isnull(session("DJ58User")) or session("DJ58User")="" or isnull(session("HappyMusicPwd")) or session("HappyMusicPwd")="" then
	response.write "<script language=javascript>alert('只有会员有歌曲收藏功能!如果您是会员请先登陆。如果您还不是本站会员，请免费注册！');history.back(1);</script>"
	Response.End 
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="style.asp"-->
      <%
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" then
	Musicid=request.QueryString("id")
	sql="select * from collection where UserName='"&session("DJ58User")&"'"
	rs.open sql,conn,1,3
		 if RS.recordcount>100 then 
		   response.write "<P align=center><font color=red>出 错 啦</font><br><br>对不起，您的音乐收藏架已满!<br><br><a href=UserCollect.asp?action=show>请清理！</a>" 
		   response.end
		  end if
	rs.close
	sql="select * from collection where UserName='"&session("DJ58User")&"' and Musicid="&Musicid
	rs.open sql,conn,1,3
	if not rs.EOF then
	
	response.write "<script language=javascript>alert('你已经收藏了此歌曲了！');history.back(1);</script>"

		response.end
	else
		set rs2=server.createobject("adodb.recordset")
		sql2="select * from musiclist where id="&Musicid
		rs2.open sql2,conn,1,1
		if (rs2.EOF and rs2.BOF) then
			response.write "<script language=javascript>alert('请正确选择歌曲！');history.back(1);</script>"
     		response.end
		end if
		rs2.close
		set rs2=nothing
		rs.AddNew
		rs("UserName")=session("DJ58User")
		rs("Musicid")=Musicid
		rs.Update
	end if
	rs.Close
	Response.Redirect "UserCollect.asp?action=show"

elseif action="del" then
	id=request("id")
	set rs=conn.execute("delete FROM collection where UserName='"&session("DJ58User")&"' and id="&id)
	Response.Redirect "UserCollect.asp?action=show"

elseif action="show" then
%>
<script src=JS/Js.js></script>
<title>歌曲收藏夹</title>
<body bgcolor="#171A1C">

<table border="1" width=100% cellspacing="0" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="#000000" style="border-collapse: collapse" bordercolor="#0D5777">
  <form name="form2" onsubmit="javascript:return lbsong();" target="lbsong" action="playsongmedia.asp">
        
    <tr bgcolor="#D050F0"> 
      <td align=center colspan=8 bgcolor="#0D5777"><b><font color="red"><%=session("DJ58User")%></font><font color="#520505">的歌曲收藏夹&nbsp;&nbsp;&nbsp; </font><a onfocus="this.blur()" href="javascript:this.location.reload()"><img height="12" src="images/refresh.gif" border="0" alt="如果看不到信就刷新一下!"></a></b></td>
        </tr>
        
    <tr bgcolor="#FFBCF8"> 
      <td align=center bgcolor="#000000">选择</td>
          
      <td align=center bgcolor="#000000">歌曲名字</td>
          

          
      <td align=center bgcolor="#000000" width="10%">试听</td>
          

          
      <td align=center bgcolor="#000000">点歌</td>
          
      <td align=center bgcolor="#000000">删除</td>
        </tr>
<%
	sql="select * from collection where UserName='"&session("DJ58User")&"'"
	rs.open sql,conn,1,1
	if rs.EOF and rs.BOF then
%>   
    <tr bgcolor="#FFBCF8"> 
      <td align=center colspan=8 bgcolor="#214D70">你尚未收藏任何歌曲</td>
    </tr>
    </table>
<%
	else
	    set rs1=server.createobject("adodb.recordset")
		do while not rs.EOF
		musicid=rs("musicid")
        sql1="select * from musiclist where id="&Musicid
		rs1.open sql1,conn,1,1
		if not rs1.EOF then%>
    <tr bgcolor="bgcolor="#171A1C""> 
      <td width="3%" align=center bgcolor="#171A1C"> 
        <input type="checkbox" border:0 name="checked" value="<%=rs1("ListenUrl")%>">
      </td>
          
      <td width="25%" bgcolor="#171A1C"><%=rs1("MusicName")%>　</td>
          
          
      <td align=center bgcolor="#171A1C"> 
        <% 
        if rs1("ListenUrl")<>"" then%>
        <a href="javascript:open_window('songmedia.asp?id=<%=musicid%>','Listen','width=280,height=360')">
<img src="images/play.gif" border="0" alt="试听<%=n%>"></a> 
                   <% end if %>
        
      </td>
          
      <td width="4%" align=center bgcolor="#171A1C"><a href="javascript:open_window('WriteSMusic.asp?id=<%=Musicid%>','WriteSMusic','width=420,height=145')">
<img src="images/showmusic.gif" border=0 alt="点歌"></a></td>
          
      <td width="4%" align=center bgcolor="#171A1C">
<a href="UserCollect.asp?action=del&id=<%=rs("id")%>">
<img border="0" src="images/del.gif"></a></td>
        </tr>
<%      end if
        rs1.close
		rs.MoveNext
		loop
%>
        
    <tr bgcolor="#FFBCF8"> 
      <td colspan=9 align=center bgcolor="#455572"> 
        <input type="hidden" name="PageName" value="<%=PageName%>">
            <input type="hidden" name="action" value="<%=action%>">
            <input type="button" name="chkall" value="全 选" onclick="CheckAll(this.form)" title="选择显示的所有歌曲">
            <input type="button" name="chkOthers" value="反 选" onclick="CheckOthers(this.form)" title="反向选择歌曲">
          </td>
        </tr>
        </form>
	</table>
	
<%
	end if
	rs.Close

else
	errmsg=errmsg+"操作错误！请联系管理员"
	founderr=true
end if
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
if founderr=true then
	call error()
end if
%>
⌨️ 快捷键说明

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