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