① 如何禁止特定IP访问自己网站
在不同的环境下有很多技术可以实现这个功能：
如果是家用宽带路由器，在路由器上设置黑名单就可以禁止指定的IP访问自己的路由器上网。；
如果是企业网环境，可以在交换机或路由器上设置ACL来禁止指定的IP访问；
如果是一个服务器，可以使用防火墙或其他工具来禁止指定的IP访问自己的网站。
但禁止指定的IP访问自己的网站不是一个很好的防范措施，因为别人可以通过修改IP地址来绕开你的禁止。可以使用其他，如账号、MAC地址等方式来限制。
② 如何限制IP访问我的网站
登入到你的主机管理面板,里面有个IP地址访问限制.根据提示在那里面填上你要限制的IP地址就OK了,
如果你可以直接管理你网站服务器的IIS,那么可以在IIS里设置,如:右击你的网站,选择属性->目录安全性->IP地址和域名限制->编辑->然后,根据提示在那里面填上你要限制的IP地址就OK了.
③ 如何禁止服务器IP访问网站
禁止服务器IP访问网站的方法如下（以CNZZ为例）：
登录CNZZ
2.设置需禁止的网站
3.排除IP
4.填写IP，确定即可
④ 如何限制只有中国的IP可以访问网站
你可以再session
start的时候判断
访问的IP地址，如果该IP地址不是你所希望的直接跳转到其他页面或不响应它。
或者建立一个IP表，当请求的IP不在该列表中，自动跳转或不响应。
⑤ 如何限制某些ip段访问我的网站
在你的IIS上做限制啊!
⑥ 如何限制访问指定IP的网站
打开Internet选项
步骤：
浏览器--工具--安全--选择受限站点，就可以设置了
⑦ 如何限制电脑访问 IP类型网站
步骤1：打开“控制面板→管理工具→本地安全策略”，然后右击“IP安全策略，在本地机器”选“管理IP筛选器和IP筛选器操作”，取消选中“使用添加向导”，在管理IP筛选器和IP筛选器操作，列表中添加一个新的过滤规则，名称输入“拒绝访问”，然后按添加，在源地址选“一个特定的IP地址”在IP地址中填入115.29.30.225 ，目标地址选我的IP地址，协议类型为“任意”，去掉“镜像。同时...”前面的对勾，设置完毕。
步骤2：在“管理筛选器操作”，取消选中“使用添加向导”，添加，在常规中输入名字“阻止”，安全措施为“阻止”。确定。
步骤3：点击“IP安全策略，在本地机器”，选择“创建IP安全策略-下一步-输入名称为“拒绝115.29.30.225 访问”，取消选中“激活默认相应规则”，完成，在弹出来的“拒绝访问属性”窗口中，在IP筛选器列表中选择“决绝访问”，在筛选期操作中选择“阻止”，确定，然后右击“拒绝115.29.30.225 访问”并启用。
完成！
⑧ 怎样编写一个限制IP访问的网页
<%
Dim ip
ip=Request.ServerVariables("REMOTE_ADDR")
'先判断是否是特定的两个IP
If ip="192.168.18.7" Or ip="192.168.66.9" Then
response.write "正确"
response.End
End If
'是,则不进行下面的判断,注意response.end
ip=Split(ip,".")
'下面一行是检测是否是192.168开头的.
If ip(0)=192 And ip(1)=168 Then
'如果是,则检测是192.168.1.*或者是192.168.2.* 如果是,则输出正确
If ip(2)=1 Or ip(2)=2 Then
response.write "正确"
End If
Else
response.write "出错了"
End If
%>
⑨ 如何限制某ip段不能访问网站
研究了一下ip屏蔽技术，在高手的指点下如今该屏蔽系统总算略有成效，不断改进中，嘿嘿……
如下代码希望大家多多指点多多改良……
<%
Set FsA=Server.CreateObject("Scripting.FileSystemObject")
Set StrFileA=FsA.OpenTextFile(Server.MapPath("/AllowIP.Txt"))
Do While StrFileA.AtEndOfStream<> True
Str1=StrFileA.ReadLine()
If Str1<>GetUserIP() Then
V=True
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
Set StrFile=Fs.OpenTextFile(Server.MapPath("/Ip.txt"))
Do While StrFile.AtEndOfStream <> True
Str=StrFile.ReadLine()
fary=split(Str,"-")
'获取拒绝访问的IP地址段
DenyIP1=fary(0)
DenyIP2=fary(1)
V_IP = Enaddr(GetUserIP())
Ip1 = Enaddr(DenyIP1)
Ip2 = Enaddr(DenyIP2)
'当前客户段IP存在拒绝访问的地址内，跳出循环
If V_IP>=IP1 And V_IP<=IP2 Then
V=False
Exit Do
End If
Loop
Set Fs=Nothing
If V=False Then
Response.Redirect("/Error.htm")
Response.End()
End If
End If
Loop
Set StrFileA=Nothing
'IP转数字
Function EnAddr(Sip)
esip=cstr(sip)
str1=Left(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
EnAddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
End Function
'数字转IP
Function DeAddr(Sip)
sip=sip+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
DeAddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
End Function
'**************************************************
'函数名：GetUserIP
'作 用：获取用户的真实IP地址
'返回值：当前获得的用户IP地址
'**************************************************
Function GetUserIP()
Dim StrIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
StrIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
StrIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
StrIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
StrIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
GetUserIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>
然后在文件夹下架两个记事本文件AllowIP.txt和IP.txt就可以了，嘿嘿，简单吧，知道了就简单了。
好了给我加分
能弄起服务器 有钱买路由器吧？60元金浪的带防火墙 单机器也能用路由，在路由里面访问控制 设置一下。很简单。
⑩ 如何在页面中代码设置禁止某个ip访问网站重谢啊.....
一个简单的封少量IP的ASP代码：
<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|219.142.118.71|127.0.0.1|"
'获取IP地址
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then
response.write "你的IP被禁止"
response.end
End If
response.Write("你的IP:"&IP&"可以访问本站")
%>
禁止某个IP段访问：
<%
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
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)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
function Num2IP(nip)
iip1 = int(nip/256/256/256)
iip2 = int((nip-iip1*256*256*256)/256/256)
iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4
Num2IP = iip0
end function
userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
if userIPnum > IP2Num("192.168.3.0") and userIPnum < IP2Num("192.168.3.255") then
response.write ("<center>此IP被禁止</center>")
response.end
'页面ASP解释结束
end if
%>
显示内容
上例是禁止192.168.3.0——192.168.3.255之内的所有IP看到下面的显示内容。如果是要禁止访问整个页面，那只需要把这段代码放到开头就可以限制访问页面了。