admin_ip.asp

限制IP访问系统 限制连续或单个ip访问 添加单个就只填起始IP就可以了 一： 在数据库中添加一个“ip”表 id－自动编号 IP_start－数字－双精度型 IP_end－数字

<!--数据库链接文件-->
<!--#include file="conn.asp"-->
<!--加上身份验证的文件 防止非管理员登陆-->
<title>限制IP访问</title>
<style>
body,p,td { font-family:Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:9pt; color:#000000 }

INPUT { BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px;
 BORDER-LEFT-WIDTH: 1px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px;
 PADDING-BOTTOM: 1px; PADDING-TOP: 1px; HEIGHT: 18px;
 BORDER-LEFT-COLOR: #c0c0c0; BORDER-BOTTOM-COLOR: #c0c0c0;
 BORDER-TOP-COLOR: #c0c0c0; BORDER-RIGHT-COLOR: #c0c0c0;
 background-color: #ffffff; CURSOR: HAND;
 FONT-SIZE: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; COLOR: #000000;
}
select { border-width: 1; border-color: #c0c0c0; background-color: #ffffff;
 font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size:9pt; CURSOR: HAND; COLOR: #000000;
}
a { COLOR: #333333; TEXT-DECORATION: none }
a:hover { COLOR: #FF3300; TEXT-DECORATION: underline }
</style>
<%
dim action
action=request.querystring

if action="save" then
	call saveip
elseif action="write" then
	call writeip
elseif request("action")="del" then
	id=htmlencode(request("id"))
	conn.Execute "delete from ip where id="&id
	response.Write "<script>alert(""删除成功"");location.href=""admin_ip.asp"";</script>"
else
	call listip
end if

sub listip()
%>
<br>
<table width="600" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#333333" style="line-height:20px;">
  <tr>
    <td width="240" align="center" bgcolor="#FFFFFF">起始IP</td>
    <td align="center" width="240" bgcolor="#FFFFFF">结束IP</td>
    <td align="center" width="120" bgcolor="#FFFFFF"><a href="?write"><b>添加</b></a></td>
  </tr>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from ip"
rs.open sql,conn,0,1
while not rs.eof
%>
  <tr>
    <td align="center" bgcolor="#FFFFFF"><%=DeIP(rs("ip_start"))%></td>
    <td align="center" bgcolor="#FFFFFF"><%=DeIP(rs("ip_end"))%></td>
    <td align="center" bgcolor="#FFFFFF"><a href="?action=del&id=<%=rs("id")%>">删除</a></td>
  </tr>
<%
rs.movenext
wend
%>
</table>
<%
end sub

sub saveip()
ip_start=EnIP(request.form("ip_start"))
ip_end=request.form("ip_end")
if ip_end="" then
	ip_end=ip_start
else
ip_end=EnIP(ip_end)
end if
if ip_start>ip_end then
dim temp_ip
temp_ip=ip_start
ip_start=ip_end
ip_end=temp_ip
end if

set rs = server.createobject("adodb.recordset")
sql="select * from ip where ip_start="&ip_start&" and ip_end="&ip_end
rs.open sql,conn,1,3
if rs.eof then
	rs.addnew
	rs("ip_start")=ip_start
	rs("ip_end")=ip_end
	rs.update
	response.Write "<script>alert(""保存成功"");location.href=""admin_ip.asp"";</script>"
else
	response.Write "<script>alert(""保存失败\nip地址已存在"");location.href=""admin_ip.asp"";</script>"
end if
end sub

sub writeip()
%>
<br>
<form name="form" method="post" action="?save">
<table width="400" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#333333" style="line-height:20px;">
  <tr>
    <td width="80" align="center" bgcolor="#FFFFFF">起始</td>
    <td align="center" bgcolor="#FFFFFF"><input type="text" name="ip_start">&nbsp;<font color="#FF0000">*</font></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#FFFFFF">结束</td>
    <td align="center" bgcolor="#FFFFFF"><input type="text" name="ip_end">&nbsp;&nbsp;&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="提交" onclick="if(document.form.ip_start.value==''){alert('请 起始IP 地址');return false;}">&nbsp;<a href="admin_ip.asp">返回</a></td>
  </tr>
</table>
</form>
<%
end sub
%>