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

2009-08-31 01:02:18 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ECS架构与帧同步技术：构建高确定性多人实时对战游戏在实时多人游戏开发中，网络同步是核心挑战，直接关系到游戏的公平性与体验。状态同步虽然直观，但在弱网络环境下容易导致状态不一致和带宽压力。帧同步（Lockstep）作为一种输入同步技术，通过确保所有客户端在相同的逻辑帧处理完全相同的玩家输入序列，从根本上保证了游戏状态的确定性。ECS（Entity Component System）架构通过数据与行为的彻底分离，将游戏逻辑转化为纯函数式的数据转换，为确定性计算提供了理想载体。这种组合不仅优化了网络带宽，仅需同步极小的操作指令，更使得断线重连和战斗回放等功能实现阅读详情

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

麻烦各位大侠帮忙！！

...全文

WPS Office 2026免费安装指南：AI办公与安全使用全解析办公软件作为数字化办公的核心工具，其基本原理是通过文档处理、数据计算和演示展示等功能模块满足用户日常办公需求。随着人工智能技术的发展，现代办公软件逐步集成AI能力，通过自然语言处理和数据分析算法提升工作效率。在技术价值层面，优秀的办公软件不仅需要保持格式兼容性和跨平台同步能力，更要注重用户数据安全防护。从应用场景来看，无论是个人文档编辑、企业报表分析还是团队协作演示，办公软件都发挥着关键作用。WPS Office 2026作为国产办公软件代表，深度融合AI助手功能，支持智能写作和数据分析，同时通过官方免费策阅读详情

changtian11

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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>

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

相关推荐