复制代码代码如下:
<%
Dimdomain
SetDomain = newcls_domainfunction
Classcls_domainfunction
Privatevlisturl
Приватетиф_
Privatevdomainarr, vdomainname
Privatevloopi
Privatevdomainsname, vdomainmainbody
Privatetldcode
Приватеры, 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
Settheief_ = newcls_theief
Thief_.source = vlisturl
Thief_.steal
vdomainarr = split (thif_.value, vblf)
Settheief_ = ничего
Ifubound (vdomainarr) <2thencallcmd.outputjavainfo ("cnnic 最新数据库尚未发布。")