<%
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<Ip2Num("192.168.255.255")) or (userIP>Ip2Num("127.0.0.0") and userIP<Ip2Num("127.255.255.255")) or (userIP>Ip2Num("10.0.0.0") and userIP<Ip2Num("10.255.255.255")) then
response.write "内部IP"
end if
%>
判断客户端处于内网还是外网!asp
最新推荐文章于 2024-04-10 20:36:32 发布