ASPクラスを初めて書くときは、機能を実装します。セグメント化された統計プログラム実行時間、出力統計テーブルなど。
コードコピーは次のとおりです。
classccclsprocesstimerecorder
'プログラム著者：Mingyuexingguang
'著者のホームページ：http：//www.5iya.com/blog
'http://www.kuozhanming.com
'ASPプログラムコード実行時間統計クラス
privateccinti、ccintnoncetime、ccintdecimal
privateccintstarttime、ccintendtime、ccintnow、ccintnonce
privateccstrinterval、ccstrevent、ccstrime、ccstrstatisticlog、ccstrformatinterval
privateccarrevent、ccarrtime
privatesubclass_initialize
ccstrinterval = "|" 'デフォルトのデリミター
ccintdecimal = 4 '小数点後の数字の数字
ccstrevent = ""
ccstrime = ""
ccstrformatinterval = "<br/>"＆vbcrlf
ccintstarttime =タイマー
ccintnow = ccintstarttime
ccintnonce = ccintstarttime
Endingub
publicsubrecord（ccstreventname）
ccStrevent = ccstrevent＆ccstrinterval＆falple（ccstreventname、ccstrinterval ""）
ccstrime = ccstrime＆ccstrinterval＆formatnumber（Timer-ccintnow、ccintdecimal、true、false、true）
ccintnow =タイマー
Endingub
publicPropertyletformat（ccstrformattype）
iflcase（trim（ccstrformattype））= "html" then
ccstrformatinterval = "<br/>"＆vbcrlf
それ以外
ccstrformatinterval = vbcrlf
endif
Endproperty
publicFunctionStatistic
ifinstr（ccstrevent、ccstrinterval）> 0-
ccintendtime =タイマー
ccarrevent = split（ccstrevent、ccstrinterval）
ccarrtime = split（ccstrime、ccstrinterval）
ccstrstatisticlog = ccstrstatisticlog＆ "processtimerecord"＆ccstrformatinterval
ccstrstatisticlog = ccstrstatisticlog＆ "---------------------------------"＆ccstrformatinterval