📄 admin_lockip.asp
字号:
<!--#include file =admin_chk.asp -->
<!--#include file =Include/NIncHeads.asp -->
<%
If Not ChkAdmin("LockIP") Then
Call ArtErr("","")
End If
%>
<!--#include file="../Include/lockip/lockipfun.asp"-->
<%
dim ipid,ipcls,ipurl,blogurl
ipid=Request.QueryString("id")
ipcls=Request.QueryString("cls")
ipurl="admin_LockIP.asp"
blogurl="admin_blog.asp"
Select case ipcls
case ""
case "del"
conn.execute("Delete From Art_LockIP Where id="&ipid)
Call ArtErr("<li>IP删除成功！</li>","2")
case "open"
conn.execute("Update Art_LockIP set viw=0 Where id="&ipid)
Call ArtErr("<li>IP已开通！</li>","2")
case "close"
conn.execute("Update Art_LockIP set viw=1 Where id="&ipid)
Call ArtErr("<li>IP已禁止！！</li>","2")
end Select
if Request.Form("Submit")="提交" then
dim oneip,endip
oneip=trim(Request.Form("oneip"))
endip=trim(Request.Form("endip"))
call fishadminip(oneip)
call fishadminip(endip)
Set rs1 = Server.CreateObject("ADODB.RecordSet")
sql="Select * from Art_LockIP"
rs1.open sql,conn,2,3
rs1.addnew
rs1("oneip")=fishadmincip(oneip)
rs1("endip")=fishadmincip(endip)
rs1("ip1")=oneip
rs1("ip2")=endip
rs1("rdate")=now()
rs1("viw")=1
rs1.update
rs1.close
Call ArtErr("<li>IP添加成功！</li>","2")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''2008_01_17增加登陆日志中IP锁定'''''''''''''''''''''''''''''''''''''''''''
dim HOPE_action,HOPE_IP
HOPE_action=Trim(Request("HOPE_action"))
if HOPE_action="Add" then
HOPE_IP=Trim(Request("HOPE_IP"))
oneip=HOPE_IP
endip=HOPE_IP
call fishadminip(oneip)
call fishadminip(endip)
Set rs2 = Server.CreateObject("ADODB.RecordSet")
sql="Select * from Art_LockIP"
rs2.open sql,conn,2,3
rs2.addnew
rs2("oneip")=fishadmincip(oneip)
rs2("endip")=fishadmincip(endip)
rs2("ip1")=oneip
rs2("ip2")=endip
rs2("rdate")=now()
rs2("viw")=1
rs2.update
rs2.close
Call ArtErr("<li>IP添加成功！</li>","2")
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''增加结束''''''''''''''''''''''''''''''''''''''''''''''''
top_ip= Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If stop_ip= "" Then stop_ip= Request.ServerVariables("REMOTE_ADDR")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>IP管理器_IP管理系统ver 1.0 </title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
</head>
<% Call Heads_safe()%>
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
<tr> <td align="center"> 欢迎您，管理员！您当前IP：<%=stop_ip%></td></tr>
<tr><td>
<form name="form1" method="post" action="">
<TABLE width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8" bgcolor="#FFFFFF">
<tr>
<td width="26%" height="30"><b><u>添加封锁IP段:</u></b><br>
<span class="redtext">如：128.0.0.0 --- 255.255.255.255</span><br>
<span class="greentext">这个IP段是全段IP,即所有IP<br>
如：</span><span class="redtext">封锁单个IP,请将起始IP与结束IP设为一样即可</span> </td>
<td width="70%"> <input name="oneip" type="text" id="oneip"> <font color="#FF0000">————</font> <input name="endip" type="text" id="endip"> <input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
<br>
</form>
<% set rs1=conn.execute("select * from Art_LockIP")%>
<TABLE width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#658BD8" bordercolordark="#FFFFFF" bgcolor="#FFFFFF" wwidth="100%">
<TBODY>
<TR >
<TD height=25 colspan="5" align="center"><b>IP封锁信息</b></TD>
</TR>
<TR>
<td align="center" height="25" class="forumRowHighlight">状态</td>
<td align="center" height="25" class="forumRowHighlight">起始</td>
<td align="center" height="25" class="forumRowHighlight">终止</td>
<td align="center" height="25" class="forumRowHighlight">时间</td>
<td align="center" height="25" class="forumRowHighlight">操作</td>
</tr>
<%
ipi=0
do while not rs1.eof
ipi=ipi+1
%>
<tr>
<td height="25" align="center">
<%
if rs1("viw")=0 then
Response.write("<font color='#009900'>")
end if
if rs1("viw")=1 then
Response.write("<font color='##FF0000'>")
end if
Response.write("●</font>")
%>
</td>
<td height="25" align="center"><%=rs1("ip1")%></td>
<td height="25" align="center"><%=rs1("ip2")%></td>
<td height="25" align="center"><%=rs1("rdate")%></td>
<td height="25" align="center">
<a href="?cls=open&id=<%=rs1("id")%>">开通</a>
<a href="?cls=close&id=<%=rs1("id")%>">禁止</a>
<a href="?cls=del&id=<%=rs1("id")%>" onClick="return confirm('删除一个IP段？！\n\n该操作不可恢复！可以设为开通,保留这个段.\n\n要删除请按[确定]\n\n不小心按错按[取消]反回！')">删除</a>
</td>
</tr>
<tr>
<td height="1" class="jd_title" colspan="5" bgcolor="#E4F2FA"></td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<tr>
<td colspan="5"> </td>
</tr>
<tr>
<td colspan="5" height="25" align="center"><div align="center"><font color="#009900">●开通 </font> <font color="#FF0000"> ●禁止</font></div></td>
</tr>
</table><br>
<TABLE width="100%" height=0 border=1 align=center cellPadding=0 cellSpacing=0 class="unnamed1" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD height=25 bgcolor="#E4F2FA" >
<div align="center"><b>调用方法</b></div></TD>
</TR>
<TR>
<TD align=middle valign="top" > <div align="left">
<p>请将被限制的ASP页面加入以下文件,
(<span class="greentext">前提是在此之前必须调用数据库连接文件</span>)<br>
<span class="redtext"><!--#include file="Include/lockip/lockyou.asp"--></span><br>
任何ASP页面都可以使用这个IP管理器<br>
<br>
静态页面调用方法:(<span class="red">可在任何页面单独使用</span>)<br>
<span class="red"><script TYPE="text/javascript" language=" javascript"src="Include/lockip/js_lockyou.asp "></script></span><br>
</p>
<p>0.0.0.0 ---- 127.255.255.255<br>
128.0.0.0 --- 255.255.255.255</p>
<p>这两个IP段是全段IP,即所有IP(因为本功能采用的IP算法是分开两段的)<br>
如封锁单个IP,请将起始IP与结束IP设为一样即可.</p>
<p> </p>
</div></TD>
</TR>
</TBODY>
</TABLE>
</td></tr></table>
<% Call AdminPageEnd()
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -