4 replies to this topic

[Jhonathas.net]

Existe uma possibilidade de eu verificar se um endereço existe antes de eu cadastralo ?

ou melhor dizendo se o link esta ou não fora do ar,

motivo vou fazer um sistema q vai verificar se o link esta ou nao no ar, pois o servidor dono do link tem ipfixo e caso esteje desligado o link pra um sistema q vai estar nesse servidor não aparecerá.

[viniciusjau]

sei lá.. .tenta criar uma conexão com o endereço do site do cara. .

dai vc diz que se ele não encontrar o endereço não exibe o endereço...

[felipecm]

Existe uma possibilidade de eu verificar se um endereço existe antes de eu cadastralo ?

ou melhor dizendo se o link esta ou não fora do ar,

motivo vou fazer um sistema q vai verificar se o link esta ou nao no ar, pois o servidor dono do link tem ipfixo e caso esteje desligado o link pra um sistema q vai estar nesse servidor não aparecerá.

Bom, como vc quer acesso a paginas externas segue o mesmo exemplo q eu utilizei para o do Bovespa uns posts atras.. o uso do XMLHttp pra recuperar se o arquivo existe ou não.. apos o metodo Send(), a propriedade Status retorna o erro que ocorreu.. os possívels erros são os de sempre. http://www.w3.org/Pr...2616-sec10.html

Function ExisteUrl(strUrl)
  'Retorna se a Url é válida ou não
  'mail/msn: <fmosca@ajato.com.br>
  On Error Resume Next

  Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")

  XMLHttp.open "HEAD", strUrl, false
  XMLHttp.Send()
  If Err.Number <> 0 Then
    ExisteUrl = 500
  Else
    ExisteUrl = XMLHttp.Status
  End If

  Set XMLHttp = Nothing
End Function

Response.Write ExisteUrl("http://forum.wmonline.com.br") & "<br>"
Response.Write ExisteUrl("http://forum.wmonline.com.br/joao.html") & "<br>"
Response.Write ExisteUrl("http://forum.wmonline.com.BeÉrre") & "<br>"

A function recupera o número do erro.
O unico incoveniente é q vc vai depender da velocidade da leitura do cabeçalho do site, caso este exista. Caso o dominio seja inexistente, retorna 500, (por isso o tratamento do erro). Pra usar vc verifica tudo que for diferente de 200, é erro.

Edição feita por: felipecm, 15/01/2005, 11:37.

[Jhonathas.net]

Cara muito obrigado ficou demais a função, valewzaço,

[[webmaster]®]

Então eu poderia fazer algo assim no final do função, depois dakilo tudo!

If Cint(ExisteUrl) <> 200 Then
   ExisteUrl = False
Else
   ExisteUrl = True
End If

Ou Então substituir akela condição lá da função que o cara deu, e colocar esta:

If Err.Number = 0 And XMLhttp.Status = 200 Then
  ExisteUrl = True
Else
  ExisteUrl = False
End If

Edição feita por: [webmaster]®, 19/02/2005, 13:54.