📄 2233d86.asp
字号:
<!--#include file="articleconn.asp"-->
<%
dim sql
dim rs
i=0
articleid=request("film2")
urlid=request("film1")
set rs=server.createobject("adodb.recordset")
sql="select serverip,canlook,movietype,title,count from learning where articleid="&articleid
rs.open sql,conn,1,1
serverip=rs("serverip")
tdate=date()
response.cookies(""&urlid&"")="yes"
%>
<title></title>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="css/style.css" rel=stylesheet type=text/css>
</head>
<body bgcolor="#282828" scroll="no" marginwidth="0" leftmargin="0" topmargin="0" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">
<div align="center">
<center>
<table border="0" cellspacing="0" width="434" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<% if rs("movietype")="rm" then%>
<tr>
<td width="470" colspan="2">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="461" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
<body onload="initPlayer()">
<script language="javascript">
function initPlayer()
{
document.player.SetWantMouseEvents(true)
}
function noRB()
{
setTimeout("alert('右键禁止')",400)
}
</script>
<script language="vbscript">
sub player_OnRButtonDown(ByVal nFlags, ByVal nX, ByVal nY)
if player.getfullscreen() then
player.SetOriginalSize()
noRB()
else
msgbox("右键禁止")
end if
End Sub
</script>
<tr>
<td width="346" height="1" bgcolor="#E0E0E0">
<p align="left"><font size="2">沂源宽频媒体中心欢迎您观看：<%=rs("title")%></font></td>
<form name="fm0" onSubmit="0">
<td width="79" height="1" bgcolor="#E0E0E0">
<input type="button" onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()" name value="全屏播放" style="border-style: ridge; border-width: 1"> </td>
</form>
</tr>
</table>
</td>
</tr>
<tr>
<td width="470" align="center" colspan="2">
<script LANGUAGE="javaScript">
var ERR_NonePlayer="播放器提示您:您的系统中没有安装Real Player播放器，请在主页上下载。\n\nMovie播放器将关闭。";
var ERR_FileNotFind="播放器提示您:对不起，你所点播的影片正在修正！\n\n请更换其他影片或报告该片有错误！";
var ERR_NotLocateServer="播放器提示您:无法定位Movie服务器。请更换其他影片。";
var ERR_UnkownError="播放器提示您:在线用户过多，超出服务器限制！\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.cn-mayi.com/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>
<p align="center">
<object id="player" name="player" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="458" height="324" align="center">
<param name="_ExtentX" value="12118">
<param name="_ExtentY" value="8573">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="govodurl.asp?urlid=<%=urlid%>&serverip=<%=serverip%>">
<param name="CONTROLS" value="Imagewindow">
<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> <br>
<object ID="RP2" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH="460" HEIGHT="60" align="center">
<param name="_ExtentX" value="12171">
<param name="_ExtentY" value="1588">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="govodurl.asp?urlid=<%=urlid%>&serverip=<%=serverip%>">
<param name="CONTROLS" value="ControlPanel,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>
<tr class="unnamed1">
<td width="491" height="19" align="center" valign="middle" bgcolor="#E0E0E0">
<p>
<MARQUEE scrolldelay="120"><script src="js/jstopgds.js"></script></MARQUEE></td>
<td width="184" height="19" align="center" valign="middle" bgcolor="#E0E0E0">
<p align="left">客服：QQ:7773709<a href="USER/buy.asp" target="_blank"><font size="2" color="#DDDDDD">用户续费</font></a><font size="2" color="#DDDDDD">
</font>
<span lang="en-us"><a href="chageusr.asp" target="_blank">
<font color="#DDDDDD" size="2">修改密码
<script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%
rs.close
set rst=nothing
conn.close
set conn=nothing
response.end
%> </font></a></span>
</td>
</tr>
<%elseif rs("movietype")="md" then
set rst=server.createobject("adodb.recordset")
sql="select url from movieurl where id="&urlid
rst.open sql,conn,1,1
real=rst("url")
set rst=server.createobject("adodb.recordset")
sql="select * from movie where id="&serverip
rst.open sql,conn,1,1
%>
<tr>
<td width="470" colspan="2">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="116%" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
<tr>
<td width="71%" height="1" bgcolor="#E0E0E0">
<p align="left"><font size="2">沂源宽频媒体中心欢迎您观看：<%=rs("title")%></font></td>
<form name="fm0" onSubmit="0">
<td width="146%" height="1" bgcolor="#E0E0E0">
<input type="button" onMouseDown="DoFull()" value="全屏显示" style="border-style: ridge; border-width: 1"><font size="2"> </font></td>
</form>
<script language="JavaScript">
<!--
var Real;
Real='MediaPlayer1.';
var Mute=false;
var CanSetPos=true;
var SetPosStart=false;
var SetVolStart=false;
var loop, timer, initialised;
var speed=50;
var oldwidth=566,oldheight=502;
function DoFull()
{
eval(Real+'DisplaySize=3');
}
NetShowServer = "" ;
var mPath = NetShowServer + "";
function LoadVideo(c1,c2) {
if (c1=="") return;
video_filename = c1;
MusicPlayer.Cancel()
timer=window.setTimeout("video_play()",2000)
}
function video_play(fn) {
var mName = mPath + video_filename;
MusicPlayer.Open(mName)
}
//-->
</script>
</tr>
</table>
</td>
</tr>
<tr>
<td width="470" colspan="2">
<p align="center">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -