ASP限制一个IP访问代码

来源：百度知道 编辑：UC知道 时间：2024/04/29 13:50:39
我们在本市区内有一个内部网站．
但是要禁止 几个独立的市内IP访问．
这个代码怎么写．
比如内网有一个网站／IP为192.168.1.1-192.168.1.255
我想限制 192.168.1.9和192.168.1.133还有192.168.1.200不能访问这个站点．谢谢大家

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

内网没必要搞那么复杂吧
<%
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
%>

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

'先取得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("H