📄 my_music.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<% if session("login")="" then
	response.Redirect"index.asp"
	end if %>
<% yhid=session("login")
	l=request.QueryString("l")
	if request("x")="" then
	x=100
	else
	x=request("x")
	end if %><head>
<title>音乐列表</title>
<link href="../css/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>



<table width=750 border=0 align="center" cellpadding=0 cellspacing=1  bgcolor="#0099CC">
	   <tr><td bgcolor="#FFFFFF" align="center"><script type="text/javascript"><!--
google_ad_client = "pub-7234555567241040";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
//--></script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td></tr>
   <% set rs=server.CreateObject("adodb.recordset")
   		rs.open"select * from favxx where yhid=" & yhid & " and kid=" & l & " order by muid desc",conn,1,1
   		if rs.eof then %>
		<tr><td bgcolor="#FFFFFF" align="center" height="25">暂无收藏歌曲！</td></tr>
		<% Else
			mypage=request("page")
			if mypage="" or mypage<1 then
			mypage=1
			end if
			sum=rs.recordcount
			rs.pagesize=x
			maxpage=cint(rs.pagecount)
			i=0 %>
   <form name="form" target="_blank" action="Yxplay.asp">
  <tr><td align="center" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#D8D8D8">
  <% do until rs.eof or i=x %>
  <% if i mod 4 = 0 then %>
  <tr><td bgcolor="#FFFFFF" width="25%">
  <% Else %>
	<td bgcolor="#FFFFFF" width="25%">
	<% End If %>
	<input type="checkbox" name="checked" value="<%=rs("muid")%>"><a href="#" onClick="window.open('Yxplay_.asp?muid=<%=rs("muid")%>','Lcmusic','scrollbars=no,resizable=no,width=380,height=500')" ><%=rs("muname")%></a></td>
  <% rs.movenext
  	i=i+1
	loop
	scriptname=request.ServerVariables("SCRIPT_NAME")
	rs.close
	set rs=nothing %>
  </tr></table></td></tr>
<tr><td height="30" align=center bgcolor="#FFFFFF"><INPUT type="submit" value=播放您选定的音乐歌曲(可以连续播放或重复播放)></td></tr></form>
 <tr><form method="post" action="<%= scriptname %>?l=<%= l %>">
	<td align="center" bgcolor="#FFFFFF" height="25">
	<select name="x" onChange="javascript:submit()">
        <option value="80" <% if cint(x)=80 then %> selected <% end if %>>每页显示80首</option>
		<option value="100" <% if cint(x)=100 then %> selected <% end if %>>每页显示100首</option>
		<option value="160" <% if cint(x)=160 then %> selected <% end if %>>每页显示160首</option>
		<option value="200" <% if cint(x)=200 then %> selected <% end if %>>每页显示200首</option>
		<option value="300" <% if cint(x)=300 then %> selected <% end if %>>每页显示300首</option>
		<option value="400" <% if cint(x)=400 then %> selected <% end if %>>每页显示400首</option>
      </select>
	  共[<%= sum %>]首歌曲&nbsp;页次[<font color="#FF0000"><% mypage %></font>/<%= maxpage %>]&nbsp;
				<% if cint(mypage)<>1 then %><a href="<%= scriptname %>?l=<%= l %>&x=<%= x %>&page=1"><% End If %>首页<% if cint(mypage)<>1 then %></a><% End If %>&nbsp;
				<% if cint(mypage)>1 then %><a href="<%= scriptname %>?l=<%= l %>&x=<%= x %>&page=<%=  cint(mypage) -1 %>"><% End If %>上页<% if cint(mypage)>1 then %></a><% End If %>&nbsp;
				<% if cint(mypage)<maxpage then %><a href="<%= scriptname %>?l=<%= l %>&x=<%= x %>&page=<%= cint(mypage)+1 %>"><% End If %>下页<% if cint(mypage)<maxpage then %></a><% End If %>&nbsp;
	  <% if cint(mypage)<>maxpage then %><a href="<%= scriptname %>?l=<%= l %>&x=<%= x %>&page=<%= maxpage %>"><% End If %>尾页<% if cint(mypage)<>maxpage then %></a><% End If %> </td></form>
  </tr><% End If %>
</table>
⌨️ 快捷键说明

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