您正在使用 IPV4 [3.236.145.153] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】云服务器、云数据库、COS、CDN、短信等云产品特惠热卖中      
[公益] 地球是我家,绿化靠大家      
2024年 妇女节 010
2024年 清明节 037
2025年 元 旦 309
2025年 春 节 337
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP电影播放器
内容摘要: %MovURL=Request('MovURL')%bodystyle='BACKGROUND-COLOR:white;MARGIN:0px'scroll=nomarginheight='0'tablewidth='100%'height='100%'border='1'cellpadding='0'cellspacing='0'trtdalign='cen......
<%

MovURL=Request("MovURL")

%>

<bodystyle="BACKGROUND-COLOR:white;MARGIN:0px"scroll=nomarginheight="0">

<tablewidth="100%"height="100%"border="1"cellpadding="0"cellspacing="0">

<tr>

<tdalign="center">

<scriptLANGUAGE="javaScript">

varERR_NonePlayer="播放器提示您:您的系统中没有安装RealPlayer播放器,请到主页上下载。\n\n\nMovie播放器将关闭。";

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

varERR_NotLocateServer="播放器提示您:对不起,你的IP还不能观看此电影!\n\n\n请把本站的网址:发给你QQ上的5位网友,你就可以看了。";

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

</script>

<scriptLANGUAGE="VBScript">

onerrorresumenext

RealPlayerG2=(NOTIsNull(CreateObject("rmocx.RealPlayerG2Control")))\n');

RealPlayer5=(NOTIsNull(CreateObject("RealPlayer.RealPlayer(tm)ActiveXControl(32-bit)")))

RealPlayer4=(NOTIsNull(CreateObject("RealVideo.RealVideo(tm)ActiveXControl(32-bit)")))

ifnotRealPlayerG2andRealPlayer5andRealPlayer4then

ifMsgBox("您的浏览器无法自动下载最新的浏览器插件,是否要下载播放器来播放?",vbYesNo)=vbYesthen

window.location="http://www.i-movie.cn/tools/RealOnePlayer2GOLD.exe"

endif

endif

Subplayer_OnBuffering(lFlags,lPercentage)

if(lPercentage=100)then

StartPlay=false

if(FirstPlay)then

FirstPlay=false

endif

exitsub

endif

EndSub

Subplayer_OnErrorMessage(uSeverity,uRMACode,uUserCode,pUserString,pMoreInfoURL,pErrorString)

selectcaseplayer.GetLastErrorRMACode()

case-2147221496

window.alert(ERR_FileNotFind)

case-2147221433,-2147221428,-2147221417,-2147217468

window.alert(ERR_NotLocateServer)

caseelse

window.alert(ERR_UnkownError)

endselect

EndSub

</script>

<objectwidth="100%"height="100%"name="RP1"id="player"classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">

<paramname="AUTOSTART"value="-1">

<paramname="SHUFFLE"value="0">

<paramname="PREFETCH"value="0">

<paramname="NOLABELS"value="0">

<paramname="CONTROLS"value="Imagewindow">

<paramname="CONSOLE"value="clip1">

<paramname="LOOP"value="0">

<paramname="NUMLOOP"value="0">

<paramname="CENTER"value="1">

<paramname="MAINTAINASPECT"value="1">

<paramname="BACKGROUNDCOLOR"value="#000000">

</object></td>

</tr>

<tr>

<tdheight="60">

<tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="0">

<tdalign="center"bgcolor="#000000"><tableborder=1cellpadding=0cellspacing=0width="100%">

<tdwidth="50"><imgsrc="ctrl-fullscreen.gif"alt="如果你窗口播放效果不好,请改用全屏方式播放。"width="50"height="30"border="0"onClick="document.RP1.SetFullScreen()"></td>

<td><objectclassid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFAheight=30id="RP2"name="RP2"width=100%>

<paramname="_ExtentX"value="4657">

<paramname="_ExtentY"value="794">

<paramname="AUTOSTART"value="-1">

<PARAMNAME="SRC"VALUE="<%=MovURL%>">

<paramname="SHUFFLE"value="0">

<paramname="PREFETCH"value="0">

<paramname="NOLABELS"value="-1">

<paramname="CONTROLS"value="ControlPanel">

<paramname="CONSOLE"value="clip1">

<paramname="LOOP"value="0">

<paramname="NUMLOOP"value="0">

<paramname="CENTER"value="0">

<paramname="MAINTAINASPECT"value="0">

<paramname="BACKGROUNDCOLOR"value="#000000">

</object></td>

</tr>

</table>

</td>

</tr>

<tr>

<tdalign="center"bgcolor="#000000"><objectclassid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFAheight=30id="RP3"name="RP3"width=100%>

<paramname="_ExtentX"value="4657">

<paramname="_ExtentY"value="794">

<paramname="AUTOSTART"value="-1">

<paramname="SHUFFLE"value="0">

<paramname="PREFETCH"value="0">

<paramname="NOLABELS"value="-1">

<paramname="CONTROLS"value="StatusBar">

<paramname="CONSOLE"value="clip1">

<paramname="LOOP"value="0">

<paramname="NUMLOOP"value="0">

<paramname="CENTER"value="0">

<paramname="MAINTAINASPECT"value="0">

<paramname="BACKGROUNDCOLOR"value="#000000">

</object>

<scriptlanguage="javascript">

player.SetEnableContextMenu(false);

player.SetWantErrors(true);

</script>

</td>

</tr>

</table>

</td>

</tr>

<scriptlanguage="JavaScript">

functionclick(e){

if(document.all){

if(event.button==2||event.button==3){

oncontextmenu='returnfalse';

}

}

if(document.layers){

if(e.which==3){

oncontextmenu='returnfalse';

}

}

}

if(document.layers){

document.captureEvents(Event.MOUSEDOWN);

}

document.onmousedown=click;

document.oncontextmenu=newFunction("returnfalse;")

</script>

</table>

</tr>

</table>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:Asp生成HTML方法大全

 

下一篇:asp终极防范SQL注入漏洞

发布日期:2024/1/23
手机扫二维码直达本页
发布时间:12:03:32
点  击:25
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....