Ir para conteúdo

POWERED BY:

Arquivado

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

P@trique

[Resolvido] Teste de conexão

Por , em ASP Clássico

Recommended Posts

P@trique    0

P@trique
Postado

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