Inquiridor
Medido de Conexão de internet

Pergunta
-
Todas as Respostas
-
-
-
-
Página Medir.asp
Code Blockstrtime = time
strip = Request.ServerVariables("REMOTE_ADDR")Set rs = createObject("ADODB.Recordset")
Set rs.activeconnection = abredbSQL = "SELECT * FROM Medidor WHERE IP = '"&strip&"'"
rs.open sqlIf 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 browserfor i = o to 10000
response.write i & "
"
nextResponse.redirect "resultado.asp"
Página Resultado.asp
Code Blockstrip = Request.ServerVariables("REMOTE_ADDR")
Set rs = createObject("ADODB.Recordset")
Set rs.activeconnection = abredbSQL = "SELECT * FROM Medidor WHERE IP = '"&strip&"'"
rs.open sqlHora = 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 * 8Response.write "A sua velocidade atual é de:</span> <span class="Resultado18N">"&Response.Write FormatNumber(Real,2)&"</span><br><br>"
Response.write "Isso significa que seu download pode ser de até"&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.