查询ip的函数[来源： ygjwjj(塔克拉玛干---胡杨林)]

'IP/来源
 Public Function address(sip)
  Dim aConnStr,aConn,adb
  Dim str1,str2,str3,str4
  Dim  num
  Dim country,city
  Dim irs,SQL
  If IsNumeric(Left(sip,2)) Then
   If sip="127.0.0.1" Then sip="192.168.0.1"
   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)
   If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
   Else  
    num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
    adb = "data/ipaddress.mdb"
    aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
    Set AConn = Server.CreateObject("ADODB.Connection")
    aConn.Open aConnStr
 
    sql="select top 1 country,city from dv_address where ip1 <="&num&" and ip2 >="&num&""
    Set irs=aConn.execute(sql)
    If irs.EOF And irs.bof Then
     country="亚洲"
     city=""
    Else
     country=irs(0)
     city=irs(1)
    End If
    Set irs=Nothing
    Set aConn = Nothing
    SqlQueryNum = SqlQueryNum+1
   End If
   address=country&city
  Else
   address="未知"
  End If
 End Function

本文地址：http://com.8s8s.com/it/it7535.htm