Those Internet folks just don't get it: content is valuable, but with all this hippie talk about "openness" and "collaboration" and "cooperation," they forgot to build in content rights management! For anyone that does run a website with valuable content, it's inevitable that pirates will come after your work and you'll need the best defenses to protect it.

Now Fran's website definitely has valuable content and they've been protecting it for years, only allowing known customers with fixed IPs to access it. "How," you may ask, "does their code stop the pirates?" A secret buried deep in ASP, they're now ready to share this technology with the world.

 

  ok = 0
  ip = Request.ServerVariables("REMOTE_ADDR")
  if ip = "xxx.xxx.xxx.xxx"
      or ip = "xxx.xxx.xxx.xxx"
      or ip = "xxx.xxx.xxx.xxx"
      # ... 11 total, all on one line
  then
      ok = 1
  end if

  ip2 = Split(ip,".")
  ip3 = ip2(0) &"."& ip2(1) &"."& ip2(2)

  if ip3 = "xxx.xxx.xxx"
      or ip3 = "xxx.xxx.xxx"
      or ip3 = "xxx.xxx.xxx"
      # ... 95 total, all on one line
  then
      ok = 1
  end if

  if ip3 = "xxx.xxx.xxx"
      or ip3 = "xxx.xxx.xxx"
      or ip3 = "xxx.xxx.xxx"
      # ... 149 total, all on one line
  then
      ok = 1
  end if

  if ok = 1 then
      response.redirect "http://www.example.com/private/index.asp"
  else
      response.redirect "/index.asp?error=1"
  end if

 

Of note is the fact that /private/index.asp doesn't actually do any of the same checks this (6k) redirect does.