Indirizzo esistente?

[Col Cyber]

Ave a tutti!
vi rompo ancora le scatolotte con una question

E' possibile vedere se una dato url è esistente o no tramite timeout? (o altro modo)

Per esempio, vedere se http://www.cicciopasticcioonline.com esiste?
Qualcuno mi può dire la funzione please? magari anche un listatino di esempio?
Grassie

[cavicchiandrea]

Originariamente inviato da Col Cyber
Ave a tutti!
vi rompo ancora le scatolotte con una question

E' possibile vedere se una dato url è esistente o no tramite timeout? (o altro modo)

Per esempio, vedere se http://www.cicciopasticcioonline.com esiste?
Qualcuno mi può dire la funzione please? magari anche un listatino di esempio?
Grassie

Vai sul mio sito e ti scarichi lo script gia pronto:

download

Ciao

[Col Cyber]

Perfetto grazie mille
proprio quello che cercavo :P

[Col Cyber]

Problema....
non mi crea l'oggeto
perchè?

mi da errore su questa riga

Set objXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")

[Col Cyber]

L'errore è il tale:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/client/home/hotelslist.asp, line 14

800401f3


Non è che necessita di librerie particolari?
Se fosse così non potrei installarlo
altre idee?

[cavicchiandrea]

Originariamente inviato da Col Cyber
L'errore è il tale:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/client/home/hotelslist.asp, line 14

800401f3


Non è che necessita di librerie particolari?
Se fosse così non potrei installarlo
altre idee?

No non necessita di nessuna libreria

Lo script lo inserisci in un'altra pagina?

Se si Posta tutta la pagina

[Col Cyber]

Per ora ho preso la tua pagina e l ho modificata per renderla semplice
volevo solo vedere come si comportava, ma cosi non mi va:

<%@ Language="VBScript" %>
<%
Dim Link
Dim objXMLHTTP
Dim Risposta
'If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Link = "http://www.google.it"

'Instanzio l'oggetto XMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
on error resume next

'Costruisco e invio la richiesta
objXMLHttp.Open "GET", link, False
objXMLHttp.Send
'Verifco se esiste url
IF Err.number <> 0 Then
Risposta="<font size='2' face='Verdana' color='red'>url "&link&" inesistente"
'Verifico la risposta


elseIf objXMLHttp.status = "200" Then
Risposta="<font size='2' face='Verdana'>Url "&link&" Esiste"
elseIf objXMLHttp.status = "404" Then
Risposta="<font size='2' face='Verdana' color='blue'>Url "&link&" Pagina non presente"
End if


'Faccio pulizia
Set objXMLHttp = Nothing

'End if
%>

[Shagrat]

Originariamente inviato da cavicchiandrea
No non necessita di nessuna libreria

Lo script lo inserisci in un'altra pagina?

Se si Posta tutta la pagina

come no? l'oggetto XMLHTTP deve essere registrat sul server se no picche :P

[Col Cyber]

A ecco

[grifone]

con questo script vedi i compenenti supportati dal server:


<%
' Creiamo la lista dei componenti da controllare !
' Potete aggiungere tutti quelli che volete nel formato
' ListaCOM(x) = Array("nome_componente","nome_componente.chiamata_ componente")

Dim ListaCOM(41)
ListaCOM(0) = Array( "AB Mailer","ABMailer.Mailman" )
ListaCOM(1) = Array( "ABC Upload","ABCUpload4.XForm" )
ListaCOM(2) = Array( "ActiveFile","ActiveFile.Post" )
ListaCOM(3) = Array( "ActiveX Data Object","ADODB.Connection" )
ListaCOM(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
ListaCOM(5) = Array( "ASP HTTP","AspHTTP.Conn" )
ListaCOM(6) = Array( "ASP Image","AspImage.Image" )
ListaCOM(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
ListaCOM(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
ListaCOM(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
ListaCOM(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
ListaCOM(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
ListaCOM(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
ListaCOM(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
ListaCOM(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
ListaCOM(15) = Array( "ASPSoft NT Object","ASPSoft.NT" )
ListaCOM(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
ListaCOM(17) = Array( "CDO NTS","CDONTS.NewMail" )
ListaCOM(18) = Array( "Chestysoft Image","csImageFile.Manage" )
ListaCOM(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
ListaCOM(20) = Array( "Dimac JMail","JMail.Message" )
ListaCOM(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
ListaCOM(22) = Array( "Dundas Mailer","Dundas.Mailer" )
ListaCOM(23) = Array( "Dundas Upload","Dundas.Upload.2" )
ListaCOM(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
ListaCOM(25) = Array( "Dynu HTTP","Dynu.HTTP" )
ListaCOM(26) = Array( "Dynu Mail","Dynu.Email" )
ListaCOM(27) = Array( "Dynu Upload","Dynu.Upload" )
ListaCOM(28) = Array( "Dynu WhoIs","Dynu.Whois" )
ListaCOM(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
ListaCOM(30) = Array( "File System Object","Scripting.FileSystemObject" )
ListaCOM(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
ListaCOM(32) = Array( "Last Mod","LastMod.FileObj" )
ListaCOM(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
ListaCOM(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
ListaCOM(35) = Array( "Persits ASPEmail","Persits.MailSender" )
ListaCOM(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
ListaCOM(37) = Array( "Persits File Upload","Persits.Upload.1" )
ListaCOM(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
ListaCOM(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
ListaCOM(40) = Array( "Image Size", "ImgSize.Check" )
ListaCOM(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )

' Creiamo la funzione per vedere quali di questi sono attivi

Function attiva( comIdentity )
On Error Resume Next
attiva = False
Err = 0
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then attiva = True
Set xTestObj = Nothing
Err = 0
End Function

' Creiamo la funzione per controllare i componenti e per stampare i risultati

Public Function controllaCOM()

disponibile = 0
strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=400>" & vbNewLine
For indice = LBound( ListaCOM ) To UBound( ListaCOM )
Provider = indice
strTxt = strTxt & vbTab & "<tr><td width=200><font face=Verdana size=2>" & ListaCOM(indice)(0) & "</font></td>"


If attiva( ListaCOM(indice)(1) ) Then
strTxt = strTxt & "<td align=center><font face=Verdana size=2 color=blue>Disponibile</font></td>"
disponibile = disponibile + 1
Else
strTxt = strTxt & "<td align=center><font face=Verdana size=2>No</font></td>"
End If

strTxt = strTxt & "<td align=left width=20><font face=Verdana size=2></font></td></tr>" & vbNewLine
Next

strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><center><font face=Verdana size=2><font color=blue>" & disponibile & "</font> dei "
strTxt = strTxt & UBound( ListaCOM ) + 1 & " componenti della lista sono supportati.</font></center></td></tr>" & vbNewLine
controllaCOM = strTxt & "</table>" & vbNewLine
End Function

' E adesso vediamo di visualizzare il tutto
Response.Write( controllaCOM() )
%>