asp中实现根据内网和外网用户IP进行页面跳转
作者:wang 日期:2011-03-20
asp判断客户端处于内网还是外网进行页面重定向:
这段时间上校园网,发现页面变的简单了,但是在校园网上打开时还是原来的主页面,于是知道这个是添加了一段关于内网和外网访客ip的判断。网上搜索了一下相关实现方法,找到下面这个比较不错的:
<%
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
userIP = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
if (userIP>Ip2Num("192.168.0.0") and userIPIp2Num("127.0.0.0") and userIPIp2Num("10.0.0.0") and userIP response.write "内部IP"
end if
%>
这个用js实现的方法,也是网上找来的:
用JS不错,因为JS 获取的 IP 有个长处就是他获取的是本机配置的 IP,假如电脑通过局域网上网,那么他获得的就是电脑的局域网 IP,而不像 ASP 中 Request 获取的是电脑连接到互连网的 IP。
JS获取客户端IP
这段时间上校园网,发现页面变的简单了,但是在校园网上打开时还是原来的主页面,于是知道这个是添加了一段关于内网和外网访客ip的判断。网上搜索了一下相关实现方法,找到下面这个比较不错的:
<%
function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
userIP = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
if (userIP>Ip2Num("192.168.0.0") and userIP
end if
%>
这个用js实现的方法,也是网上找来的:
用JS不错,因为JS 获取的 IP 有个长处就是他获取的是本机配置的 IP,假如电脑通过局域网上网,那么他获得的就是电脑的局域网 IP,而不像 ASP 中 Request 获取的是电脑连接到互连网的 IP。