① 如何禁止特定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看到下面的顯示內容。如果是要禁止訪問整個頁面，那隻需要把這段代碼放到開頭就可以限制訪問頁面了。