none
Medido de Conexão de internet RRS feed

  • Pergunta

  • Como eu faço um medidor de velocidade da minha internet em asp ou em javascript,

    igual a esse do link abaixo?

    www.hwn.com.br/medvel
    quinta-feira, 27 de setembro de 2007 18:24

Todas as Respostas

  • me conte, vc consegui solução para essa sua duvida ???

     

     

     

    se poder me ajudar agradeço...tenho esse mesmo problema

     

     

     

    t+

     

    Edson

     

    terça-feira, 9 de outubro de 2007 12:53
  •  

    Consegui fazer em asp, mas tenho que fazer uns ajustes, pq ta com uns errinho
    terça-feira, 16 de outubro de 2007 11:10
  • Compartilhe...

     

    Pode ser q nos juntos conseguimos corrigir os errinhos e deixa ele show....

     

    t+

     

     

     

    quinta-feira, 18 de outubro de 2007 10:40
  • Página Medir.asp

     

    Code Block

    strtime = time
    strip = Request.ServerVariables("REMOTE_ADDR")

    Set rs = createObject("ADODB.Recordset")
    Set rs.activeconnection = abredb

    SQL = "SELECT * FROM Medidor WHERE IP = '"&strip&"'"
    rs.open sql

    If rs.eof then
    abredb.Execute ("INSERT INTO Medidor (Inicial,IP) values (GetDate(),'"&strip&"')")
    else
    abredb.Execute ("UPDATE Medidor Set Inicial=GetDate() WHERE IP='"&strip&"'")
    end if
    'Response.Flush 'envia conteúdo para o browser

    for i = o to 10000
     response.write i & "
    "
    next

    Response.redirect "resultado.asp"

     

     

     

    Página Resultado.asp

     

    Code Block

    strip = Request.ServerVariables("REMOTE_ADDR")

    Set rs = createObject("ADODB.Recordset")
    Set rs.activeconnection = abredb

    SQL = "SELECT * FROM Medidor WHERE IP = '"&strip&"'"
    rs.open sql

    Hora = Hour(rs("Inicial"))&":"&Minute(rs("Inicial"))&":"&Second(rs("Inicial"))

    Total = 170000
    HoraAgora = Hour(Now)&":"&Minute(Now)&":"&Second(Now)

    totalsec = DateDiff("s", Hora,HoraAgora)
    bps = Total / totalsec
    Kbps = bps /1024
    Real = Kbps * 8

     

    Response.write "A sua velocidade atual &eacute; de:</span> <span class="Resultado18N">"&Response.Write FormatNumber(Real,2)&"</span><br><br>"

    Response.write "Isso significa que seu download pode ser de at&eacute"&Response.Write FormatNumber(Kbps,2)&"KB/sec. dos nossos servidores"<br>"

    Response.write " <a href=medir.asp>Testas de novo</a>"

     

     

    Esse e o script, mas ta dando um pau, tem hora que dar erro tem hora que funciona normal.

    sexta-feira, 19 de outubro de 2007 10:48