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

changtian11 2009-08-31 01:02:18

如题，可以添加歌曲，在播放时显示播放列表。
一般情况下，程序按照顺序往下播放。
当用户点击播放列表中的歌曲以后，能够播放选中的歌曲。
播放完毕提示。

麻烦各位大侠帮忙！！

...全文

51 1 打赏收藏转发到动态举报

写回复

用AI写文章

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>