<% Dim Domain Set Domain = New Cls_DomainFunction Class Cls_DomainFunction Private vListURL Private Thief_ Private vDomainArr, vDomainName Private vLoopI Private vDomainsName, vDomainMainBody Private TLDCode Private Rs, Sql Private ExtraDataArr Private WhoisArr, WhoisCreationDate, WhoisExpirationDate, WhoisORG, WhoisName, WhoisBaiduSite, WhoisBaiduBody, WhoisPageRank Public SqlQueryLengthID, SqlQueryComposeTypeID, SqlQueryTLDID, SqlOrderByID Private SqlQueryLength, SqlQueryComposeType, SqlQueryTLD, SqlOrderBy
Public Function GetDomainList(vListID) Select Case vListID Case 1 : vListURL = "http://www.cnnic.net.cn/download/registar_list/pendingDel.txt" Case 2 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future2todayDel.txt" Case 3 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt" Case 4 : vListURL = "http://www.cnnic.net.cn/download/registar_list/1todayDel.txt" Case 5 : vListURL = "http://www.cnnic.net.cn/download/registar_list/2todayDel.txt" Case 6 : vListURL = "http://www.cnnic.net.cn/download/registar_list/3todayDel.txt" Case Else : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt" End Select Set Thief_ = New Cls_Thief Thief_.Source = vListURL Thief_.Steal vDomainArr = Split(Thief_.Value, vbLf) Set Thief_ = Nothing
If UBound(vDomainArr) < 2 Then Call Cmd.OutputJavaInfo("CNNIC最新數據庫尚未發布。")
