כאשר אנו מתעסקים ב-Debugging של דפי ASP, הצגת כל המשתנים שנשלחו מטופס וערכיהם -
יכול להקל לנו מאוד על החיים והמח...
ולכן, החלטתי ליצור פונקציה פשוטה אשר יודעת להציג את כל השמות והערכים של המשתנים שנשלחו.
לפונקציה קוראים FormDataDump() והיא מוגדרת כך:
<![CDATA[
Sub FormDataDump(bolShowOutput, bolEndPageExecution)
]]>
שני הערכים שמקבלת הפונקציה הם ערכים בוליאניים (שקר/אמת).
הראשון, bolShowOutput, אם ערכו הוא True, יגרום לכך שהפונקציה תרשום למסך את כל השמות והערכים
של המשתנים. זה יגרום לתצוגה לא "יפה" של כל המשתנים - משהו שלא הייתם רוצים במידה ואתם עובדים און-ליין
ולכן, במקרה כזה רצוי לקבוע את הפרמטר הראשון כ-False ואז הנתונים יוצגו בתוך תגית הערה של HTML
(), בכדי שניתן יהיה לראות את השמות והערכים רק בעזרת View/Source.
וכך לא להפריע לגולשים באתר, תוך כדי עבודה על הדפים.
הפרמטר השני, bolEndPageExecution, קובע האם להשתמש ב-Response.End לאחר כתיבת המשתנים.
Response.End יגרום להפסקה מיידית של הקוד, דבר שיכול להיות שימושי אם אין ברצונך להריץ
את הדף אלא רק לסדר בו דברים מסויימים.
כעת, נציג לכם את הקוד המלא של הפונקציה FormDataDump():
<![CDATA[
Sub FormDataDump(bolShowOutput, bolEndPageExecution)
Dim sItem
What linebreak character do we need to use?
Dim strLineBreak
If bolShowOutput then
We are showing the output, so set the line break character
to the HTML line breaking character
strLineBreak = "<br>"
Else
We are nesting the data dump in an HTML comment block, so
use the carraige return instead of <br>
Also start the HTML comment block
strLineBreak = vbCrLf
Response.Write("<!--" & strLineBreak)
End If
Display the Request.Form collection
Response.Write("DISPLAYING REQUEST.FORM COLLECTION" & strLineBreak)
For Each sItem In Request.Form
Response.Write(sItem)
Response.Write(" - [" & Request.Form(sItem) & "]" & strLineBreak)
Next
Display the Request.QueryString collection
Response.Write(strLineBreak & strLineBreak)
Response.Write("DISPLAYING REQUEST.QUERYSTRING COLLECTION" & strLineBreak)
For Each sItem In Request.QueryString
Response.Write(sItem)
Response.Write(" - [" & Request.QueryString(sItem) & "]" & strLineBreak)
Next
If we are wanting to hide the output, display the closing
HTML comment tag
If Not bolShowOutput then Response.Write(strLineBreak & "-->")
End page execution if needed
If bolEndPageExecution then Response.End
End Sub
]]>
שימוש בפונקציה
כל שעליכם לעשות בכדי להשתמש בפונקציה, הוא להוסיף את הקוד של הפונקציה בדף שמקבל את הפרמטרים
ולקרוא לה עם ערכי true או false בהתאם לרצונכם
|
.png)
(1)