الفصول المستخدمة في نظام الاستعلام عن اسم المجال

复制代码代码如下:

<٪

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 最新数据库尚未发布。")