📄 play_movie.asp
字号:
<%response.end
end if
elseif rst("oklook")<3 then
if rst("dnlook")>30 then '每天可看30集%>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">
<p> </p>
<p> </p>
<div align="center">
<center>
<table border="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" bgcolor="#666666" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1">
<tr>
<td>
<div align="center">
<center>
<table border="0" bgcolor="#666666" cellspacing="0" cellpadding="2" width="350" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="342"><font color="FFFFFF">¤</font><font color="FFFFFF" size="2">出错提示</font></td>
<td width="18">
<table border="1" bordercolorlight="666666" bordercolordark="FFFFFF" cellpadding="0" bgcolor="E0E0E0" cellspacing="0" width="18">
<tr>
<td width="16"><b>
<a href="javascript:history.go(-1)" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="关闭">
<font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<table border="0" width="350" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="109">
<tr>
<td width="54" align="center" valign="middle" bgcolor="#E0E0E0" height="72">
<font face="Wingdings" color="#666666" size=7>L</font></td>
<td width="280" bgcolor="#E0E0E0" height="72" style="font-size: 9pt">
您是白银会员今天观看/下载已经超过30集！请明天再观看吧！<br><br>三种付费方式：<br><br> <a onclick="window.open(this.href,'','location=no,menu=no,scrollbars=yes,resizable=no,top=0,left=0,width=578,height=510');return false;" href="mb_reg.asp" target="_blank"><font color="#ff0000">1.手机/小灵通注册送无限制VIP黄金会员>></font></a><br><br> <a target="_blank" href="member/user_pay_net.asp"><font color="#FF0000">2.有银行卡的用户可选择10秒钟网上在线支付>></font></a><br><br> <a target="_blank" href="member/user_pay_168.asp"><font color="#FF0000">3.</font></a><a target="_blank" href="member/user_pay_other.asp"><font color="#FF0000">银行邮局汇款、上门支付>></font></a></td>
</tr>
<tr>
<td colspan="2" align="center" valign="top" bgcolor="#E0E0E0" width="342" height="21">
<input type="button" name="ok" value=" 确 定 " onclick="javascript:window.close()"> </td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<%response.end
end if
end if
tdate=date()
if rst("lasthits")=tdate then
sql="update users set dnlook=dnlook+1,nlook=nlook+1 where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
conn.Execute(sql)
else
conn.Execute("update users set dnlook=1,lasthits='"&tdate&"' where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'")
end if
set rst=server.createobject("adodb.recordset")
sql="select money,nlook,oklook,lasthits,dnlook from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
rst.open sql,conn,1,3
'if rst("oklook")<3 then
'response.write "^-^只有黄金会员以上级别才能在线看电影"
'response.end
'end if
set rsb=server.createobject("adodb.recordset")
rsb.open "select * from tolook",conn,1,3
rsb.addnew
rsb("title")=rs("title")
rsb("userip")=request.servervariables("remote_addr")
rsb("userid")=request.cookies("userid")
rsb("lookordown")="在线"
rsb.update
rsb.close
set rsb=nothing
response.cookies(""&urlid&"")="yes"
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#000000" scroll="no" marginwidth="0" leftmargin="0" topmargin="0" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">
<script language="JAVASCRIPT">
<!-- Begin
var ap_name = navigator.appName;
var ap_vinfo = navigator.appVersion;
var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf('(')));
var time_start = new Date();
var clock_start = time_start.getTime();
var dl_ok=false;
function init ()
{
if(ap_name=="Netscape" && ap_ver>=3.0)
dl_ok=true;
return true;
}
function get_time_spent ()
{
var time_now = new Date();
return((time_now.getTime() - clock_start)/1000);
}
function show_secs ()
{
var i_total_secs = Math.round(get_time_spent());
var i_secs_spent = i_total_secs % 60;
var i_mins_spent = Math.round((i_total_secs-30)/60);
var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);
var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);
document.fm0.time_spent.value = s_mins_spent + ":" + s_secs_spent;
window.setTimeout('show_secs()',1000);
}
init();
window.setTimeout('show_secs()',1);
// End -->
</script>
<div align="center">
<center>
<table border="0" cellspacing="0" width="337" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<% if rs("movietype")="rm" then%>
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="373" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
<tr>
<td width="193" height="1" bgcolor="#E0E0E0">
<p align="left"><font size="2">欢迎观看：<%=rs("title")%></font></td>
<form name="fm0" onSubmit="0">
<td width="42" height="1" bgcolor="#E0E0E0">
<input type="text" name="time_spent" size="5" onFocus="this.blur()" style="border-style: groove; border-width: 1; background-color: #EEEEEE"></td>
</form>
<td width="132" 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">
<font size="2"><span lang="en-us">ESC</span>返回</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<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://51cd.com/2.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="373" height="292">
<param name="_ExtentX" value="9869">
<param name="_ExtentY" value="7726">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="SRC" value="play_url.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="373" HEIGHT="28">
<param name="_ExtentX" value="9869">
<param name="_ExtentY" value="741">
<param name="AUTOSTART" value="-1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="SRC" value="play_url.asp?urlid=<%=urlid%>&serverip=<%=serverip%>">
<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>
<script language="javascript">
player.SetEnableContextMenu(false);
player.SetWantErrors(true);
</script>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
response.end
%> </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="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="108%" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">
<tr>
<td width="50%" height="1" bgcolor="#E0E0E0">
<p align="left"><font size="2">欢迎观看：<%=rs("title")%></font></td>
<form name="fm0" onSubmit="0">
<td width="6%" height="1" bgcolor="#E0E0E0">
<input type="text" name="time_spent" size="5" onFocus="this.blur()" style="border-style: groove; border-width: 1; background-color: #EEEEEE"></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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -