<% dim userip userip= Request.ServerVariables("HTTP_X_FORWARDED_FOR") if userip = "" then userip = Request.ServerVariables("REMOTE_ADDR") end if Response.write(userip+"
") usersubnet=split(userip,".") chkit=usersubnet(2) ipsubnet=(InStrRev(userip, "."))-1 uipsubnet=left(userip,ipsubnet) Response.Write(uipsubnet) if ipContains("172.26.192","172.26.223",userip)=true then Response.Redirect ("http://www.w3schools.com") elseif ipContains("172.17.64","172.17.65",userip)= true then Response.Redirect ("http://172.17.65.231/file.htm") elseif ipContains("172.18.16","172.18.31",userip)= true then Response.Redirect ("http://172.18.17.89/file.htm") elseif ipContains("172.17.220","172.17.223",userip)= true then Response.Redirect ("http://172.17.220.245/file.htm") elseif ipContains("172.26.40","172.26.40",userip)= true then Response.Redirect ("http://172.26.41.61/file.htm") elseif ipContains("172.17.120","172.17.127",userip)= true then Response.Redirect ("http://172.17.120.133/file.htm") elseif ipContains("172.26.32","172.26.39",userip)= true then Response.Redirect ("http://172.26.33.80/file.htm") elseif ipContains("172.16.0","172.16.255",userip)= true then Response.Redirect ("http://172.16.176.230/file.htm") elseif ipContains("172.20.48","172.20.63",userip)= true then Response.Redirect ("http://172.20.48.187/file.htm") elseif ipContains("172.20.16","172.20.31",userip)= true then Response.Redirect ("http://172.20.23.170/file.htm") elseif ipContains("172.21.48","172.21.63",userip)= true then Response.Redirect ("http://172.21.51.51/file.htm") elseif ipContains("172.20.224","172.20.231",userip)= true then Response.Redirect ("http://172.20.225.50/file.htm") elseif ipContains("172.21.131","172.21.131",userip)= true then Response.Redirect ("http://172.21.131.18/file.htm") elseif ipContains("172.17.253","172.17.253",userip)= true then Response.Redirect ("http://172.17.253.10/file.htm") elseif ipContains("172.52.28","172.52.29",userip)= true then Response.Redirect ("http://172.52.29.211/file.htm") elseif ipContains("10.146.128","10.146.128",userip)= true then response.redirect("http://www.cdeep.iitb.ac.in") end if Function ipContains(x,y,chkit) usersub=split(chkit,".") subnet1=split(x,".") subnet2=split(y,".") for i=0 to 2 if i=0 or i=1 Then if subnet1(i)<> usersub(i) then if subnet2(i) <> usersub(i) then ipContains = False exit for end if end if elseif i=2 then if subnet1(2)<=usersub(2) and subnet2(2)>=usersub(2) then ipContains = True end if end if next End Function %>