Voorkom out-of-cursor bij perfmon.asp

svn path=/Website/branches/v2016.3/; revision=32895
This commit is contained in:
Jos Groot Lipman
2017-02-22 11:28:38 +00:00
parent 0b3f9d7215
commit 626152f68c

View File

@@ -187,7 +187,8 @@ function toMillisec(sTime)
var sDate = new Date(); var sDate = new Date();
do do
{ {
oRs = Oracle.RealConnection.Execute(sql); // RealExecution voorkomt overhead van logging var oRs = Oracle.RealConnection.Execute(sql); // RealExecution voorkomt overhead van logging
oRs.Close();
cnt ++; cnt ++;
var endDate = new Date(); var endDate = new Date();
} while ((endDate - sDate) < maxtime) } while ((endDate - sDate) < maxtime)
@@ -245,6 +246,7 @@ function toMillisec(sTime)
oRs = Oracle.Execute(sql); oRs = Oracle.Execute(sql);
oRs = Oracle.Execute("SELECT COUNT(*) FROM fac_rapport WHERE fac_rapport_node = " + safe.quoted_sql(Session.SessionID)); oRs = Oracle.Execute("SELECT COUNT(*) FROM fac_rapport WHERE fac_rapport_node = " + safe.quoted_sql(Session.SessionID));
t1 = toMillisec(250 / oRs(0).value); t1 = toMillisec(250 / oRs(0).value);
oRs.Close();
Response.Write("<tr><td>1000 records toevoegen</td><td align=right>" + t1 + "ms</td></tr>"); Response.Write("<tr><td>1000 records toevoegen</td><td align=right>" + t1 + "ms</td></tr>");
%> %>
</table> </table>
@@ -277,6 +279,7 @@ function toMillisec(sTime)
oRs.MoveNext(); oRs.MoveNext();
cnt ++; cnt ++;
} }
oRs.Close();
t3 = toMillisec(10 * (endDate - sDate) / cnt); t3 = toMillisec(10 * (endDate - sDate) / cnt);
Response.Write("<tr><td>10000 records ophalen:</td><td align=right>" + t3 + "ms</td></tr>"); Response.Write("<tr><td>10000 records ophalen:</td><td align=right>" + t3 + "ms</td></tr>");
Oracle.Execute("DELETE FROM FAC_RAPPORT WHERE fac_rapport_node = " + safe.quoted_sql(Session.SessionID)) // Opruimen Oracle.Execute("DELETE FROM FAC_RAPPORT WHERE fac_rapport_node = " + safe.quoted_sql(Session.SessionID)) // Opruimen