复制代码代码如下:
<٪
dimdomain
setDomain = newcls_domainfunction
classcls_domainfunction
PrivateVlisturl
الخصخصة _
PrivateVdomainarr ، vdomainname
Privatevloopi
PrivateVdomainsname ، vdomainmainbody
PrivatetLdCode
الخصوصية ، SQL
PrivateExtRadataarr
privatehoisarr ، whoiscreationdate ، whoisexpirationdate ، whoisorg ، whoisname ، whoisbaidusite ، whoisbaidubody ، whoispagerank
publicsqlquerylengthid ، sqlquerycomposetypeid ، sqlquerytldid ، sqlorderbyid
PrivatesQlqueryLength ، SqlqueryComposeType ، Sqlquerytld ، Sqlorderby
publicfunctiongetDomainList (Vlistid)
SelectScaseVlistId
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_ = لا شيء
ifubound (vdomainarr) <2thencallCMD.outputjavainfo ("CNNIC 最新数据库尚未发布。")