复制代码代码如下：
<％
薄暗い
setDomain = newCls_DomainFunction
classcls_domainfunction
privatevlisturl
privateThief_
privatevdomainarr、vdomainname
privatevloopi
privatevdomainsname、vdomainmainbody
privatetldcode
プライバター、SQL
privateextradataarr
privatewhoisarr、whoiscreationdate、whoisexpirationdate、whoisorg、whoisname、whoisbaidusite、whoisbaidubody、whoispagerank
publicsqlquerylengthid、sqlquerycomposeTypeid、sqlquerytldid、sqlorderbyid
privateQlquerylength、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"
ケース3：vlisturl = "http://www.cnnic.net.cn/download/registar_list/future1todaydel.txt"
ケース4：vlisturl = "http://www.cnnic.net.cn/download/registar_list/1todaydel.txt"
ケース5：vlisturl = "http://www.cnnic.net.cn/download/registar_list/2todaydel.txt"
ケース6：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最新数据库尚未发布。"）