WaBis

walter.bislins.ch

Datei: perf.asp

Inhalt der Datei: ./asp/perf/perf.asp
<% Option Explicit %>
<!--#include file="perf.inc" -->
<%

const ITER = 50000
const TEXT = "1234567890"

sub WithoutStream()
  dim s, i
  s = ""
  for i = 1 to ITER
    s = s & TEXT
  next
end sub

sub WithStream()
  dim s, strm, i
  set strm = NewStream(0)
  for i = 1 to ITER
    strm.Add TEXT
  next
  s = strm.GetString(false)
end sub
%>

<html><head>
<title>perf Test</title>
</head>
<body>
<h1>perf Test</h1>
<%
  Response.Write "<p>Adding " & ITER & " times '" & TEXT & "'</p>"
  Response.Write "<p>Start mit stream</p>"
  Response.Flush
  WithStream
  Response.Write "<p>Ende</p>"
  Response.Write "<p>Start ohne stream</p>"
  Response.Flush
  WithoutStream
  Response.Write "<p>Ende</p>"
%>
</body>
</html>


Weitere Infos zur Seite
Erzeugt Dienstag, 18. Oktober 2011
von wabis
Zum Seitenanfang
Geändert Montag, 12. Oktober 2015
von wabis