📄 playlist.asp
字号:
<html>
<%
if not Request.cookies("user")=Request("user") then
session("refer")="playlist.asp?user="&Request("user")
Response.redirect "login.asp?user="&Request("user")
end if
%>
<head>
<title>播放列表</title>
<link href="style.css" rel=stylesheet type=text/css>
<script language="javascript" src="function.js"></script>
</head>
<body>
<div id="ie5menu" class="skin0" onMouseover="highlightie5()" onMouseout="lowlightie5()" onClick="jumptoie5();">
<div class="menuitems" url="javascript:Play();">用Media Player播放</div>
<div class="menuitems" url="javascript:Addtolist();">添加至"现在播放"列表</div>
<div class="menuitems" url="javascript:Playall();">播放全部歌曲</div>
<hr>
<div class="menuitems" url="javascript:Send();">推荐给好友</div>
<div class="menuitems" url="javascript:Delete();">删除本歌曲</div>
<div class="menuitems" url="javascript:AddtoCommon();">添加至公共收藏夹</div>
<div class="menuitems" url="javascript:Download();">保存到本地磁盘</div>
<hr>
<div class="menuitems" url="javascript:Lyric();">查看歌词</div>
<div class="menuitems" url="javascript:AddMusic();">添加歌曲到媒体库</div>
<div class="menuitems" url="javascript:Updata();">修改歌曲信息</div>
</div>
<script language="JavaScript1.2">
if (document.all && window.print) {
ie5menu.className = menuskin;
document.oncontextmenu = showmenuie5;
document.body.onclick = hidemenuie5;
}
</script>
<%
Server.ScriptTimeOut = 500
recPerPages = 6
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
Set RS = SERVER.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM favorite where user='" & Request("user") & "'"
RS.Open strSQL,conn,1,1
list=RS("list")
Set RS1 = SERVER.CreateObject("ADODB.Recordset")
playlist=split(list,",")
count=ubound(playlist)
sum=count
n=INT(count\recPerPages)
%>
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"></tr>
<%
i=0
Do while not sum<0
i=i+1
%>
<tr>
<%
For j=1 to 6
k=(i-1)*6+j-1
strSQL = "SELECT * FROM music where id="&CInt(playlist(k))
RS1.Open strSQL,conn,1,1
%>
<td width="16%" height="100" align="center">
<a songid="<%=RS1("id")%>" href="#" onclick="Play('<%=RS1("id")%>')" title="歌手:<%=RS1("name")%>"><img songid="<%=RS1("id")%>" border="0" src="images/mp3.jpg"><br><%=RS1("song")%></a>
</td>
<%
sum=sum-1
RS1.Close
IF(k>=count) Then Exit For
Next
%>
</tr>
<%
Loop
%>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -