คลาสที่ใช้ในระบบค้นหาชื่อโดเมน

复制代码代码如下:

-

โดเมน

setdomain = newcls_domainfunction

classcls_domainfunction

PrivateVlisturl

PrivatetHief_

privatevdomainarr, vdomainname

Privatevloopi

privateVdomainsname, vdomainmainbody

PrivatetldCode

ส่วนตัว SQL

PrivateExtradataarr

Privatewhoisarr, WhoiscreationDate, WhoosExpirationDate, Whoisorg, Whoisname, Whoisbaidusite, Whoisbaidubody, Whoispagerank

PublicsQlQueryLengthId, sqlQueryComposetypeId, sqlQueryTldid, sqlorderById

PrivatesQlQueryLength, 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"

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"

endelect

setthief_ = newcls_thief

thief_.source = vlisturl

Thief_.steal

vdomainarr = split (thief_.value, vblf)

setthief_ = ไม่มีอะไร

ifubound (vdomainarr) <2ThenCallcmd.outputJavainfo ("CNNIC 最新数据库尚未发布。")