La primera vez que escribo una clase ASP, implementé funciones: tiempo de ejecución del programa de estadísticas segmentadas, tabla de estadísticas de salida, etc.
La copia del código es la siguiente:
Classccclsprocesstimerecorder
'Autor del programa: Mingyuexingguang
'Página de inicio del autor: http://www.5iya.com/blog
'http://www.kuozhanming.com
'Clase de estadísticas de tiempo de ejecución del código del programa ASP
PrivateCinti, ccintnoncetime, ccintdecimal
PrivateCintstarttime, cCintendtime, ccintnow, ccintnonce
PrivateCcstrinterval, CCSTREVENT, CCSTRTIME, CCSTRSTATISTICLOG, CCSTRFORMATINTERVAL
PrivateCcarrevent, ccarrtime
Privatesubclass_initialize
ccstrinterval = "|" 'Delimitador predeterminado
ccintdecimal = 4'Number of Digits después del punto decimal
ccstrevent = ""
ccstrtime = ""
ccstrFormatInterval = "<br/>" y VBCRLF
ccintstarttime = temporizador
ccintnow = ccintstarttime
ccintnonce = ccintstarttime
Endsub
PublicsubRecord (CCSTREVENTNAME)
ccstREVENT = CCSTREVENT & CCSTRINTERVAL & Reemplazar (ccSteventName, ccStrinterval, "")
ccstrtime = ccstrtime & ccstrinterval & formatnumber (timer-ccintnow, cCintDecimal, verdadero, falso, verdadero)
ccintnow = temporizador
Endsub
PublicPropertyletFormat (CCStrformatType)
IFLCASE (TRIM (CCSTRFORMATTYPE)) = "HTML" Entonces
ccstrFormatInterval = "<br/>" y VBCRLF
Demás
ccstrFormatInterval = VBCRLF
Endif
Endpropertía
PublicFunctionstatistic
Ifinstr (ccstREVent, ccStrinterval)> 0then
ccintendtime = temporizador
ccarrevent = split (ccstrevent, ccstrinterval)
CCarrTime = Split (CCSTRTIE, CCSTRINTERVAL)
ccStrstatistLog = ccStatisticLog & "ProcessTimerecord" & ccStrformatInterval
ccstrstatisticLog = ccstrstatistlog & "--------------------------------------" & ccStrformatInterval