מדידת זמן ריצת סקריפט ASP
הרבה פעמים אנו רוצים למדוד את הזמן שלוקח לסקריפט שלנו לרוץ. זו יכולה להיות מדידת הזמן שלוקח ל-IIS להעלות את הדף שלנו, או מדידת הזמן שלוקח לקטע קטן בדף ה-ASP לרוץ, כמו למשל, שליפת נתונים מבסיס הנתונים.
את זאת אנו יכולים להעשות ע"י מדידת הזמן בתחילת ריצת הסקריפט ושמירתו בתוך משתנה, ומדידת הזמן שוב, בסיום הריצה. ההפרש בין השניים יהיה משך הזמן בו רץ הסקריפט.
הגדרת המשתנים
נתחיל בהגדרת המשתנים אשר יכילו את זמן תחילת הריצה, זמן סיום הריצה ואת ההפרש בניהם, זמן הריצה הכולל:
Dim StartTime, EndTime, TotalTime
זמן תחילת הריצה
כדי למדוד את זמן תחילת הריצה, נשתמש בפונקציה Timer של VBScript. הפונקציה מחזירה לנו אז מספר השניות שחלפו מאז חצות. את תוצאת הפונקציה נשמור במשתנה StartTime
StartTime = Timer
הרצת הקוד
לאחר מכן, נכתוב את כל הקוד אשר את זמן הריצה שלו אנו רוצים למדוד. זה יכול להיות קטע קוד מסויים בדף, או הדף כולו.
For i = 1 To 5000
Response.Write i & "<BR>"
Next
זמן סיום הריצה
באותו אופן בו שמרנו את זמן תחילת ריצת הקוד, נשמור את זמן הסיום. הפעם בתוך המשתנה EndTime
EndTime = Timer
חישוב והצגת זמן הריצה
עכשיו יש לנו במשתנים StartTime ו-EndTime את זמני תחילת ריצת הקוד וסיומו. ההפרש בינהם, יהיה בעצם הזמן (בשניות) שלקח לקוד להתבצע. נכניס את ההפרש לתוך TotalTime
TotalTime = EndTime – StartTime
נשתמש בפונקציה FormatNumber כדי לפרמט את המספר
TotalTime = FormatNumber(TotalTime,4)
ונציג אותו על המסך:
Response.Write "It took "& TotalTime &" seconds to Execute this script."
הקוד במלואו
|
|
תגובות בפייסבוק