lars mjaaland wrote:
> sorry - min fejl og tak for du gidder bruge påsken på dette!
Jeg har nu ikke påskeferie endnu
>
http://www.mjaaland.dk/aspskole/test1.html
Jeg tror nu at jeg ved hvad du vil. Prøv at lave en .asp-fil med følgende:
---------------------------------------
<html>
<body>
<%
Dim slut, start, tid
start = Now()
Dim n, sum
sum = 0
For n = 1 To 1000000
sum = sum + 1/n
Next
slut = Now()
tid = DateDiff("s", start, slut)
Response.Write ("På serveren tog det " & tid & " sekunder<br>")
%>
<script language="VBScript">
Dim slut, start, tid
start = Now()
Dim n, sum
sum = 0
For n = 1 To 1000000
sum = sum + 1/n
Next
slut = Now()
tid = DateDiff("s", start, slut)
Document.Write ("På klienten tog det " & tid & " sekunder<br>")
</script>
</body>
</html>
--------------------------
Som du ser, så er det kode, der skal køres på serveren og på klienten
det samme, det er kun linie, hvor resultatet udskrives der er forskellig.
Jeg gennemgår nu hver del for sig:
Dim slut, start, tid
Dette er de variable vi får brug for.
start = Now()
Vi gennem tidspunkter for starten af scriptet.
Vi skal nu lave et eller andet vi kan måles varigheden af. Hvis dette
enten ikke er her, eller kan regnes meget hurtigt, så er start- og
slut-tiden den samme, og der vil bare stå at det ikke tog noget tid at køre.
Dim n, sum
sum = 0
For n = 1 To 1000000
sum = sum + 1/n
Next
Det er dette vi vil måle på.
Det er bare et tænkt eksempel, og kan være næsten vilkårlig kode.
Som nævnt ovenfor, så skal det bare tage lidt tid (f.eks. nogle
sekunder), ellers kan det ikke måles.
slut = Now()
Vi ser nu, hvad slut-tiden er.
tid = DateDiff("s", start, slut)
Funktionen 'DateDiff' måles forskellen i to tidspunkter. Her skal det
være start- og slut-tidspunktet.
Det lille "s" fortæller at afstanden skal måles i sekunder. Man kan også
måle i minutter, timer, dage, osv. Dog man kan ikke måle i millisekunder
i ASP.
Vi gemmer resultatet i variablen tid.
Response.Write ("På serveren tog det " & tid & " sekunder<br>")
eller
Document.Write ("På klienten tog det " & tid & " sekunder<br>")
Dette udskriver variablen tid sammen med noget passende tekst.
Jeg håber det var noget i denne retning du ville lave...
mvh Torben