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

  • 相关阅读:
    循环神经网络(Recurrent Neural Network)
    特征选择
    程序猿能挣多少钱
    python socket
    python 2 encode and decode
    pandas series
    source collection list
    pep8摘要
    python 正则表达式
    django显示图片
  • 原文地址:https://www.cnblogs.com/ryhan/p/2015626.html
Copyright © 2011-2022 走看看