当前位置: 首页 > 图文教程 > 网络编程 > 网页播放器 > ASP电影播放器

网页播放器
超级REAL视频播放器
网页视频播放器程序代码(通用代码)
通用网页播放器
通用媒体播放器(5.5更新)
在线播放器代码大全
符合web标准的媒体播放器代码
网页播放器的参数含义 Windows Media Player 网页播放器 参数含义
自动切换能播放音乐列表 vbs
ASP电影播放器
一款不错的flash Mp3播放器
Window Media Player 播放器
获取音乐文件的播放时间及当前进度
javascript控制realplayer对象使用
内嵌式RealPlayer播放器的参数含义
功能齐全的Real播放器
多首歌曲连续播放之asx播放列表文件
图片自动播放器脚本之家修正
封装的一个播放器wmv
利用JAVASCRIPT控制MEDIA PLAYER的功能实现
来自CSDN的"无限流"分页程序

网页播放器 中的 ASP电影播放器


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 51 ::
收藏到网摘: n/a

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


总算搞拈了