欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

域名查询系统用到的类

时间:2021-05-19 09:41:38|栏目:ASP代码|点击:
复制代码 代码如下:

<%
Dim Domain
Set Domain = New Cls_DomainFunction
Class Cls_DomainFunction
    Private vListURL
    Private Thief_
    Private vDomainArr, vDomainName
    Private vLoopI
    Private vDomainsName, vDomainMainBody
    Private TLDCode
    Private Rs, Sql
    Private ExtraDataArr
    Private WhoisArr, WhoisCreationDate, WhoisExpirationDate, WhoisORG, WhoisName, WhoisBaiduSite, WhoisBaiduBody, WhoisPageRank
    Public SqlQueryLengthID, SqlQueryComposeTypeID, SqlQueryTLDID, SqlOrderByID
    Private SqlQueryLength, SqlQueryComposeType, SqlQueryTLD, SqlOrderBy

    Public Function GetDomainList(vListID)
        Select Case vListID
            Case 1 : vListURL = "http://www.cnnic.net.cn/download/registar_list/pendingDel.txt"
            Case 2 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future2todayDel.txt"
            Case 3 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt"
            Case 4 : vListURL = "http://www.cnnic.net.cn/download/registar_list/1todayDel.txt"
            Case 5 : vListURL = "http://www.cnnic.net.cn/download/registar_list/2todayDel.txt"
            Case 6 : vListURL = "http://www.cnnic.net.cn/download/registar_list/3todayDel.txt"
            Case Else : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt"
        End Select
        Set Thief_ = New Cls_Thief
        Thief_.Source = vListURL
        Thief_.Steal
        vDomainArr = Split(Thief_.Value, vbLf)
        Set Thief_ = Nothing

        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
    End Function

    Private Function GetDomainLTD(DomainName)
        If UBound(Split(DomainName, ".")) > 1 Then
            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
                Fso.CopyFile DataBasePath,strDataBasePath & "CompactDBTemp.mdb"
                Set Engine = CreateObject("JRO.JetEngine")
                If BoolIs97 = "True" Then
                    Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp.mdb", _
                    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp1.mdb;" _
                    & "Jet OLEDB:Engine Type=" & JET_3X
                Else
                    Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp.mdb", _
                    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp1.mdb"
                End If
            Fso.CopyFile strDataBasePath & "CompactDBTemp1.mdb",DataBasePath
            Fso.DeleteFile(strDataBasePath & "CompactDBTemp.mdb")
            Fso.DeleteFile(strDataBasePath & "CompactDBTemp1.mdb")
            Set Fso = nothing
            Set Engine = nothing
            If Err.Number <> 0 Then
                Err.Clear()
                Exit Sub
            End If
        End If
    End Sub
End Class
%>

上一篇:asp中用insert into语句向数据库插入记录(添加信息)的方法

栏    目:ASP代码

下一篇:万能数据库连接程序

本文标题:域名查询系统用到的类

本文地址:http://www.codeinn.net/misctech/124637.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有