Dall'archivio script > Classic ASP

Costruire un Whois con ASP

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Tips,

Il Whois con Classic ASP è possibile attraverso oggetti COM predisposti.
E' tuttavia possibile costruirne uno in pure codice, semplicemente sfruttando WinHTTP 5 (incluso con il Parser XML 4.0) o XMLHTTP qualora quest'ultimo non fosse installato.
Si tratta di un semplice script che effettua una richiesta via HTTP e che verifica l'esistenza o meno di dominio .COM, .NET o .ORG.

<% 
' Dominio da controllare
dominio = "asp.net"

 ' URL da richiamare
 url = "http://www.internic.net/cgi/whois?whois_nic=" & dominio & "&type=domain"

' creiamo l'oggetto WinHTTP
 Set objHTTP = Server.CreateObject("WinHTTP.WinHTTPRequest.5")
 objHTTP.Open "GET", url

 ' inviamo la richiesta
 objHTTP.Send

 ' codice di stato
 if CINT(objHTTP.Status) = 200 then
     ' testo della risposta
    strHTML = LCase(objHTTP.ResponseText)
    ProcessaRisposta(strHTML)
 else
     Response.Write "<p>Risposta del server remoto: (" & objHTTP.Status & ")"
     Response.write objHTTP.StatusText & "</P>"

 end if

 ' un po' di pulizia
 Set objHTTP = Nothing

Sub ProcessaRisposta(strHTML)
 if instr(strHTML, "no match") or instr(strHTML, "not found") then
  Response.write ("Dominio disponibile")
 elseif instr(strHTML, "domain name") or instr(strHTML, "no information") then
  Response.write ("Dominio occupato")
 else
  Response.write ("Caratteri non validi nel nome di dominio")
 end if
end sub

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi