📄 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")
filmname=request("urllookid")
if isnumeric(articleid)=false or isnumeric(urlid)=false 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"
set rsl=server.createobject("adodb.recordset")
rsl.open "select urlopen from home",conn,1,3
if rsl("urlopen")<>0 then
real=conn.execute("select url from movieurl where id="&urlid&"")(0)
ipsip=conn.execute("select ipsip from movie where id="&serverip&"")(0)
ipsip=ipsip&real
%>
<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=<%=ipsip%>">
<SCRIPT LANGUAGE="JavaScript">
<!--
window.onload=function test(){
}
setTimeout("window.opener=null;window.close()",1000);//1秒后关闭
//-->
</SCRIPT>
<%end if
rsl.close
set rsl=nothing
%>
<html>
<head>
<title>【<%=rs("title")%> <%=filmname%>】- 如果始终在连接状态，可关掉播放窗口重新点播!</title>
<Script Language="JavaScript">
if(window.name!="<%=homes%>"){window.location='index.html';}
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}
</Script>
<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>
</head>
<body bgcolor="#000000" text="#ffffff" leftmargin="0" topmargin="0" onload="window.moveTo(80,80)">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<object width="100%" height="100%" name="RP1" id="RP1" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA">
<param name="_ExtentX" value="26564">
<param name="_ExtentY" value="15452">
<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="0">
<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="../images/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="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="-1">
<param name="SRC" value="govodurl.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></td>
</table>
</td>
<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></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
<% response.end
end if
if LockIP(Request.ServerVariables("REMOTE_ADDR")) then
response.write"<script>alert('您的IP已经被限制不能访问本系统，请和管理员联系！！');window.close();</Script>"
response.end
end if
'用户IP限制
function LockIP(sip)
dim str1,str2,str3,str4
dim num
LockIP=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
sql="select count(*) from LockIP where ip1 <="&num&" and ip2 >="&num&""
set rs_ip=conn.execute(sql)
if rs_ip(0)>0 then
LockIP=true
end if
set rs_ip=nothing
end if
end if
end function
i=0
articleid=request("film2")
urlid=request("film1")
if isnumeric(articleid)=false or isnumeric(urlid)=false then
response.redirect "error.asp?id=4"
response.end
end if
if chkcookie(request.cookies("userid"))="" or request.cookies("password")="" then
response.write "<script language=javascript>{window.alert('对不起，你还未登陆，请从首页登陆！');window.open('login.asp');window.close();}</script>"
response.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -