📄 open1.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="inc/config.asp"-->
<%=timmb%><%=timemb%><%=mbname%><%=why%>
<%'网吧用户IP自动登录
function LockmbIP(sip)
dim str1,str2,str3,str4
dim num,csk
lockmbIP=false
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
else
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
sql20="select count(*) from goip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
set csk=conn.execute(sql20)
Set csk3=Server.CreateObject("ADODB.Recordset")
sql21="select * from goip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
csk3.open sql21,conn,1,3
if csk3.eof and csk3.bof then
else
mbname=csk3("mbname")
timmb=csk3("tim")
timemb=csk3("time")
why=csk3("why")
sip1=csk3("sip1")
sip2=csk3("sip2")
end if
if csk(0)>0 then
lockmbIP=true
end if
set csk=nothing
end if
end if
end function
if LockmbIP(Request.ServerVariables("REMOTE_ADDR")) then
if now() > timemb then
response.write"<script>alert('您的网吧帐号已经到期请尽快续费！\n\n到期日期："& timemb &"');window.close();</Script>"
response.end
end if
dim sql
dim rs
articleid=request("film2")
urlid=request("film1")
if articleid="" or urlid="" then
response.redirect "error.asp?id=4"
response.end
end if
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")
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")=mbname
rsb("lookordown")="网吧在线"
rsb("looktime")=now()
rsb.update
rsb.close
set rsb=nothing
response.cookies(""&urlid&"")="yes"
%>
<html>
<head>
<title>万众电影-播放器</title>
<Script Language="JavaScript">
IEvar=navigator.appVersion.substring(navigator.appVersion.indexOf('MSIE')+5,navigator.appVersion.indexOf(';',17));
if(IEvar=="6.0")
{
ie6 = true;
width_add = 10;
height_add = 29;
jjjj = 5;
hand_add = -14;
}
else
{
ie6 = false;
width_add = 0;
height_add = 0;
jjjj = 0;
hand_add = 0;
}
b_width = 0;
b_height = 0;
//屏蔽右键
function no_newwin(){
if((event.ctrlKey)&&(event.keyCode==78)){
event.keyCode=0;
event.returnValue=false;
}
}
function click()
{
return false;
}
document.oncontextmenu=click;
document.onmousemove=click;
document.ondragstart=doDragStart
function doDragStart() {event.returnValue=false}
//-----------------------------------------------------------------------------------------
var Real;
Real='rPlayer.';
var Mute=false;
var CanSetPos=true;
var SetPosStart=false;
var SetVolStart=false;
var loop, timer, initialised;
var speed=50;
var oldwidth=566,oldheight=502;
moveon=false;movelen=300;rm_tollen=0;timelen=0;volumlen=56;iScrollLength=140;
document.onmouseup=Total_Up;
function Total_Up(){
if(event.button!=2){
if(SetPosStart){
setpos();
ballmove();
}
if(SetVolStart) setvol();
}
}
function moves()
{
if(CanSetPos&&event.button!=2)
{
orix=event.x;
orileft=mblock.style.pixelLeft;
if(moveon)
{
clearTimeout(balltime);
}
SetPosStart=true;
}
else
return false;
}
function ChangePos() {
newleft=event.x;
{
SetPosStart=false;
if (event.x < movelen+10)
newleft=event.x-10;
else
newleft=movelen-1;
if (event.x < 10)
newleft=0;
rm_tollen = GetLength();
rcp=Math.round((newleft/movelen)*rm_tollen);
SetPosition(rcp);
mblock.style.left = newleft;
play()
}
}
function movego()
{
if(SetPosStart)
{
newx=event.x;
disx=newx-orix;
newleft=orileft+disx;
if(newleft>-1&&newleft<movelen) mblock.style.left=newleft;
}
}
function setpos()
{
SetPosStart=false;
newleft=mblock.style.pixelLeft;
rm_tollen = GetLength();
rcp=Math.round((newleft/movelen)*rm_tollen);
SetPosition(rcp);
}
function vols()
{
if(event.button!=2)
{
orix=event.x;
orileft=vblock.style.pixelLeft;
SetVolStart=true;
}
}
function volgo()
{
if(SetVolStart)
{
newx=event.x;
disx=newx-orix;
newleft=orileft+disx;
if(newleft>5&&newleft<=volumlen) vblock.style.left=newleft;
}
}
function setvol()
{//设置音量
SetVolStart=false;
newleft=vblock.style.pixelLeft;
newvol=-(Math.round((volumlen-newleft)*2000/(volumlen-6)));
SetVolume(newvol);
}
function RealincreaseVolume(){
if(window.rPlayer!=null)
{
if(volumlen >= 100 )
volumlen = 100;
else
volumlen += 10;
rPlayer.SetVolume(volumlen);
}}
function RealdecreseVolume()
{
if(window.rPlayer!=null)
{
if(volumlen <= 0 )
volumlen = 0;
else
volumlen -= 10;
rPlayer.SetVolume(volumlen);
}}
//-----------------------------------------------------------------------------------------
function ballmove()
{//移动进度条
movelen = movie.style.pixelWidth-20;
aa = rPlayer.GetPosition();
dd = rPlayer.Getlength();
if (rPlayer.FILENAME!="" && isFinite(Math.round(aa/dd*movelen)))
{
mblock.style.left = Math.round(aa/dd*movelen);
}
balltime = setTimeout('ballmove();',1000);
}
function SetPosition(Pos)
{
eval(Real+'SetPosition(Pos)');
}
function SetVolume(Pos)
{
eval(Real+'Volume=Pos');
}
function SetFastForward()
{
if (rPlayer.CanScan)
eval(Real+'FastForward()');
}
function SetFastReverse()
{
if (rPlayer.CanScan)
eval(Real+'FastReverse()');
}
function GetLength()
{
return eval(Real+'GetLength()');
}
function GetPosition()
{
tt=eval(Real+'GetPosition()');
return tt*1000;
}
function SetMute(Status)
{
if (Status)
{
eval(Real+'Mute=true');
}
else
eval(Real+'Mute=false');
eval(Real+'Play()');
}
function FastpositionSet() {
if(window.rPlayer!=null)
{
var iLength=rPlayer.GetLength();
var iPosition=rPlayer.GetPosition();
var FastPosition=iLength/20;
if ((iPosition+FastPosition)<=iLength)
{
iPosition=iPosition+FastPosition;
rPlayer.SetPosition(iPosition);
}
}
}
function BackpositionSet() {
if(window.rPlayer!=null)
{
var iLength=rPlayer.GetLength();
var iPosition=rPlayer.GetPosition();
var BackPosition=iLength/20;
if (iPosition>=BackPosition)
{
iPosition=iPosition-BackPosition;
rPlayer.SetPosition(iPosition);
}
}
}
function ClickSound(aa)
{
if (Mute)
{
Mute=false;
SetMute(Mute);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -