ASP电影播放器

%
 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>

总算搞拈了