域名查询系统用到的类(2)
If UBound(vDomainArr) < 2 Then Call Cmd.OutputJavaInfo("CNNIC最新数据库尚未发布。")
Call ConnDB()
For vLoopI = 0 To UBound(vDomainArr)
vDomainsName = LCase(vDomainArr(vLoopI))
If Instr(vDomainsName, ".") > 0 Then
vDomainMainBody = Split(vDomainsName, ".")(0)
Conn.Execute("INSERT INTO [CNDomainList](DomainName, Body, Length, ComposeType, TLD) VALUES('" & vDomainsName & "', '" & vDomainMainBody & "', " & Len(vDomainMainBody) & ", " & GetDomainComposeType(vDomainMainBody) & ", " & GetDomainLTD(vDomainsName) & ")")
End If
Next
Call DisconnDB()
Call CompactDataBase(vDatabasePath, False)
End Function
Public Function ClearUpDatabase()
Call ConnDB()
Conn.Execute("DELETE * FROM [CNDomainList]")
Call DisconnDB()
Call CompactDataBase(vDatabasePath, False)
End Function
Private Function GetDomainComposeType(DomainName)
If Cmd.IsAlpha(DomainName) Then
GetDomainComposeType=1
ElseIf Cmd.IsDigit(DomainName) Then
GetDomainComposeType=2
ElseIf Cmd.IsAlphaDigit(DomainName) Then
GetDomainComposeType=3
Else
GetDomainComposeType=4
End If
内容版权声明:除非注明,否则皆为本站原创文章。