用asp自编源码制作动态的音乐播放页面

相信用asp编程实现音乐播放是初学网页制作的朋友多想实现的一个功能,虽然苦苦在网络上费心搜寻,但是这方面的介绍却少之而又少,假如你无意路过这博客,假如你正是很想实现这么一个动态播放歌曲的功能,相信这次你一定可以真的实现了,可以播放多种音乐格式的歌哦!
音乐播放页面要实现的功能:
    当用户在liebiao2.asp(自编的那个文件,具体在博客相关章节)点击“播放”下面的“耳机”图标时,就会连接到:bofang1.asp并向该文件传递相应的"id",当文件被打开后,我们就可以听到我们喜爱的歌了。
    具体制作步骤如下:
一、建立conn2.asp子文件(音乐数据表及音乐文件要保证放在网页文件所在的目录里哦!)
dim connstr
'建立字符串连接数据库
connstr="DRIVER=Driver do Microsoft Access (*.mdb);uid=admin;pwd=;DBQ="&server.MapPath("yinyuedb.mdb")
set conn=server.createobject("adodb.connection")'建立CONNECTION的实例化对象CONN
conn.Open connstr
%>
二、在<html>前面放置以下代码:
<%@ language="vbscript" %>
<!-- #include file="conn2.asp"-->
<%
dim rs1,aa
If (Request.QueryString("id") <> "") Then
set rs=server.createobject("adodb.recordset")
aa="select music_id, music_url from yinyue where music_id="&Request.QueryString("id")
rs.open aa,conn,1,1
End If
%>
略分析以上代码吧:建立数据库的连接和记录集对象,这样我们的ASP代码才可以对数据表进行操作,先检查来自地址栏的ID是否为空,相信都不会为空的,所以就根据传递过来的ID在数据表中进行查询两个字段的值:(music_id, music_url)。
三、复制以下代码到<head></head>之间:
<script src="../Scripts/AC_ActiveX.js" type="text/javascript"></script>
<script src="../Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
假如没有:AC_ActiveX.js和AC_RunActiveContent.js就到网上下载吧,将这两个文件放置于文件所在的目录中,实在找不到也可以跟我联系:QQ:616337665


四、在bofang1.asp页面你喜爱的地方在DWCS3的菜单栏上找到“插入记录”“媒体”“activex(x)”,完成了对媒体对象:activex(x)的插入。用鼠标选择activex(x),然后转到代码页中将以下代码复制上,保存好。这样所有的工作已经完成。
<script type="text/javascript">
AC_AX_RunContent( 'id','mplayer','width','500','height','300','classid','CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95','align','baseline','border','0','standby','Loading Microsoft Windows Media Player components...','type','application/x-oleobject','filename','<%=(rs.Fields.Item("music_url").Value)%>','showcontrols','1','showpositioncontrols','1','showaudiocontrols','1','showtracker','1','showdisplay','0','showstatusbar','1','autosize','0','showgotobar','0','showcaptioning','0','autostart','1','playcount','0','animationatstart','0','transparentatstart','0','allowscan','0','enablecontextmenu','1','clicktoplay','0','invokeurls','1','defaultframe','datawindow' ); //end AC code
</script><noscript><object id="mplayer" width="500" height="300" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
align="baseline" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="FileName" value="<%=(rs.Fields.Item("music_url").Value)%>">
<param name="ShowControls" value="1">
<param name="ShowPositionControls" value="1">
<param name="ShowAudioControls" value="1">
<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></noscript>        

三、在</body>上一行添加代码将数据库连接和数据表关闭以释放资源
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

四、运行liebiao2.asp,找到我们喜欢的歌后点击播放图标,接下来的工作就是听歌了,我真的“在心里从此永远有个你”

原文地址:https://www.cnblogs.com/ryhan/p/2015626.html