复制代码代码如下::
<%
Dimdomain
Setdomain = newcls_domainfunction
Classcls_domainfunction
PrivateVListurl
Privatethief_
Privatevdomainarr, vdomainname
Privatevloopi
PrivateVdomainsName, vdomainmainbody
Privatetldcode
Privaters, SQL
Privatextradataarr
Private whoisarr, whoiscreationdate, whoisexpirationdate, whoisorg, whoisname, whoisbaidusit, whoisbaidubody, whoispageank
PublicsQlQueryLengthid, SQLQueryComposetypeId, SQLQueryTldid, SqlorderById
PrivateQlQueryLength, SQLQueryComposetype, SQLQuerytld, Sqlordby
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"
CaseLSE: vListurl = "http://www.cnnic.net.cn/download/registar_list/future1todaydel.txt"
Endauswahl
SetThief_ = newcls_Thief
Thief_.source = vListurl
Thief_.Stal
vdomainarr = split (Thief_.Value, VBLF)
Setthief_ = nichts
Ifubound (vdomainarr) <2Thencallcmd.outputjavainfo ("cnnic 最新数据库尚未发布。")