超简单的背景音乐随机播放代码

最新推荐文章于 2023-05-01 22:26:41 发布

原创最新推荐文章于 2023-05-01 22:26:41 发布 · 5.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#音乐 #url

这篇博客介绍了如何使用HTML和VBScript创建一个自动播放并随机选择音乐的代码。通过建立包含歌曲信息的数据表，结合Rnd函数实现音乐地址的随机选取，从而达到背景音乐的随机播放效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先音乐自动播放所用的代码是:
<EMBED src=歌曲地址
            width=1 height=1 type=audio/x-ms-wma Loop="true"
            controls="ControlPanel,StatusBar">


建立一个数据表，其中包括三个字段:
id   --------    歌曲记录条数
name --------    歌曲名字
url --------    歌曲地址

具体代码如下:
<%
set rsm=server.createobject("adodb.recordset")
sqlm="select * from music "
rsm.open sqlm,Conn,1,1
dim a,idm
a=rsm.recordcount
idm=Int(Rnd * a) + 1
DO WHILE Not rsm.eof
    if rsm("id")=idm then%>  　
  <EMBED src=<%=rsm("url")%>
            width=1 height=1 type=audio/x-ms-wma Loop="true"
            controls="ControlPanel,StatusBar">


            <%end if
rsm.movenext
LOOP
rsm.close
set rsm=nothing
%>