في المرة الأولى التي أكتب فيها فئة ASP ، تنفيذ الوظائف: وقت تنفيذ برنامج الإحصائيات المجزأة ، جدول إحصائيات الإخراج ، إلخ.
نسخة الكود كما يلي:
classccclsprocesstimerecorder
مؤلف البرنامج: MingyuexingGuang
"الصفحة الرئيسية للمؤلف: http://www.5iya.com/blog
'http://www.kuozhanming.com
'فئة إحصائيات وقت تنفيذ رمز برنامج ASP
Privatecinti ، ccintnoncetime ، ccintDecimal
PrivatecintStartTime ، ccintendtime ، ccintnow ، ccintnonce
privateccstrinterval ، ccstrevent ، ccstrtime ، ccstrstatisticlog ، ccstrformatinterval
Privateccarrevent ، ccarrtime
privatesubclass_initialize
ccstrinterval = "|" "المحدد الافتراضي
ccintdecimal = 4'number من الأرقام بعد نقطة عشرية
ccstrevent = ""
ccstrtime = ""
CCSTRFORMATINTERVAL = "<br/>" & vbcrlf
ccintStartTime = مؤقت
ccintnow = ccintStartTime
ccintnonce = ccintStartTime
ينتهي
PublicsubRecord (CcstreventName)
CCSTREVENT = CCSTREVENT & CCSTRINTERVAL & REPLIS
CCSTRITE = CCSTRITE و CCSTRINTERVAL & Formatnumber (TIMER-CCINTNOW ، CCINTDECIMAL ، صحيح ، خطأ ، حقيقي)
ccintnow = مؤقت
ينتهي
PublicPropertyletFormat (CCSTRFORMATTYPE)
iflcase (trim (ccstrformattype)) = "html" ثم
CCSTRFORMATINTERVAL = "<br/>" & vbcrlf
آخر
CCSTRFORMATINTERVAL = VBCRLF
Endif
endproperty
PublicFunctionStatistic
IFINST (CCSTREVENT ، CCSTRINTERVAL)> 0then
ccintendtime = مؤقت
ccarrevent = انقسام (ccstrevent ، ccstrinterval)
ccarrtime = انقسام (ccstrtime ، ccstrinterval)
ccstrstatisticlog = ccstrstatisticlog و "processtimerecord" & ccstrformatinterval
ccstrstatisticlog = ccstrstatisticlog & "------------------------------------" & ccstrformatinterval