jeskel
10-30-2003, 08:23 AM
Hi,
I'd like to make some speed tests with my db connection. So I'm going to populate it...
here is the code I'm using:
<html>
<head>
<title>SpeedTests</title>
</head>
<body>
<%
'two tables: speedTests (id, data), speedTestsResults (id, resultsEXECUTE, resultsRECORDSET)
data = request.form("data")
if request.form("perform") = "touchmeandthenjustpushme" then
timeBegin_y=Timer
for y = 1 to 1000
MyConn.execute "INSERT INTO speedTests (data) VALUES ('" & data & "')"
Next
timeEnd_y=Timer
resultEXECUTE=timeEnd_y-timeBegin_y
timeBegin_x=Timer
set rsSpeedTests = Server.CreateObject("ADODB.RecordSet")
rsSpeedTests.Open "speedTests", MyConn, adOpenStatic,adLockOptimistic, adCmdTable
for x = 1 to 1000
rsSpeedTests.AddNew
rsSpeedTests("data") = data
rsSpeedTests.Update
Next
rsSpeedTests.Close
set rsSpeedTests = Nothing
timeEnd_x=Timer
resultRECORDSET=timeEnd_x-timeBegin_x
set rsInsertResults = Server.CreateObject("ADODB.RecordSet")
rsInsertResults.Open "speedTestsResults", MyConn, adOpenStatic,adLockOptimistic, adCmdTable
rsInsertResults.AddNew
rsInsertResults("resultsEXECUTE") = resultEXECUTE
rsInsertResults("resultsRECORDSET") = resultRECORDSET
rsInsertResults.Update
rsInsertResults.Close
set rsInsertResults = Nothing
sql="SELECT resultsEXECUTE, resultsRECORDSET FROM speedTestsResults WHERE id > 1 order by id" 'id being the pk
Set rsShowResults=Server.CreateObject("ADODB.Recordset")
rsShowResults.Open sql, MyConn
%>
<center>
<TABLE BORDER=3 CELLSPACING=3 CELLPADING=3>
<TR>
<TD>
x times
</TD>
<TD>
EXECUTE
</TD>
<TD>
RECORDSET
</TD>
</TR>
<%
z=1
while not rsShowResults.EOF
%>
<TR>
<TD>
<%=z%>
</TD>
<TD>
<%=rsShowResults.Fields("resultsEXECUTE").Value%>
</TD>
<TD>
<%=rsShowResults.Fields("resultsRECORDSET").Value%>
</TD>
</TR>
<%
rsShowResults.moveNext
z=z+1
wend
%>
</TABLE>
<%
rsShowResults.Close
set rsShowResults = Nothing
%>
<br>
<%
sqlAvgEXECUTE="SELECT AVG(resultsEXECUTE) as AVGresultsEXECUTE FROM speedTestsResults"
set rsAverageEXECUTE = Server.CreateObject("ADODB.RecordSet")
rsAverageEXECUTE.Open sqlAvgEXECUTE, MyConn
AverageEXECUTE=rsAverageEXECUTE.Fields("AVGresultsEXECUTE").Value
%>
average EXECUTE: <%=AverageEXECUTE%> secs.
<%
rsAverageEXECUTE.Close
set rsAverageEXECUTE = Nothing
%>
<br>
<%
sqlAvgRECORDSET="SELECT AVG(resultsRECORDSET) as AVGresultsRECORDSET FROM speedTestsResults"
set rsAverageRECORDSET = Server.CreateObject("ADODB.RecordSet")
rsAverageRECORDSET.Open sqlAvgRECORDSET, MyConn
AverageRECORDSET=rsAverageRECORDSET.Fields("AVGresultsRECORDSET").Value
%>
average RECORDSET: <%=AverageRECORDSET%> secs.
<%
rsAverageRECORDSET.Close
set rsAverageRECORDSET = Nothing
%>
<br><br>
<%totalTIME=(AverageEXECUTE+AverageRECORDSET)%>
<br><br>
Average of the total time: <%=totalTIME%> secs.
<br>
percentage of this time taken by EXECUTE: <%=((AverageEXECUTE/totalTIME)*100)%>%
<br>
percentage of this time taken by RECORDSET: <%=((AverageRECORDSET/totalTIME)*100)%>%
<br><br>
<a href="<%=Request.ServerVariables ("SCRIPT_NAME")%>">perform again</a>
</center>
</body>
</html>
<%end if%>
<%if request.form("perform") <> "touchmeandthenjustpushme" then%>
<center>
compare time execution between MyConn.EXECUTE "INSERT INTO..." and .AddNew METHOD
</center>
<br><br>
<form ACTION="<%=Request.ServerVariables ("SCRIPT_NAME")%>" METHOD="post">
<center>
<br>
<br>
<TABLE BORDER=0 CELLSPACING=0 CELLPADING=3>
<TR>
<TD>
data
</TD>
<TD>
<INPUT NAME="data" SIZE="20" MAXLENGTH="50">
</TD>
</TR>
</TABLE>
</center>
<br><br>
<CENTER>
<INPUT TYPE="SUBMIT" VALUE="touchmeandthenjustpushme" name="perform">
</CENTER>
</form>
</body>
</html>
<%end if%>
As you can see, I'm also checking the time that it takes to populate my db this way.
What I'd like is suggestions about different ways I could use to record infos in order to compare
time responses.
thanx a lot:thumbsup:
I'd like to make some speed tests with my db connection. So I'm going to populate it...
here is the code I'm using:
<html>
<head>
<title>SpeedTests</title>
</head>
<body>
<%
'two tables: speedTests (id, data), speedTestsResults (id, resultsEXECUTE, resultsRECORDSET)
data = request.form("data")
if request.form("perform") = "touchmeandthenjustpushme" then
timeBegin_y=Timer
for y = 1 to 1000
MyConn.execute "INSERT INTO speedTests (data) VALUES ('" & data & "')"
Next
timeEnd_y=Timer
resultEXECUTE=timeEnd_y-timeBegin_y
timeBegin_x=Timer
set rsSpeedTests = Server.CreateObject("ADODB.RecordSet")
rsSpeedTests.Open "speedTests", MyConn, adOpenStatic,adLockOptimistic, adCmdTable
for x = 1 to 1000
rsSpeedTests.AddNew
rsSpeedTests("data") = data
rsSpeedTests.Update
Next
rsSpeedTests.Close
set rsSpeedTests = Nothing
timeEnd_x=Timer
resultRECORDSET=timeEnd_x-timeBegin_x
set rsInsertResults = Server.CreateObject("ADODB.RecordSet")
rsInsertResults.Open "speedTestsResults", MyConn, adOpenStatic,adLockOptimistic, adCmdTable
rsInsertResults.AddNew
rsInsertResults("resultsEXECUTE") = resultEXECUTE
rsInsertResults("resultsRECORDSET") = resultRECORDSET
rsInsertResults.Update
rsInsertResults.Close
set rsInsertResults = Nothing
sql="SELECT resultsEXECUTE, resultsRECORDSET FROM speedTestsResults WHERE id > 1 order by id" 'id being the pk
Set rsShowResults=Server.CreateObject("ADODB.Recordset")
rsShowResults.Open sql, MyConn
%>
<center>
<TABLE BORDER=3 CELLSPACING=3 CELLPADING=3>
<TR>
<TD>
x times
</TD>
<TD>
EXECUTE
</TD>
<TD>
RECORDSET
</TD>
</TR>
<%
z=1
while not rsShowResults.EOF
%>
<TR>
<TD>
<%=z%>
</TD>
<TD>
<%=rsShowResults.Fields("resultsEXECUTE").Value%>
</TD>
<TD>
<%=rsShowResults.Fields("resultsRECORDSET").Value%>
</TD>
</TR>
<%
rsShowResults.moveNext
z=z+1
wend
%>
</TABLE>
<%
rsShowResults.Close
set rsShowResults = Nothing
%>
<br>
<%
sqlAvgEXECUTE="SELECT AVG(resultsEXECUTE) as AVGresultsEXECUTE FROM speedTestsResults"
set rsAverageEXECUTE = Server.CreateObject("ADODB.RecordSet")
rsAverageEXECUTE.Open sqlAvgEXECUTE, MyConn
AverageEXECUTE=rsAverageEXECUTE.Fields("AVGresultsEXECUTE").Value
%>
average EXECUTE: <%=AverageEXECUTE%> secs.
<%
rsAverageEXECUTE.Close
set rsAverageEXECUTE = Nothing
%>
<br>
<%
sqlAvgRECORDSET="SELECT AVG(resultsRECORDSET) as AVGresultsRECORDSET FROM speedTestsResults"
set rsAverageRECORDSET = Server.CreateObject("ADODB.RecordSet")
rsAverageRECORDSET.Open sqlAvgRECORDSET, MyConn
AverageRECORDSET=rsAverageRECORDSET.Fields("AVGresultsRECORDSET").Value
%>
average RECORDSET: <%=AverageRECORDSET%> secs.
<%
rsAverageRECORDSET.Close
set rsAverageRECORDSET = Nothing
%>
<br><br>
<%totalTIME=(AverageEXECUTE+AverageRECORDSET)%>
<br><br>
Average of the total time: <%=totalTIME%> secs.
<br>
percentage of this time taken by EXECUTE: <%=((AverageEXECUTE/totalTIME)*100)%>%
<br>
percentage of this time taken by RECORDSET: <%=((AverageRECORDSET/totalTIME)*100)%>%
<br><br>
<a href="<%=Request.ServerVariables ("SCRIPT_NAME")%>">perform again</a>
</center>
</body>
</html>
<%end if%>
<%if request.form("perform") <> "touchmeandthenjustpushme" then%>
<center>
compare time execution between MyConn.EXECUTE "INSERT INTO..." and .AddNew METHOD
</center>
<br><br>
<form ACTION="<%=Request.ServerVariables ("SCRIPT_NAME")%>" METHOD="post">
<center>
<br>
<br>
<TABLE BORDER=0 CELLSPACING=0 CELLPADING=3>
<TR>
<TD>
data
</TD>
<TD>
<INPUT NAME="data" SIZE="20" MAXLENGTH="50">
</TD>
</TR>
</TABLE>
</center>
<br><br>
<CENTER>
<INPUT TYPE="SUBMIT" VALUE="touchmeandthenjustpushme" name="perform">
</CENTER>
</form>
</body>
</html>
<%end if%>
As you can see, I'm also checking the time that it takes to populate my db this way.
What I'd like is suggestions about different ways I could use to record infos in order to compare
time responses.
thanx a lot:thumbsup: