Monitoramento

[fantasma]

Tem como fazer um esquema para monitorar sites que estão no ar

[fertel]

Mas o quê exatamente você quer monitorar? Acesso dos visitantes, se eles estão no ar, etc?

[fantasma]

Monitorar se o site esta no ar , se a pagina esta carregando totalmente

[fertel]

beleza, mas monitorar onde? Você quer que apareça algum "status" numa área administrativa ou coisa do tipo? Não ficou muito claro o seu pedido. E saber se um site foi carregado totalmente?

Bom, não sei se é isso que você está falando, mas alguns sites de hospedagem (a maioria pelo menos), tem um relatório de status do site, informando por onde o usuário navegou e se a página deu erro ou não, essas coisas.

Criar um script pra tudo isso seria um trabalho enorme, ainda mais pra um site apenas. Procure uma hospedagem que já proporcione isso. A minha hospedagem usa painel "Plesk" e tem isso.

Abraços.

[fantasma]

so quero saber se um site foi carregado totalmente?

são 8 url

[Marcos-rj]

Tenho aqui essa função que peguei na net, serve para fazer ping. pode adaptar o código, se a página sair do ar te enviar uma mensagem.

espero que seja útil.

<% Response.Buffer = true %> 
<%  
' Asp ping - sem componentes.

'##########################################################
'Para windows 2000 e versoes anteriores.
'##########################################################

'sua URL
    url = "www.uol.com.br" 

    Set objWShell = CreateObject("WScript.Shell") 
    Set objCmd = objWShell.Exec("ping " & url) 
    strPResult = objCmd.StdOut.Readall() 
    set objCmd = nothing: Set objWShell = nothing 

    strStatus = "offline" 
    if InStr(strPResult,"TTL=")>0 then strStatus = "online" 

    response.write url & " está " & strStatus 
    response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") 

%>

OU

<% 

<% Response.Buffer = true %> 
' Asp PING - sem componetes.

'##########################################################
'Para windows XP
'##########################################################

'sua URL

   url = "www.uol.com.br" 

    WMI = "winmgmts:{impersonationLevel=impersonate}" 

    wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _ 
        " = '" & url & "'" 

    set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) 


    Response.write url & " esta " 
    For Each result in PingResult 
        if clng(result.StatusCode)>0 then 
            response.write "offline" 
        else 
            response.write "online" 
        end if 
    Next 
%>

T+

[fantasma]

o 1º cod funcionou

o 2º deu este erro

Objeto Response error 'ASP 0156 : 80004005'

Erro de cabeçalho

/ping/pingi_ok1.asp, line 10

Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página.