网页播放器exobud获取当前正在播放的歌曲名出错

gamerman 2009-10-05 01:30:48
播放器代码:
<object classid=clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6 height=308 id="Exobud" codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 type=application/x-oleobject width=320 VIEWASTEXT Standby="读取... 音乐站播放器" border="0">
<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
......

我想判断当前播放歌曲与播放列表中某条记录相同时可高亮显示:
<%
SongUrl=request("checked")
SongUrl=trim(SongUrl)
if instr(SongUrl,",")=0 then
dim SongUrlArray(1)
SongUrlArray(0)=SongUrl
else
SongUrl=replace(SongUrl," ","")
SongUrlArray=split(SongUrl,",")
NotOne=1
end if
if NotOne=1 then
for intI=0 to ubound(SongUrlArray)
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where id="&SongUrlArray(intI)
rs.open sql,conn,1,3
MusicName=rs("MusicName")
if Exobud.FileName = MusicName then
response.write "<font color=#57f20f>"&intI+1&"."&MusicName&"<br></font>"
else
response.write "<font color=#90B57F>"&intI+1&"."&MusicName&"<br></font>"
end if
rs.Close
next
else
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where id="&SongUrl
rs.open sql,conn,1,3
MusicName=rs("MusicName")
response.write MusicName
rs.Close
end if
%>


但在判断句 if Exobud.FileName = MusicName then 这里总提示 Exobud 缺少对象,不知道哪里有错。
...全文
134 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gamerman 2009-10-05
没人知道么
回复
gamerman 2009-10-05
其他都正常,播放列表也可正常显示,就是想将当前正在播放的歌曲名在列表中以另一种颜色显示。
是不是exobud.filename用法不对
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2009-10-05 01:30
社区公告
暂无公告