关于限制IP地址访问网站的问题(网站制作)

来源：百度知道编辑：UC知道时间：2024/05/17 05:39:21

各们高手,我的制作一个网站,但是需要限制一定的IP访问.具体就是只能让10.129.208.1-10.129.211.255这一段IP地址访问这个网站,别的网站在访问的时候,只显示"禁止访问"等字样就可以了.我曾经在网上找到过一段代码:
<%
'获取访问者的地址
ip=Request.ServerVariables("REMOTE_ADDR")

'允许的IP地址段为10.129.208.1～10.129.211.255
allowip1="10.129.208.1"
allowip2="10.129.211.255"
response.write checkip(ip,allowip1,allowip2)
function checkip(ip,allowip1,allowip2)
dim check(4)
checkip=false
ipstr=split(ip,".")
allow1=split(allowip1,".")
allow2=split(allowip2,".")
if cint(allow1(0))>cint(allow2(0)) then '判断IP地址段是否合法
response.write "禁止访问"
exit function
end if
for i=0 to ubound(ipstr)
if cint(allow1(i))<cint(allow2(i)) then
if cint(allow1(i))=cint(ipstr(i)) then
check(i)=true
checkip=true
exit for
else
if cint(ipstr(i))<cint(allow2(i)) then
check(i)=true
checkip=true<

<%
'自己写了一个，你看看行不行
'时间仓促，没有对IP的合法性进行判断，以后再完善一下

ip="10.129.209.255" '测示用，实际应用时，修改为:ip=getTrueIP
allowip1="10.129.208.1"
allowip2="10.129.211.255"

ChkIP=((cpIP(allowip1,ip) And cpIP(ip,allowip2)) Or (cpIP(allowip2,ip) And cpIP(ip,allowip1)))

if ChkIP then
response.write "IP通过验证！" '实际应用时，可将此句注示掉
else
response.write "所在IP没有访问本站权限！"
response.end
end if

'函数名：cpIP(ip1,ip2)
'比较IP1，IP2大小，如果IP1<=IP2,返回TRUE
'weiwei at 2006-11-28
Function cpIP(ip1,ip2)
minIPcx=Split(ip1,".")
maxIPcx=Split(ip2,".")
cpIPx=true
For ic_i=0 To UBound(minIPcx)
If CInt(minIPcx(ic_i))>CInt(maxIPcx(ic_i)) Then
cpIPx=false
Exit for
ElseIf CInt(minIPcx(ic_i))<CInt(maxIPcx(ic_i)) Then
Exit for
End I

关于限制IP地址访问网站的问题(网站制作) 关于限制网站访问区域（或者ip段）的问题 ip 地址访问限制 IP限制访问问题，网站高手进！想查看一个网站，但网站却限制访问的IP地址，有办法更改IP或突破限制么？限制IP访问网站次数的办法? 如何限制IP访问我的网站如果限制计算机禁止访问某个IP地址或网站!??? 请问静态网站html实现ip 地址访问限制的设置代码关于IIS设置的用ip地址访问的问题？