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

最新推荐文章于 2023-09-10 09:07:07 发布

gu1dai

最新推荐文章于 2023-09-10 09:07:07 发布

阅读量884

点赞数

分类专栏：研究心得文章标签： function sql

本文链接：https://blog.csdn.net/gu1dai/article/details/253166

版权

研究心得专栏收录该内容

20 篇文章 0 订阅

订阅专栏

'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