Na primeira vez em que escrevo uma classe ASP, implemento funções: Programa de Estatísticas segmentadas Tempo de execução, tabela de estatísticas de saída etc.
A cópia do código é a seguinte:
ClassCCClsProcessTimeCorder
'Autor do Programa: MingyuexingGuang
'Página inicial do autor: http://www.5iya.com/blog
'http://www.kuozhanming.com
'Classe de estatística de tempo de execução do código ASP
Privateccinti, CCINTNONCETIME, CCINTDECIMAL
Privateccintstarttime, ccintendtime, ccintnow, ccintNonce
Privateccstrinterval, ccstrevent, ccstrime, ccstrstatisticLog, ccstrformatinterval
Privateccarrevent, ccarrtime
Privatesubclass_initialize
ccstrinterval = "|" 'delimitador padrão
CCINTDECIMAL = 4'NURNO DE DIGITS APÓS DECIMAL PONTO
ccstrevent = ""
ccstrime = ""
ccstrformatinterval = "<br/>" & vbcrlf
CCINTSTARTTIME = TIMER
ccintnow = ccintstarttime
CCINTNONCE = CCINTSTARTTIME
Endsub
Publicsubrecord (CCStreventName)
ccstrevent = ccstrevent & ccstrinterval & reply (ccStreventName, ccstrinterval, "")
ccstrTime = ccstrime & ccstrinterval & formatNumber (timer-ccintnow, ccintdecimal, verdadeiro, falso, verdadeiro)
ccintnow = timer
Endsub
PublicPropertyLetFormat (CCSTFORMATTYPE)
IflCase (TRIM (ccstrformattype)) = "html" então
ccstrformatinterval = "<br/>" & vbcrlf
Outro
ccstrformatinterval = vbcrlf
Endif
EndProperty
PublicFunctionStatistic
Ifinstr (ccstrevent, ccstrinterval)> 0hen
CCIntendTime = Timer
ccarrevent = divisão (ccstrevent, ccstrinterval)
ccarrTime = split (ccstrime, ccstrinterval)
ccstrstatisticLog = ccstrstatisticLog & "processtimeRecord" e ccstrformatinterval
ccstrstatisticLog = ccstrstatisticLog & "--------------------------------------" e ccstrformatinterval