l<%@ Page language="VB"
debug="false" %>
l<%
lResponse.Write("Start <br>")
l'DIM
i,j,nStart
lDIM i AS Integer,j AS Long,nStart AS Double
lnStart=TIMER
lj=0
lFOR i=1 TO 1000000
l
j=j+i
lNEXT
lResponse.Write("Done
"+CSTR(TIMER-nStart)+" "+CSTR(j)+"<br>")
l%>
l
lFor ASP, omit first (<%@ …>)
line and the DIM i AS … line. FOR ASPX,
include the
lfirst line and only one of the two
DIM lines.
l
lOn 850 MHz PIII:
l ASP -
1.2 seconds;
l ASPX
with DIM i,j,nStart - 1.2 sec;
l ASPX
with DIM i AS Integer,j AS Long,nStart AS Double
l (no “variant” data types) - 0.010 sec.