class DominClass'''''''''''''''''''''''''''''''''''''''''''''''' '' ----------------------------------- 'class DominClass'' domain name queries like '' author: KingApex '' last modified: September 2, 2004 '' ----------------------- ------------------------ '' public method: '' 1.SetStrdomain '' Settings to query the category string of the domain name "," Such as: "COM, NET" '' '' Setting domain name, such as sina.com '' '' 3.getResult () '' acquisition results, corresponding to strdomain's array True or false '' '- -------------------------------------------- '' Usage : '' set objD = new DominClass' 'objD.setstrDomain ( "com, net")' 'objD.setDomainName ( "sina")' 'dim r' 'r = objD.getresult ()' 'set objD = nothing' '' 'Dim Dd: DD = Ubound (r)' 'IF DD> 0 TEN' 'FOR i = 0 to Ubound (r)' 'Response.write R (i)' '' '' Else '' RESPONSE.WRITE "Error" '' end if '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' Private Retrieval, Strdomain, Result, DomainName 'Initialization Private Sub Class_initialize () SET Retrieval = Server.createObject ("Microsoft.xmlhttp") End Sub' Sets the domain name list, number is separated; " COM, Net, CN "
public function setstrDomain (str) strDomain = strend function 'Settings domain as: sinapublic function setDomainName (aName) DomainName = aNameend function' to obtain a result, the corresponding strDomain an array public function getresult () dim tempar: tempar = split (strDomain, ", ") DIM I, TEMPDOMAIN Redim Result (Tempar) for i = 0 to Ubound (Tempar) Tempdomain = DomainName &" & Tempar (i) Result (i) = checkdomainexits (GetURL ("http: //reports.internic .net / cgi-bin / whois? whois_nic = "& tempDomain &" & type = domain ")) nextSet Retrieval = Nothinggetresult = resultend function 'detection domain name exists with private function CheckDomainExits (byref htmlContent) dim r if instr (htmlContent," No match " )> 0 dam = false = nullCheckdomaineXITS = REND FUNCTION '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' 'Private Function BSTR (VIN) DIM STRETURN, I, THISCHARCODE, INNERCODE, HIGHT8, LOW8, NEXTCHARCODESTRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRERN = "" for i = 1 to lenb (vin) thischarcode = ASCB (MIDB (Vin, I, 1)) IF Thischarcode <& H80 THENSTRRRRRURN = Strreturn & Chr (thischarcode) Elsenextcharcode = ASCB (MIDB (VIN) , I 1, 1)) Strreturn = Strreturn & Chr (ClNG (thischarcode) * & H100 CINT (NEXTCHARCODE)) i = i 1END IFNEXTBSTR = STRRETURN END FUNCTION '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '?'