首页 > 编程 > ASP > 正文

域名查询系统用到的类

2024-05-04 11:02:47
字体:
来源:转载
供稿:网友
复制代码 代码如下:
<%
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最新数据库尚未发布。")
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表