麻烦请提供下asp做的播放音乐的源码

changtian11 2009-08-31 01:02:18
如题,可以添加歌曲,在播放时显示播放列表。
一般情况下,程序按照顺序往下播放。
当用户点击播放列表中的歌曲以后,能够播放选中的歌曲。
播放完毕提示。

麻烦各位大侠帮忙!!
...全文
10 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
poiuy343 2009-08-31
好早以前写过一段 。 贴给你瞧瞧。

这是调用播放器的代码

<%
dim pg
pg=request.QueryString("id")
if pg="" then
pg=1
end if
if pg=0 then
pg=1
end if

%>
<%

set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,1,3
%>
<table width="694" height="332" border="1">
<tr>
<td width="463" height="28" bgcolor="#33FFCC">MC-->ZHANG 个人音乐收藏</td>
<td width="215" bgcolor="#FFFF00"> </td>
</tr>
<tr>
<td height="78"><object id="MediaPlayer" width="460" height="68" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
align="middle" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="FileName" value="play_list.asp?id=<%=pg%>" />
<param name="EnableContextMenu" value="-1" />
<param name="uiMode" value="Full" />
<param name="ShowControls" value="-1" />
<param name="ShowPositionControls" value="-1" />
<param name="ShowAudioControls" value="1" />
<param name="CaptioningID" value="value" />
<param name="ClickToPlay" value="-1" />
<param name="CursorType" value="0" />
<param name="CurrentPosition" value="0" />
<param name="ShowTracker" value="1" />
<param name="ShowDisplay" value="0" />
<param name="ShowStatusBar" value="1" />
<param name="AutoSize" value="0" />
<param name="ShowGotoBar" value="0" />
<param name="ShowCaptioning" value="0" />
<param name="AutoStart" value="1" />
<param name="PlayCount" value="0" />
<param name="AnimationAtStart" value="0" />
<param name="TransparentAtStart" value="0" />
<param name="AllowScan" value="0" />
<param name="EnableContextMenu" value="1" />
<param name="ClickToPlay" value="0" />
<param name="InvokeURLs" value="1" />
<param name="DefaultFrame" value="datawindow" />

</object></td>
<td bgcolor="#66FF66">歌词暂无 </td>
</tr>
<tr>
<td height="216" valign="top">
歌曲列表</br>

<%
do while not rs.eof
response.Write "<a href=play.asp?id="&rs("id")&">" &rs("name") &"</a>"
response.Write("<br>")
rs.movenext
loop
%>
<!--#include file="connclose.asp"-->
 </td>
<td valign="top"><div align="left"><a href="liulan.asp" target="_blank">添加新歌曲</a>(格式为wma格式)</div></td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript" for="MediaPlayer" event="endofstream">
<!--
alert("播放完毕,谢谢收听。");
//-->
</SCRIPT>





这是播放列表的代码


<!--#include file="conn.asp"-->
<%
pg=request.QueryString("id")
if pg="" then
pg=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select distinct * from music where id>="&pg&""
rs.open sql,conn,1,1
dim pg


%>

<ASX version = "3.0">
<TITLE>med播放器</TITLE>
<author>MC-ZHANG听听</author>
<copyright>本地音乐试听</copyright>
<% do while not rs.eof %>
<entry>
<title><%=rs("name")%></title><author><%=rs("name")%></author>
<copyright><%=rs("name")%></copyright>
<ref href="<%=rs("src1")%>"/>
</ENTRY>
<%rs.movenext
loop%>

</ASX>
<!--#include file="connclose.asp"-->
</body>


这是添加音乐的代码,都存在数据库里呢

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="conn.asp"-->


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>








<style type="text/css">
<!--
.STYLE2 {color: #000066}
-->
</style>
</head>

<body>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,1,3




'dim s,m,p(9),j
j=0






s=request.Form("CHANGE")
's="E:\myweb\music\huanhun1.wma,E:\myweb\music\huanhun2.wma"
m=split(s,",")

for i=0 to ubound(m)

'm(i)=rs("src1")
'response.Write m(i)

'for j=0 to ubound(m1)
'response.Write m1(j)
'next
'response.Write m1(ubound(m1))

'rs.update

m1=split(m(i),"\")
if len(m(i))>1 then
rs.addnew
rs("src1")=m(i)
rs("name")=m1(ubound(m1))
rs.update


end if





next










%>
添加歌曲成功,请 <label onclick="window.close()">
<span class="STYLE2">关闭</span>
</lable> 此页面
</body>
</html>

回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告