Medido de Conexão de internet

Question

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

Answer 1

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

 

 

 

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

 

 

 

t+

 

Edson

 

Answer 2

 

Consegui fazer em asp, mas tenho que fazer uns ajustes, pq ta com uns errinho

Answer 3

Compartilhe...

 

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

 

t+

 

 

 

Answer 4

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.