复制代码代码如下:
<%
DimDomain
SetDomain=NewCls_DomainFunction
ClassCls_DomainFunction
PrivatevListURL
PrivateThief_
PrivatevDomainArr,vDomainName
PrivatevLoopI
PrivatevDomainsName,vDomainMainBody
PrivateTLDCode
PrivateRs,Sql
PrivateExtraDataArr
PrivateWhoisArr,WhoisCreationDate,WhoisExpirationDate,WhoisORG,WhoisName,WhoisBaiduSite,WhoisBaiduBody,WhoisPageRank
PublicSqlQueryLengthID,SqlQueryComposeTypeID,SqlQueryTLDID,SqlOrderByID
PrivateSqlQueryLength,SqlQueryComposeType,SqlQueryTLD,SqlOrderBy
PublicFunctionGetDomainList(vListID)
SelectCasevListID
Case1:vListURL="http://www.cnnic.net.cn/download/registar_list/pendingDel.txt"
Case2:vListURL="http://www.cnnic.net.cn/download/registar_list/future2todayDel.txt"
Case3:vListURL="http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt"
Case4:vListURL="http://www.cnnic.net.cn/download/registar_list/1todayDel.txt"
Case5:vListURL="http://www.cnnic.net.cn/download/registar_list/2todayDel.txt"
Case6:vListURL="http://www.cnnic.net.cn/download/registar_list/3todayDel.txt"
CaseElse:vListURL="http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt"
EndSelect
SetThief_=NewCls_Thief
Thief_.Source=vListURL
Thief_.Steal
vDomainArr=Split(Thief_.Value,vbLf)
SetThief_=Nothing
IfUBound(vDomainArr)<2ThenCallCmd.OutputJavaInfo("CNNIC最新数据库尚未发布。")