复制代码代码如下:
<%
Dimdoma
Setdomain = newcls_domainfunction
ClassCLS_DomaInFunction
Privatevlisturl
Privatethief_
PrivateVdomainarr, vdomainname
Privatevloopi
PrivateVdomainsname, vdomainmainbody
PrivateTldCode
Privaters, SQL
Privatextradataarr
Privatewhoisarr, WhoIsCreationDate, WhoisexpirationDate, Whoisorg, Whoisname, Whoisbaidusite, Whoisbaidubody, Whoisperank
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"
EndSelectar
Setthief_ = newcls_thief
Thief_.Source = vListurl
Ladrón_
vdomainarr = Split (Thief_.Value, VBLF)
SetThief_ = nada
Ifubound (vdomainarr) <2thencallcmd.outputJavainfo ("Cnnic 最新数据库尚未发布。")