ASP电影播放器

Tags: webplay

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


总算搞拈了

本文链接:http://www.4byte.cn/learning/20890.html



相关问题