[定制业务]
空间服务
[作品展示]


  新毕业设计吧
【 字体: 】【打印此页
网页中加入视频播放代码(rm)
发布日期:[2008/4/10]    共阅[188]次
    <html>
<head>
<title>月蒙影网页视频播放代码</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<STYLE type=text/css>A:link {
FONT-SIZE: 9pt; COLOR: #FF0000; TEXT-DECORATION: none
}
A:visited {
FONT-SIZE: 9pt; COLOR: #FF0000; TEXT-DECORATION: none
}
A:hover {
FONT-SIZE: 9pt; COLOR: rgb(255,0,0); TEXT-DECORATION: underline
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 16px; FONT-FAMILY: "宋体"
}
</STYLE>
</head>

<body marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#000000" scroll="no" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">

<div align="center">
  <center>
  <table border="0" cellspacing="0" width="337" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
   <tr>
    <td width="100%">
    <table border="0" cellspacing="0" style="border-collapse: collapse" width="108%" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
     <tr>
        <td width="59%" height="13" bgcolor="#E0E0E0"> <p align="center"></td>
      <form name="fm0" onSubmit="0">
     

      <td width="41%" height="13" bgcolor="#E0E0E0">
      <input type="button" onClick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放 按Esc返回" style="border-style: ridge; border-width: 1">
         </td>
        </form>
     </tr>
      <tr>
        <td width="100%" height="10" bgcolor="#FFFF00" colspan="2">
         <p align="center">
             <u><font size="2"></font></u></td>
      </tr>
    </table>
    </td>
   </tr>
   <tr>
    <td width="100%">
    <p align="center">
   <font size="2">
    <script language="JAVASCRIPT">
<!-- Begin
var ap_name = navigator.appName;
var ap_vinfo = navigator.appVersion;
var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf("(")));

var time_start = new Date();
var clock_start = time_start.getTime();
var dl_ok=false;

function init ()
{
if(ap_name=="Netscape" && ap_ver>=3.0)
dl_ok=true;
return true;
}

function get_time_spent ()
{
var time_now = new Date();
return((time_now.getTime() - clock_start)/1000);
}

function show_secs ()
{
var i_total_secs = Math.round(get_time_spent());
var i_secs_spent = i_total_secs % 60;
var i_mins_spent = Math.round((i_total_secs-30)/60);
var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);
var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);
value = s_mins_spent + ":" + s_secs_spent;
window.setTimeout("show_secs()",1000);
}
init();
window.setTimeout("show_secs()",1);
//  End -->
      </script>    <script LANGUAGE="javaScript">       
var ERR_NonePlayer="月蒙影博客系统:您的系统中没有安装Real Player播放器,请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="月蒙影博客系统:本片在线人数过多,服务器限制,请抢线或稍后观看!^_^";
var ERR_NotLocateServer="月蒙影博客系统:服务器忙,请多试几次,或稍后观看!!^_^";
var ERR_UnkownError="月蒙影博客系统:当前您所在的服务器在线人数过多,服务器限制,请换其它类的片子看看先;按F5抢线或稍后观看!^_^";
    </script>
    <script LANGUAGE="VBScript">                  
on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n");
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 and RealPlayer5 and RealPlayer4 then
     if MsgBox("您的浏览器无法自动下载最新的浏览器插件,是否要下载播放器来播放?", vbYesNo) = vbYes then
       window.location = "http://www.jroam.cn";
     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>
  

       <object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="467" height="330">
        <param name=_ExtentX value=12356>
    <param name=_ExtentY value=8731>
    <param name=AUTOSTART value=-1>
    <param name=SHUFFLE value=0>
    <param name=PREFETCH value=0>
    <param name=NOLABELS value=0>
    <param name="SRC" value="gaoshan.rm">
    <param name=CONTROLS value=ImageWindow>
    <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>

    <br>
       <object ID="RP2" height=40 width=467  CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
        <param name="_ExtentX" value="12356">
   <param name="_ExtentY" value="1058">
   <param name="AUTOSTART" value="-1">
   <param name="SHUFFLE" value="0">
   <param name="PREFETCH" value="0">
   <param name="NOLABELS" value="0">
   <param name="CONTROLS" value="ControlPanel,StatusBar">
   <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">
   <embed type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ControlPanel,StatusBar" AUTOSTART="true">
   </object>
    <script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
    </script>
    </font>
    </td>
   </tr>
  </table>
  </center>
</div>


</body>

</html>

 
【 字体: 】【打印此页】 【返回】【顶部】【关闭