ASP電影播放器

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<%
 MovURL=Request("MovURL")
 %>
<body style="BACKGROUND-COLOR: white; MARGIN: 0px" scroll=no marginheight="0">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
 <tr> 
  <td align="center">
<script LANGUAGE="javaScript">       
var ERR_NonePlayer="播放器提示您: 您的系統中沒有安裝Real Player播放器，請到首頁上下載。\n\n\nMovie播放器將關閉。";
var ERR_FileNotFind="播放器提示您: 對不起，未發現你要點播的影片。\n\n\n請您更換其他影片！";
var ERR_NotLocateServer="播放器提示您: 對不起，你的IP還不能觀看此電影！\n\n\n請把本站的網址：http://www.zh1861.net/發給你QQ上的5位網友,你就可以看了。";
var ERR_UnkownError="播放器提示您:  影片地址錯誤，請給管理員留言，讓管理員修正地址！\n\n\n請大家把本站的網址：http://www.zh1861.com/發給你QQ上的5位網友再回來觀看哦。\n\n\n或者更換其它影片觀看！";
   </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.i-movie.cn/tools/RealOnePlayer2GOLD.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>

<object width="100%" height="100%" name="RP1" id="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
    <param name="AUTOSTART" value="-1">
    <param name="SHUFFLE" value="0">
    <param name="PREFETCH" value="0">
    <param name="NOLABELS" value="0">
    <param name="CONTROLS" value="Imagewindow">
    <param name="CONSOLE" value="clip1">
    <param name="LOOP" value="0">
    <param name="NUMLOOP" value="0">
    <param name="CENTER" value="1">
    <param name="MAINTAINASPECT" value="1">
    <param name="BACKGROUNDCOLOR" value="#000000">
    </object></td>
 </tr>
 <tr> 
  <td height="60">

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <td align="center" bgcolor="#000000"> <table border=1 cellpadding=0 cellspacing=0 width="100%">
         <td width="50"><img src="ctrl-fullscreen.gif" alt="如果你視窗播放效果不好，請改用全屏方式播放。" width="50" height="30" border="0" onClick="document.RP1.SetFullScreen()"></td>
      <td> <object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP2" name="RP2" width=100%>
        <param name="_ExtentX" value="4657">
        <param name="_ExtentY" value="794">
        <param name="AUTOSTART" value="-1">
        <PARAM NAME="SRC" VALUE="<%=MovURL%>">
        <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></td>
      </tr>
     </table> 
     </td>
    </tr>
    <tr>
     <td align="center" bgcolor="#000000"><object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=30 id="RP3" name="RP3" width=100%>
       <param name="_ExtentX" value="4657">
       <param name="_ExtentY" value="794">
       <param name="AUTOSTART" value="-1">
       <param name="SHUFFLE" value="0">
       <param name="PREFETCH" value="0">
       <param name="NOLABELS" value="-1">
       <param name="CONTROLS" value="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">
       </object>
<script language="javascript"> 
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
   </script>
</td>
    </tr>
   </table>
   </td>
  </tr>
<script language="JavaScript">
function click(e) {
if (document.all) {
if (event.button==2||event.button==3) {
oncontextmenu='return false';
}
}
if (document.layers) {
if (e.which == 3) {
oncontextmenu='return false';
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
document.oncontextmenu = new Function("return false;")
</script>
</table>

</tr>
</table>

總算搞拈了

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More