怎样编写一个限制IP访问的网页
已有一个ASP网站正在正常运行。现在要在该网站中制作一个新的网页。该网页要求如下:对于电脑IP是192.168.1.*和电脑IP是192.168.2.*和电脑IP是192...
已有一个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,怎么写代码? 展开
该网页要求如下:
对于电脑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,怎么写代码? 展开
8个回答
2015-08-07
展开全部
<%
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
%>
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
%>
快又稳
2024-10-29 广告
2024-10-29 广告
虚拟主机域名解析是将注册的域名指向您购买并配置的虚拟主机空间地址的过程。通过DNS(域名系统)服务,用户输入的域名会被转换成对应的IP地址,从而实现网站的访问。这一步骤对于网站的上线至关重要,确保了用户能够通过易记的域名而非复杂的IP地址来...
点击进入详情页
本回答由快又稳提供
展开全部
一楼的设码祥置权限,或春睁者是扒模岁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
%>
你参考一下
<%
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
%>
你参考一下
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
写几个判断语句就可以了。一楼的方法也可以咯!
写几句你码芦配看看:
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也不是很精通哈。也是菜鸟一个,正在努力学习中~~~希望可以帮哗巧到你!
写几句你码芦配看看:
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也不是很精通哈。也是菜鸟一个,正在努力学习中~~~希望可以帮哗巧到你!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
很简单呀 检测来访Ip地址 然后response出来
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个需要在路由器的端口上做访问控制
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询