<%

 Dim UserIPAddress

 Set UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

 If UserIPAddress = "" Then

   UserIPAddress = Request.ServerVariables("REMOTE_ADDR")

 End If

 If UserIPAddress <> "" Then

   Dim ipArr,flag,fso,f

   ipArr = split(UserIPAddress,".")

   UserIPAddress = ipArr() + "." + ipArr() + "." + ipArr()

   flag =

   set fso=server.CreateObject("Scripting.FileSystemObject")

   Set f =  fso.OpenTextFile(Server.MapPath("1.txt"),)

     Do  While  Not  f.AtEndOfStream

      'response.write f.readline

       If UserIPAddress = f.readline Then

          flag =

          exit do

       End If

     loop

     f.close

     set f=nothing

     set fso=nothing

    If flag =  Then

      Server.Execute("a.asp")

    else

      Server.Execute("b.asp")

    End If

 End If

 %>