复制代码代码如下 :
<%
Dimdomain
setDomain = newcls_domainFunction
classcls_domainFunction
privatevlisturl
privateThief_
privatevdomainarr, vdomainname
privatevloopi
PrivateVDomainsName, vdomainmainbody
privateTldcode
프라이버시, SQL
PrivateTradataarr
PrivateWhoisarr, WhoiscreationDate, WhoisexpirationDate, Whoisorg, Whoisname, Whoisbaidusite, Whoisbaidubody, Whoispagerank
plublicsqlquerylengthid, 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"
EndSelect
setthief_ = newcls_thief
thief_.source = vlisturl
도시 _.steal
vdomainarr = split (thief_.value, vblf)
setthief_ = 아무것도
ifubound (vdomainarr) <2thencallcmd.outputjavainfo ( "cnnic 最新数据库尚未发布。")