Udregning af download tid

Jo, hvis der er nogen der har en liste over kb/s på de forskellige forbindelser

Jamn, hvor for jeg lige spdan en fra?, Hvis den kommer og du laver et script der kan udregne det for mig, jaaa, så er point\'ene dine...

Generelt:

antal_sek = filstørrelse/(bits/8)

hvor bits er antal bits pr. sekundt og filstørrelse er størrelsen på filen i bytes, der downloades.

bits for et 33,6 modem er 33600
bits for et 55,6 modem er 56600

bits for ASDL linjer:

256 kbit = 256000
512 kbit = 512000
1024 kbit = 1024000
2 mbit = 2000000

osv. osv. osv.

Det ville give antal sekunder for hurtigste download muligt, men i 99.9 % af tilfældende vil dette ikke kunne opnåes.

nej det er for mange points for så lidt !

//seider

Måske for mange point, men jeg skal bruge det. :)

Kan du spectual ik lige lave et fuld ASP script.

Joh, bortset fra jeg ikke kender overførelser på t1, dsl, og isdn.

Kan du så ik finde ud af det? det er mange påoint vi taler om her. :)

Jeg skal lige ned og handle så laver jeg det så kan du vælge det der er bedst (hvor hurtigt vil du have de sidste 3 ?)

//seider

Okay, ...

Jeg vil gerne have så mange muligheder så muligt!

<%
filesize = Request.Querystring(\"filesize\")
%>
<%
modem1 = filesize/ (33600/8)
modem2 = filesize/56600/8
modem3 = filesize/256000/8
modem4 = filesize/512000/8
modem5 = filesize/1024000/8
modem6 = filesize/2000000/8
%>
33,6: <%=modem1%><br>
56,6: <%=modem2%><br>
ADSL 256: <%=modem3%><br>
ADSL 512: <%=modem4%><br>
ADSL 1024: <%=modem5%><br>
ADSL 2mbit: <%=modem6%><br>

Aner ikke om det virker.....

Det skulle jo gerne være et fuldt script der virker. Men prøv om det virker!

hmmm... det er nemt at snuppe andres svar, hva?

Hvem er det lige du taler til der? det er vel ikke mig, for det er jo mig der skal have hjælp...

næh nej... bjarke-b

Well, han bad om et script der kunne det, og du kom med det der....men mit virker alligevel ikke.

OIkay,... Kampen er mellem dig seider. right?

kampen? :)

Altså, den der kommer først med en funktionelt script vinder point!

function Antal_Sek (filn, linje)
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFile (filn)
  size = f.size

Select Case linje
    Case \"33.6\" bits = 33600
    Case \"56.6\" bits = 56600
    Case \"ISDN\" bits = 512000
    Case \"ASDL256\" bits = 256000
    Case \"ASDL512\" bits = 512000
    Case \"ASDL1024\" bits = 1024000
    Case \"ASDL2MBIT\" bits = 2000000
    Case \"T1\" bits = 2000000
    Case \"DSL\" bits = 1024000
End Select

  antal = fix (size/(bits/8))

  antal_sek = antal
end function

    Antal_sekunder = Antal_sek (\".\\storfil.dat\",  \"33.6\")

    response.write (antal_sekunder)

Det samme plus lidt formatering:

function Formater (sek)
tmp = sek
ant_timer = fix (tmp/3600)
tmp = tmp - (ant_timer*3600)
minutter = fix (tmp/60)
tmp = tmp - (minutter*60)
sekunder = tmp
streng = \"\"
if ant_timer<10 then streng = \"0\" & ant_timer & \":\" else streng = ant_timer & \":\"
if minutter<10 then streng = streng & \"0\" & minutter & \":\" else streng = streng & minutter & \":\"
if sekunder<10 then streng = streng & \"0\" & sekunder else streng = streng & sekunder
Formater = streng
end function

function Antal_Sek (filn, linje)
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFile (filn)
  size = f.size

Select Case linje
    Case \"33.6\" bits = 33600
    Case \"56.6\" bits = 56600
    Case \"ISDN\" bits = 512000
    Case \"ASDL256\" bits = 256000
    Case \"ASDL512\" bits = 512000
    Case \"ASDL1024\" bits = 1024000
    Case \"ASDL2MBIT\" bits = 2000000
    Case \"T1\" bits = 2000000
    Case \"DSL\" bits = 1024000
End Select

  antal = fix (size/(bits/8))

  antal_sek = antal
end function

    download_fil = server.mappath (\".\\currentversion.zip\")

    Antal_sekunder = Antal_sek (server.mappath (\".\\currentversion.zip\"),  \"33.6\")

    response.write (\"Filen \" & download_fil & \" tager \" & formater (antal_sekunder) & \" at downloade\")

En combobox i html til formålet:

<select name=\"select\" size=\"1\">
  <option value=\"33.6\">33.6 kbit modem</option>
  <option value=\"55.6\">55.6 kbit modem</option>
  <option value=\"ISDN\">ISDN</option>
  <option value=\"ADSL256\">ADSL 256 kbit</option>
  <option value=\"ADSL512\">ASDL 512 kbit</option>
  <option value=\"ADSL1024\">ADSL 1024 kbit</option>
  <option value=\"ADSL2MBIT\">ADSL 2 mbit</option>
  <option value=\"T1\">T1</option>
  <option value=\"DSL\">DSL</option>
</select>

og et par rettelser:

    Case \"ADSL256\" bits = 256000
    Case \"ADSL512\" bits = 512000
    Case \"ADSL1024\" bits = 1024000
    Case \"ADSL2MBIT\" bits = 2000000

Det er lidt svært at tilpasse skriptet yderligere, da jeg ikke ved hvad du skal bruge det til.

Hvis du har spørgsmål til det, skal du endelig sige til.

Rettelse:

    Case \"T1\" bits = 1544000

Jeg skal kunne vise en bruger f.eks at program.zip fylder 23453267 kb . Og at det tager xxx minutter at hente via 33,6 osv...

Hvis du lige samler det og sender det til min email på dad@sundhedsguiden.dk så er der nogle point til dig, min ven...

Tilføjelse:

    Case \"T2\" bits = 6312000
    Case \"T3\" bits = 44736000

<update>

Skriptet blev samlet og sendt til david_dollas

</update>

Nemlig og det fungerede. Tak. Lide en sidste ting. Hvordan gør jeg hurtigst mulig så jeg selv kan sætte filstørrelsen ind?

Men du for dine point.

Lidt af et hack men hurtigt:

function Antal_Sek (filn, linje, fils)

if fils=0 then
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFile (filn)
  size = f.size
else
  size = fils
end if

Alle steder, hvor Antal_Sek kaldes skal tilføjes et xtra argument.

F.eks:

<%=Formater (Antal_sek (download_fil, \"33.6\",min_filstørrelse))%>

Indsætter du nul istedet for min_filstørrelse tager den størrelsen fra filnavnet.

Okasy, sådan kunne man også gøre, men jeg fandt lige på noget selv og det virkede... Men tak anyway.

velbekomme :)