日期:2014-05-17  浏览次数:20861 次

asp中 ip地址范围怎么设置
<%
dim address
address = request.servervariables("REMOTE_ADDR")
if address="127.0.0.1" then 
  '如果为本地,则显示欢迎页面.
  response.write "你好,欢迎进入本站点."
else
  '否则显示出错信息.
  response.write "对不起,你无权查看内部站点."
end if
%>

这个代码是如何为本机登陆,则显示您好,欢迎进入本站点
如果我想要192.168.1.1 一直到192.168.1.255 这个两个IP段之间的IP都能进去 显示您好,欢迎进入本站点
这个要如何设置!

------解决方案--------------------
reslut=split(address,".")
if reslut(0)=192 and reslut(1)=168 and reslut(2)=1 and reslut(3)>0 andreslut(3)<256 then....
当然这只是一种方法,其他的等其他高人
------解决方案--------------------
VBScript code
str   =   "192.128.1.1"
set   re  = new RegExp
re.Pattern  =   "^192\.168\.1\.\d+$"
re.Global   =   true
result   =   re.test(str)


if result then 
  '如果为本地,则显示欢迎页面.
  response.write "你好,欢迎进入本站点."
else
  '否则显示出错信息.
  response.write "对不起,你无权查看内部站点."
end if