Function address(sip)
    Dim aConnStr,aConn,adb
    Dim str1,str2,str3,str4
    Dim  num
    Dim country,city
    Dim irs,SQL
    address="未知"
    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 = Dvbbs.iCreateObject("ADODB.Connection")
            aConn.Open aConnStr
            country="亚洲"
            city=""
            sql="select top 1 country,city from dv_address where ip1 <="& num &" and ip2 >="& num
            Set irs=aConn.execute(sql)
            If Not(irs.EOF And irs.bof) Then
                country=irs(0)
                city=irs(1)
            End If
            irs.close
            Set irs=Nothing
            aConn.Close
            Set aConn = Nothing
            SqlQueryNum = SqlQueryNum+1
        End If
        address=country&city
    End If
End Function