复制代码代码如下：
<％
昏暗的
setDomain = newcls_domainfunction
classCls_domainFunction
privateVlisturl
PrivateThief_
privateVdomainarr，vdomainname
PrivateVloopi
privateVdomainsName，vdomainmainby
PrivatetLdCode
私人，SQL
PrivateExtradataarr
PrivateWhoisarr，WhoisCreationDate，WhoisexpirationDate，Whoisorg，Whoisname，Whoisbaidusite，Whoisbaidubody，Whoispagerank
publicsqlquerylengthID，sqlquerycomposetypeid，sqlquerytldid，sqlorderbyid
PravicatesqlqueryLength，sqlqueryCompoSeType，sqlquerytld，sqlorderby
publicFunctionDomainList（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_
vdomainarr = split（thief_.value，vblf）
setthief_ =没有
ifubound（vdomainarr）<2thencallcmd.outputjavainfo（“ cnnic最新数据库尚未发布。”）