网页视频播放器顺序播放代码

以下是我播放器代码，我现在的代码只能够实现一个视频的取值，我需要全部读取到，然后一个个顺序播放出来，我用do循环，结果是全部读出来了，但是是连在一起的播放地址，这样哪里可以放啊

<%
set rs_vodiegg = server.CreateObject("adodb.recordset")
sql_vodiegg="select * from vodiegg order by id desc" '这里为查询的数据表名称
rs_vodiegg.Open sql_vodiegg,conn,1,1 '这里执行你查询SQL并获得结果记录集
%>
<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="180" height="165">
<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
<!--是否自动调整播放大小-->
<param name="AutoStart" value="-1">
<!--是否自动播放-->
<param name="AnimationAtStart" value="-1">
<param name="AllowScan" value="-1">
<param name="AllowChangeDisplaySize" value="-1">
<param name="AutoRewind" value="0">
<param name="Balance" value="0">
<!--左右声道平衡,最左-9640,最右9640-->
<param name="BaseURL" value>
<param name="BufferingTime" value="15">
<!--缓冲时间-->
<param name="CaptioningID" value>
<param name="ClickToPlay" value="-1">
<param name="CursorType" value="0">
<param name="CurrentPosition" value="0">
<!--当前播放进度 -1 表示不变,0表示开头 单位是秒,比如10表示从第10秒处开始播放,值必须是-1.0或大于等于0-->
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="DisplaySize" value="0">
<!--视频1-50%, 0-100%, 2-200%,3-全屏 其它的值作0处理,小数则采用四舍五入然后按前的处理-->
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="-1">
<!-是否用右键弹出菜单控制-->
<param name="EnablePositionControls" value="-1">
<param name="EnableFullScreenControls" value="-1">
<param name="EnableTracker" value="-1">
<!--是否允许拉动播放进度条到任意地方播放-->
<param name="Filename"
value="<%=rs_vodiegg("vodieadd")%>"><!--播放的文件地址-->
<param name="InvokeURLs" value="0">
<param name="Language" value="-1">
<param name="Mute" value="0">
<!--是否静音-->
<param name="PlayCount" value="0">
<!--重复播放次数,0为始终重复-->
<param name="PreviewMode" value="-1">
<param name="Rate" value="1">
<!--播放速率控制,1为正常,允许小数-->
<param name="SAMILang" value>
<!--SAMI语言-->
<param name="SAMIFilename" value>
<!--字幕ID-->
<param name="SelectionStart" value="-1">
<param name="SelectionEnd" value="-1">
<param name="SendOpenStateChangeEvents" value="-1">
<param name="SendWarningEvents" value="-1">
<param name="SendErrorEvents" value="-1">
<param name="SendKeyboardEvents" value="0">
<param name="SendMouseClickEvents" value="0">
<param name="SendMouseMoveEvents" value="0">
<param name="SendPlayStateChangeEvents" value="-1">
<param name="ShowCaptioning" value="0">
<!--是否显示字幕,为一块黑色,下面会有一大块黑色,一般不显示-->
<param name="ShowControls" value="0">
<!--是否显示控制,比如播放,停止,暂停-->
<param name="ShowAudioControls" value="1">
<!--是否显示音量控制-->
<param name="ShowDisplay" value="0">
<!--显示节目信息,比如版权等-->
<param name="ShowGotoBar" value="0">
<!--是否启用上下文菜单-->
<param name="ShowPositionControls" value="0">
<!--是否显示往前往后及列表,如果显示一般也都是灰色不可控制-->
<param name="ShowStatusBar" value="0">
<!--当前播放信息,显示是否正在播放,及总播放时间和当前播放到的时间-->
<param name="ShowTracker" value="1">
<!--是否显示当前播放跟踪条,即当前的播放进度条-->
<param name="TransparentAtStart" value="0">
<param name="VideoBorderWidth" value="0">
<!--显示部的宽部,如果小于视频宽,则最小为视频宽,或者加大到指定值,并自动加大高度.此改变只改变四周的黑框大小,不改变视频大小-->

代码贴不完了，加我的百度hi吧
谁再帮我解决一下这个问题啊

<%
set rs_vodiegg = server.CreateObject("adodb.recordset")
sql_vodiegg="select * from vodiegg order by id desc" '这里为查询的数据表名称
rs_vodiegg.Open sql_vodiegg,conn,1,1 '这里执行你查询SQL并获得结果记录集
linke=""
do while not rs_vodiegg.eof
linke=linke&rs_vodiegg("vodieadd")
rs_vodiegg.movenext
if not rs_vodiegg.eof
linke=linke&"+""|""+"
end if%>
value="<%=linke%><!--播放的文件地址-->

你好！ 这个需要一个播放文件。把所有的要播放的文件放在一个列表里，让播放器自动去取下一个视频。有循环播放和顺序播放等方式。 仅代表个人观点，不喜勿喷，谢谢。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息