📄 down.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>蚂蚁影院-电影下载</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="css/style.css" rel=stylesheet type=text/css>
</head>
<% Response.Expires=0
dim sql
dim rs
articleid=clng(request("id2"))
urlid=clng(request("id1"))
if articleid="" or urlid="" then
response.write"非法操作"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select serverip,canlook,movietype,title from learning where articleid="&articleid
rs.open sql,conn,1,1
serverip=rs("serverip")
okip=Request.Servervariables("HTTP_X_FORWARDED_FOR")
If okip="" Then okip=Request.Servervariables("REMOTE_ADDR")
set rst8=server.createobject("adodb.recordset")
sql="select okip,testok,endtimes from okip where okip='"&okip&"'"
rst8.open sql,conn,1,1
if rst8.eof and rst8.bof then
if Replace(request.cookies("userid"), "'", "''")="" or Replace(request.cookies("password"), "'", "''")="" then
%>
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.userid.value=="")
{
alert("请输入用户名！");
document.search.userid.focus();
return false;
}
if (document.search.password.value=="")
{
alert("请输入密码！");
document.search.password.focus();
return false;
}
return true;
}
-->
</script>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">
<%
if LockIP(Request.ServerVariables("REMOTE_ADDR")) then%>
<body bgcolor="#282828">
</p>
<p> </p>
<p> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="223">
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="233" id="AutoNumber1" cellpadding="4" height="109">
<tr>
<TABLE cellSpacing=0 cellPadding=0 width=350 align=center border=0>
<TR>
<TD><IMG src="images/mixtop.gif"></TD>
</TR>
<TR>
<TD background=images/mediatop2.gif height=27> </TD>
</TR>
<TR>
<TD background=images/mixmediabg.gif> <TABLE cellSpacing=0 cellPadding=0 width=328 align=center bgColor=#c3ef29
border=0>
<TBODY>
<TR>
<TD align=middle background=images/logotopbg.gif>
<p align="center">
<font size="2" color="#FFFFFF">系统提示！！</font></TD>
</TR>
<TR>
<TD> <table cellspacing=0 cellpadding=3 width="100%" border=0>
<tbody>
<tr>
<td align=right width="105%" height=76>
<p align="center">您的IP已经被限制不能访问本系统，请和管理员联系</td>
</tr>
</table></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD><IMG src="images/mixend.gif"></TD>
</TR>
</TABLE>
</tr>
</table>
</td>
</tr>
</table>
</form>
</center>
<%
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
%>
</p>
<p> </p>
<p> </p>
<div align="center">
<center>
<form method="POST" action="userpass.asp" name="search" onsubmit="return checkinput()">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="223">
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="233" id="AutoNumber1" cellpadding="4" height="109">
<tr>
<TABLE cellSpacing=0 cellPadding=0 width=350 align=center border=0>
<TR>
<TD><IMG src="images/mixtop.gif"></TD>
</TR>
<TR>
<TD background=images/mediatop2.gif height=27> </TD>
</TR>
<TR>
<TD background=images/mixmediabg.gif> <TABLE cellSpacing=0 cellPadding=0 width=328 align=center bgColor=#c3ef29
border=0>
<TBODY>
<TR>
<TD align=middle background=images/logotopbg.gif>
<p align="center">
<font size="2" color="#FFFFFF">点播观看影视,请先<b>登陆</b>！</font></TD>
</TR>
<TR>
<TD> <table cellspacing=0 cellpadding=3 width="100%" border=0>
<tbody>
<tr>
<td align=right width="40%" height=25><font
color=#3b591b>用户名：</font></td>
<td width="65%">
<input class=button2
onFocus=javascript:this.select(); size=14 name=userid></td>
</tr>
<tr>
<td align=right width="40%" height=13><font
color=#3b591b>密 码：</font></td>
<td>
<input class=button2 onFocus=javascript:this.select();
type=password size=14 name=password></td>
</tr>
<tr>
<td align=right width="40%" height=13><font
color=#3b591b>验证码：</font></td>
<td>
<INPUT class=button2 maxLength=4 name=validateCode
onfocus=javascript:this.select(); size=6><script src="verify.asp"></script></td>
</tr>
<tr>
<td align=middle colspan=2 height=25>
<input class=button1 type=submit value="提 交" name=oker>
<input class=button1 type=reset value="重 置" name=B2>
<input type="reset" name="Submit2" value="注 册" class="button1" onclick="window.open('reguser.asp','','');self.close();"></tr>
</table></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD><IMG src="images/mixend.gif"></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</form>
</center>
</div>
<%response.end
else
Set lrs= Server.CreateObject("ADODB.Recordset")
sql="select * from online where username='"&Replace(request.cookies("userid"), "'", "''")&"'"
lrs.open sql,conn,1,3
if lrs.eof then
onli=1
end if
sqll="select * from users where userid='"&Replace(request.cookies("userid"), "'", "''")&"'"
set rsl=server.createobject("adodb.recordset")
rsl.open sqll,conn,1,1
if request.cookies("login")<>rsl("login") or onli=1 then
%>
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.userid.value=="")
{
alert("请输入用户名！");
document.search.userid.focus();
return false;
}
if (document.search.password.value=="")
{
alert("请输入密码！");
document.search.password.focus();
return false;
}
return true;
}
-->
</script>
<title></title>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">
</p>
<p> </p>
<p> </p>
<div align="center">
<center>
<form method="POST" action="userpass.asp" name="search" onsubmit="return checkinput()">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="223">
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="233" id="AutoNumber1" cellpadding="4" height="109">
<tr>
<TABLE cellSpacing=0 cellPadding=0 width=350 align=center border=0>
<TR>
<TD><IMG src="images/mixtop.gif"></TD>
</TR>
<TR>
<TD background=images/mediatop2.gif height=27> </TD>
</TR>
<TR>
<TD background=images/mixmediabg.gif> <TABLE cellSpacing=0 cellPadding=0 width=328 align=center bgColor=#c3ef29
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -