复制代码代码如下:
<%
DimDomain
SetDomain = newcls_domainfunction
ClassCls_DomainFunction
Privatevlisturl
Privatethief_
PrivateVDomainArr, vDomainName
Privatevloopi
PrivateVdomainsName, VDomainMainbody
Privatetldcode
Privaters, SQL
PrivateExtradataarr
PrivateWhoisarr, WhoiscreationDate, WhoSeSexpirationDate, 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 (lhief_.value, vblf)
Setthief_ = nada
Ifubound (vDomaAnarr) <2thencallcmd.outputjavainfo ("cnnic 最新数据库尚未发布。")