Question

ASP限制一个IP访问代码

我们在本市区内有一个内部网站．
但是要禁止 几个独立的市内IP访问．
这个代码怎么写．
比如内网有一个网站／IP为192.168.1.1-192.168.1.255
我想限制 192.168.1.9和192.168.1.133还有192.168.1.200不能访问这个站点．谢谢大家

我积分也不多．感谢大家回答．做个朋友
我的页面是HTML页面．我对这个也不很了解．加上了．好像还是不管用

Answer 1

在网页的头部文件放下以下代码：

'先取得IP访问用户的IP地址:

Private Function getIP()
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)
actforip=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)
actforip=Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
actforip=Request.ServerVariables("REMOTE_ADDR")
End If
getIP = CheckStr(Trim(Mid(strIPAddr, 1, 30)))
End Function
getIP()
if ((getIP<>"192.168.1.9") or (getIP<>"192.168.1.133") or (getIP<>"192.168.1.200")
then
Response.End '停止运行下面的代码
end

Answer 2

内网没必要搞那么复杂吧
<%
Dim BadIp
BadIp=Request.ServerVariables("REMOTE_HOST")
if BadIp="192.168.1.9" or BadIp="192.168.1.133" or BadIp="192.168.1.200" then
response.end
end if
%>

Answer 3

getipaddress = request.ServerVariables("HTTP_X_FORWARDED_FOR")
if getipaddress = "" then getipaddress = request.ServerVariables("REMOTE_ADDR")

If getipaddress<>"192.168.1.9" or getipaddress<>"192.168.1.133" Then
Response.Write ("对不起，您无权访问!")
Response.End()
End If

这是如果限制IP少的情况,如果是限制IP段最好用数组了.

如果用代理:Request.ServerVariables("REMOTE_HOST") 就取不到值了

HTML不行的,做成asp