ASP电影播放器_网页播放器教程-查字典教程网
ASP电影播放器
ASP电影播放器
发布时间:2016-12-29 来源:查字典编辑
摘要:varERR_NonePlayer="播放器提示您:您的系统中没有安装RealPlayer播放器,请到主页上下载。nnnMovie播放器将关...

<%

MovURL=Request("MovURL")

%>

<body 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播放器,请到主页上下载。nnnMovie播放器将关闭。";

var ERR_FileNotFind="播放器提示您: 对不起,未发现你要点播的影片。nnn请您更换其他影片!";

var ERR_NotLocateServer="播放器提示您: 对不起,你的IP还不能观看此电影!nnn请把本站的网址:http://www.zh1861.net/发给你QQ上的5位网友,你就可以看了。";

var ERR_UnkownError="播放器提示您: 影片地址错误,请给管理员留言,让管理员修正地址!nnn请大家把本站的网址:http://www.zh1861.com/发给你QQ上的5位网友再回来观看哦。nnn或者更换其它影片观看!";

</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"></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>

总算搞拈了

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新网页播放器学习
    热门网页播放器学习
    编程开发子分类