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