复制代码代码如下:
<%
Dimomain
SetDomain = newcls_domainfunction
Classcls_domainfunction
Privatevlisturl
Privatief_
Privatevdomainarr, vdomainname
Privatevloopi
PrivatevDomainSname, vdomainmainbody
PrivatetLDCode
Privat, SQL
PrivateExtradataarr
Privatewheisarr, whoiscreationdate, whoisexpirationdate, whoisorg, whoisname, whoisbaidusite, whoisbaidubody, whoispagerank
PublicsqlqueryLengthId, sqlQueryComposetypeId, sqlqueryTldId, sqlorderById
PrivatesqlqueryLength, sqlQueryComposetype, sqlquerytld, sqlorderby
PublicFuncheGetDomainList (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_ = tidak ada
Ifubound (vdomainarr) <2thencAllcmd.outputJavainfo ("cnnic 最新数据库尚未发布。")