ip地址原来是这样算的

<%  
  sIp   =   Request.ServerVariables("REMOTE_ADDR")    
  Function   cacuIp(sIP)  
  On   Error   Resume   Next  
  Dim   srIp,   aIp  
  srIp=0  
  aIp   =   Split(sIP,".")  
  If   UBound(aIP)<>3   Then  
  cacuIP=0  
  Exit   Function  
  End   If  
  For   i=0   To   3  
  srIp=srIp+(CInt(aIP(i))*(256^(3-i)))  
  Next  
  cacuIp=srIp-1  
  If   Err   Then   cacuIp=0  
  End   Function    
   
  Set   conn=Server.CreateObject("ADODB.Connection")  
  conn.Open   "DRIVER={Microsoft   Access   Driver   (*.mdb)};DBQ="&Server.Mappath("dbIpAddress.mdb")  
   
  iIp=cacuIp(sIp)  
  strSQL   =   "SELECT   country,city   FROM   tblIPAddress   WHERE   ip1<="   &   iIp   &   "   AND   ip2>="   &   iIp  
  Set   rsCnt   =   conn.Execute   (   strSQL   )  
  If   rsCnt.Eof   Then  
  sPlace="[其它]"  
  Else  
  sPlace=rsCnt(0)&"   "&rsCnt(1)  
  End   If  
  Set   rsCnt=Nothing  
   
  Response.Write   "你的IP所在地为："&sPlace  
  %>