用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,找到我们喜欢的歌后点击播放图标，接下来的工作就是听歌了，我真的“在心里从此永远有个你”