Question

怎样编写一个限制IP访问的网页

已有一个ASP网站正在正常运行。现在要在该网站中制作一个新的网页。
该网页要求如下：
对于电脑IP是192.168.1.*和电脑IP是192.168.2.*和电脑IP是192.168.8.*的所有电脑以及电脑IP是192.168.18.7的单个电脑和电脑IP是192.168.66.9的单个电脑.
对于符合以上要求的电脑,访问该网页时,该网页显示:
您好!
对于不符合以上要求的电脑,访问该网页时,该网页显示:
您无权查看该网页.

请问该网页应该怎么写代码.
本人很菜，请写出完整代码。问题解决另有加分。
另：不要说可以在IIS里设置。因为我遇到的实际问题比较复杂，还涉及其它变量和数据库，在有些时候，还是这个网页，是允许所有IP访问的，如果在IIS里设置，那是任何时候所限制的IP都不能访问。如果在IIS里设置，是不能解决问题的。在这里，我只是把问题简单化了。
你只要按照我上面的描述的简单情况，帮我把这个简单情况解决，我就能解决我所遇到的情况。
在这里，先谢谢各位了。
---------------------------
网友 zhx蒴蒴 回答的对一个IP可以，但我要是针对一段IP，有那么多IP，怎么写代码？

Answer 1

<%
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
%>

Answer 2

一楼的设置权限,或者是zhx蒴蒴的方法,稍加扩展即可.就是做一个判断
<%
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
%>
你参考一下

Answer 3

写几个判断语句就可以了。一楼的方法也可以咯！

写几句你看看：

if Request.ServerVariables("REMOTE_ADDR") = "192.168.18.7 " then
response.Write "<script LANGUAGE='javascript'>alert('您无权查看该网页！');history.go(-1);</script>"
else
Response.Write("<script>window.location='index.asp';</script>")
end if

以下的句子都可以这样写咯。我对ASP也不是很精通哈。也是菜鸟一个，正在努力学习中~~~希望可以帮到你！

Answer 4

很简单呀 检测来访Ip地址 然后response出来

Answer 5

这个需要在路由器的端口上做访问控制