合法IP地址的判断

10.22.130.1-10.22.130.255

10.22.125.0-10.22.125.255 



<%

dim IPList(1,1)

IPList(0,0) = "10.22.130.1"

IPList(0,1) = "10.22.130.255"

IPList(1,0) = "10.22.125.0"

IPList(1,1) = "10.22.125.255"



dim IPFlag

IPFlag = false



for i = 0 to ubound(IPList)

   if IP2N(yourIP) >= IP2N(IPList(i,0)) and IP2N(yourIP) <= IP2N(IPList(i,1)) then

      IPFlag = true

      exit for

   end if

next



if not IPFlag then

   response.write "IP被禁止"

   response.end

end if



Function IP2N(vStr)

    Dim IP,intLoop

    IP2N = 0

    IP = Split(vStr,".")

    For intLoop = 0 To UBound(IP)

        IP2N = 256 ^ (UBound(IP) - intLoop) * CInt(IP(intLoop)) + IP2N

    Next

End Function

%>

dim userip:userip=Request.ServerVariables("REMOTE_ADDR")

dim arrIp:arrIp=Split(userip,".")

If Cint(arrIp(0))<>10 or Cint(arrIp(1))<>22 or (Cint(arrIp(2))<>130  and Cint(arrIp(2))<>125) Then

   Response.Write("Forbidden")

   Response.End

end 

dim userip:userip=Request.ServerVariables("REMOTE_ADDR")

dim arrIp:arrIp=Split(userip,".")

If Cint(arrIp(0))<>10 or Cint(arrIp(1))<>22 or (Cint(arrIp(2))<>130  and Cint(arrIp(3))<>125) Then

   Response.Write("Forbidden")

   Response.End

end