📄 music.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>MMP3.KU.NET</title>
<link rel="stylesheet" type="text/css" href="style.css">
<%
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
%>
<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:AddtoCommon();">添加至公共收藏夹</div>
<div class="menuitems" url="javascript:AddtoFavorite();">添加至个人收藏夹</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>
<a href="singer.asp?sort=<%=Request("sort")%>"><img border="0" src="images/upper.jpg" width="30" height="20"></a>
<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>
<%
Set RS = SERVER.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM music where name='" & trim(request.QueryString("name")) & "'"
RS.Open strSQL,conn,1,1
n=INT(RS.RecordCount\recPerPages)
Do while not RS.EOF
%>
<tr>
<%
For i=1 to 6
%>
<td width="16%" height="100" align="center">
<a songid="<%=RS("id")%>" href="#" onclick="Play('<%=RS("id")%>')" title="歌手:<%=RS("name")%>"><img songid="<%=RS("id")%>" border="0" src="images/mp3.jpg"><br><%=RS("song")%></a>
</td>
<%
RS.MoveNext
If RS.EOF then
RS.MoveLast
Exit For
End If
Next
%>
</tr>
<%
RS.MoveNext
If RS.EOF then
RS.MoveLast
Exit Do
Else
RS.MovePrevious
End If
Loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -