复制代码代码如下:
<%
Dimdomaïque
SetDomain = newcls_domainfunction
Classcls_domainfunction
PrivatevlistUl
PrivateThief_
Privatevdomainarr, vomainname
Privatevloopi
PrivateVdomAwname, vomainmainbody
Privatetldcode
Privaters, SQL
PrivateExtradataarr
Private Whoisarr, WhoiscreationDate, WhoisexpirationDate, Whoisorg, Whoissname, WhoisbaiDusite, Whoisbaidubody, Whisispagerank
PublicsQlQueryLengthRedId, SqlQueryComposeTypeID, SqlQueryTlDID, SQLORDRYID
PrivateSQLQueryLength, SqlQueryComposeType, SqlQueryTld, Sqlorderby
PublicFunctionGetDomainList (VListID)
SelectCasevListID
Case1: vListUrl = "http://www.cnnic.net.cn/download/registar_list/peningdel.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"
Se licez
Setthief_ = newcls_thief
Thief_.source = vlisturl
Voleur_.
vDomainarr = Split (thief_.value, vblf)
Setthief_ = rien
Ifubound (vdomainarr) <2Tencallcmd.outputjavainfo ("cnnic 最新数据库尚未发布。")