Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilberto Jr

Verificar Se Tem Internet

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

Bom dia;

 

Seguinte, eu estou com um problema em um sistema que eu fiz. Seguinte, o sistema é para uma empresa que faz entregas. Ai as vezes o funcionário da empresa ta cadastrando um entrega e do nada a internet cai e a pessoa não percebe.

 

Exemplo, a pessoa preencheu o formulário de entrega. Quando ela clica no BOTÃO SUBMIT para enviar as informações para o banco de dados. Quando o sistema já esta na outra pagina a internet cai.

 

Dai o sistema inclui uma nova linha porem sem informação alguma dai da erro nos relatórios e também.

 

Eu queria antes de fazer o insert verificar se tem internet, se tiver o sistema inclui. Se não tiver ele para ou é redirecionado para outro lugar.

 

É possível fazer isso?

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc pode fazer um ping para testar a conexão. Usando um componente para executar o comando ping.

 

Ou testar a conexão com o bd

on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open MSCSSite.DefaultConnectionString
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = adCmdText
Set cmdTemp.ActiveConnection = conn

' Se a conexão ADO acima falhar, então nós check 
'O número de erro, caso não seja igual a 0, e depois nós mudar 
'O MSCSSite.DefaultConnectionString a um dos 
'Conexão string no mscssite.connectionstringmap. 
'Para os fins deste exemplo, a base de dados é o padrão 
'SSCommerce e de backup é SSCommerce2

If Err.Number <> 0 Then
	err.clear 
	mscssite.defaultconnectionstring = mcssite.connectionstringmap("SSCommerce2")
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open MSCSSite.DefaultConnectionString
	Set cmdTemp = Server.CreateObject("ADODB.Command")
	cmdTemp.CommandType = adCmdText
	Set cmdTemp.ActiveConnection = conn
End if

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ou testando a velocidade

Vai ai um script em asp+javascript para teste na velocidade de conexão do usuário.

* não teste localmente pois vai dar ultra velocidade, dãã...

O code é bem simples, se alguém tiver idéias para melhorar fiquem a vontade.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
    <meta http-equiv="content-Type" content="text/html; charset=utf-8" />
    <title>Velocidade de Conexão</title>
    <script type="text/javascript">
    function exemplo_down(tam_arq) {

        tempo = tam_arq / kbytes_sec;
        tempo = Math.floor(tempo);

        if (tempo == 0) tempo = 1;

        minutos      = tempo / 60;
        minutos      = Math.floor(minutos);
        segundos     = tempo - (60 * minutos);	
        estilo1      = "<span class=\"result_numbers\">";
        estilo2      = "</span>";
        minutos_str  = estilo1+minutos+estilo2+" minuto";
        segundos_str = estilo1+segundos+estilo2+" segundo";

        if (minutos > 1) minutos_str += "s";
        if (segundos > 1) segundos_str += "s";
        if (minutos > 0 ) return minutos_str+" e "+segundos_str;

	    else return segundos_str;

    }

    time      = new Date();
    starttime = time.getTime();
    </script>
    <!--
    <%
    Dim i
    For i=1 to 24000
        Response.Write i
    Next 
    %>
    -->
    <script language="javascript">
    time          = new Date();
    endtime       = time.getTime();

    if (endtime == starttime) {
        downloadtime = 0
    } else {
        downloadtime = (endtime - starttime)/1000;
    }

    kbytes_of_data = 128.045;
    linespeed      = kbytes_of_data/downloadtime;
    kbps           = Math.round(linespeed*8*100*1.02)/100;
    kbytes_sec     = Math.round(linespeed*100)/100;
    dltime_add10   = Math.round((kbytes_of_data*1.15)/kbytes_sec);
    dltime_sub10   = Math.round((kbytes_of_data*0.85)/kbytes_sec);
    </script>
</head>
<body>
<div id="conteudo">
    RESULTADO DO TESTE
    <br /><br />
    Velocidade média registrada
    <br /><br />
    <strong><script>document.write(kbps + " kbps");</script></strong>
    <br />
    <strong>(sua velocidade atual)</strong>
    <br /><br />
    <strong>Estatísticas da sua conexão</strong>
    <br />
    Taxa de transferência: 
    <script>document.write(kbytes_sec + " KB/s");</script>
    <br /><br />
    <strong>Qualidade da Conexão/strong>
    <br />
    Streaming de áudio/vídeo: 
    <script>
    if (kbps <= 56) {
        document.write("baixa/baixa");
    } else {
        if ((kbps > 56) && (kbps < 128)) {
            document.write("alta/média");
        } else {
            if (kbps >= 128) {
                document.write("alta/alta");
            }
        }
    }
    </script>
    <br /><br />
    <strong>Exemplos de download:</strong>
    <br />
    Adobe  Reader (20,2MB): 
    <script>document.write(exemplo_down(20685));</script>;
    <br />
    Mozilla Firefox (4,9MB): 
    <script>document.write(exemplo_down(5018));</script>;
    <br />
    WinRAR (1,1MB): 
    <script>document.write(exemplo_down(1126));</script>.
    <br /><br />
    - Feche as transferências que estiverem ocorrendo.<br />
    - Teste baseado na velocidade média de tráfego atual.
    <br /><br />
    Informações: <%=Request.ServerVariables("remote_addr")%>
    <br />- Dia: <%=date()%>.
    <br />- Hora: <%=time()%>.
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito