判斷用戶端處於內網還是外網！asp

  <%  
  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  
  %>