网页播放器exobud获取当前正在播放的歌曲名出错
播放器代码:
<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 缺少对象,不知道哪里有错。