Come si può verificare se un file esiste su un altro server?
Oppure se questo server è attivo ed in quel dato momento risponde alle nostre richieste?
Il metodo più rapido (e disponibile su quasi ogni server) è utilizzare una delle versioni dell'oggetto MSXMLHTTP.
Ci basterà controllare il codice HTTP restituito dalla proprietà ResponseStatus e verificare che sia uguale a 200 (stato OK, la risorsa esiste).
In caso contrario, potremmo avere dei codici di errore, ad esempio 404 se la risorsa non esiste, 500 per un errore del server, 403 se la risorsa è protetta, etc.
<% 'l'url da scaricare StrURL = "https://www.aspitalia.org/chat/" Set objXMLHTTP = Server.CreateObject("MSXML4.ServerXMLHTTP") objXMLHTTP.Open "GET", StrURL, false ' richiama il file + status code HTTP objXMLHTTP.Send statuscode = objXMLHTTP.ResponseStatus Set objxml = Nothing if CInt(statuscode) = 200 then Response.write ("Il file esiste!") else Response.write ("Il file non esiste: errore HTTP " & statucode ) end if %>
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.