📄 common.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>精选歌曲</title>
<LINK href="style.css" rel=stylesheet type=text/css>
<script language="javascript" src="function.js"></script>
</head>
<body topmargin="0" leftmargin="0">
<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: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>
<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>
<%
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 common"
RS.Open strSQL,conn,1,1
n=INT(RS.RecordCount\recPerPages)
Set RS1 = SERVER.CreateObject("ADODB.Recordset")
%>
<%
Do While not RS.EOF
%>
<tr>
<%
For j=1 to 6
strSQL = "SELECT * FROM music where id="&CInt(RS("id"))
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>
<%
RS1.Close
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -