网页里插入能播放rmvb的代码

<script language=javaScript>
var ERR_NonePlayer="提示:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.SenFe.Com－最快最全的电影搜索引擎";
var ERR_NotLocateServer="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.SenFe.Com－最快最全的电影搜索引擎";
var ERR_UnkownError="提示:在线用户过多，服务器限制，请抢线或稍后观看！\n\nWww.SenFe.Com－最快最全的电影搜索引擎";
</script>
<script language=VBScript>                                   
on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))
if not RealPlayerG2 or RealPlayer5 or RealPlayer4 then
 if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
  window.location = "/download/real.exe"
 end if
end if
Sub player_OnBuffering(lFlags,lPercentage)
 if (lPercentage=100) then
  StartPlay=false
  if (FirstPlay) then
   FirstPlay=false
  end if 
  exit sub
 end if
End Sub
Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString)
select case player.GetLastErrorRMACode()
  case -2147221496
   window.alert(ERR_FileNotFind)
  case -2147221433,-2147221428,-2147221417,-2147217468
   window.alert(ERR_NotLocateServer)
  case else
   window.alert(ERR_UnkownError)
 end select
End Sub
</script>
<table style="border: #cccccc 1px solid;" width="582" height="445" border="0" cellpadding="0" cellspacing="0">
<tr><td align="center">
<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="100%" height="100%">
  <param name="CONTROLS" value="Imagewindow">
  <param name="CONSOLE" value="clip1">
</object>
</td></tr><tr><td height="25">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td align="center" bgcolor="#000000">
<table border=1 cellpadding=0 cellspacing=0 width="100%" bgcolor="#000000">
<tr><td width="85"><input onClick="document.player.SetFullScreen()" type=button value=点击全屏播放 name=Submit style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #a2a2a2 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #a2a2a2 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #333333; FONT-SIZE: 12px; HEIGHT: 25px; width: 85px"></td>
<td>
<object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="100%" HEIGHT="25">
  <param name="_ExtentX" value="4657">
  <param name="_ExtentY" value="794">
  <param name="AUTOSTART" value="-1">
  <param name="SRC" value="http://www.hongde.net/tech/kuzhu/dy/神话上.rmvb">
  <param name="SHUFFLE" value="0">
  <param name="PREFETCH" value="0">
  <param name="NOLABELS" value="-1">
  <param name="CONTROLS" value="ControlPanel">
  <param name="CONSOLE" value="clip1">
  <param name="LOOP" value="0">
  <param name="NUMLOOP" value="0">
  <param name="CENTER" value="0">
  <param name="MAINTAINASPECT" value="0">
  <param name="BACKGROUNDCOLOR" value="#000000">
</object>
<script>
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
</td></tr></table></td></tr><tr><td align="center" bgcolor="#000000">
<object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=25 id="RP3"  name="RP3" width=100%>
  <param name="CONTROLS" value="StatusBar">
  <param name="CONSOLE" value="clip1">
</object>
</td></tr></table></td></tr></table>