域名查询系统用到的类

            Select Case Split(DomainName, ".")(1)
                Case "com"
                    TLDCode = 10011
                Case "net"
                    TLDCode = 10021
                Case "org"
                    TLDCode = 10051
                Case "gov"
                    TLDCode = 10061
                Case "ac"
                    TLDCode = 10071
                Case Else
                    TLDCode = 10041
            End Select
        Else
            TLDCode = 10001
        End If
        GetDomainLTD = TLDCode
    End Function

    Private Sub CompactDataBase(DataBasePath, boolIs97)
        On Error Resume Next
        Dim Fso, Engine, strDataBasePath,JET_3X
        strDataBasePath = Left(DataBasePath,InstrRev(DataBasePath,""))
        Set Fso = CreateObject("Scripting.FileSystemObject")
        If Err.Number <> 0 Then
            Err.Clear()
            Exit Sub
        End If
        If Fso.FileExists(DataBasePath) Then