ฉันไม่รู้ว่าเพื่อนที่เขียนโค้ดใน ASP มีความรู้สึกเช่นเดียวกับที่ฉันทำ จากนั้นเอาต์พุตที่เกี่ยวข้องที่เกี่ยวข้องมาดูกันว่าถูกต้องหรือไม่ ไม่กี่วันที่ผ่านมาฉันเขียนหน้าพันบรรทัดซึ่งมีประมาณเจ็ดหรือแปดฟังก์ชั่น
ฉันเห็นชั้นเรียนดีบัก (VBS) ใน ASP วันนี้และลอง
วิธีการใช้งานง่าย:
test.asp
<!-#รวมไฟล์ = debuggingConsole.asp->
-
เอาต์พุต = xxxx
ตั้งค่า debugstr = ใหม่ debuggingConsole
debugstr.enabled = true
debugstr.print ค่าพารามิเตอร์ของเอาต์พุต, เอาต์พุต
-
debugstr.draw
ตั้งค่า debugstr = ไม่มีอะไร
-
============================================== =
debuggingconsole.asp
-
ชั้นเรียนดีบัก
dbg_enabled ส่วนตัว
DBG_SHOW ส่วนตัว
dbg_requesttime ส่วนตัว
dbg_finishtime ส่วนตัว
DBG_DATA ส่วนตัว
DBG_DB_DATA ส่วนตัว
DBG_ALLVARS ส่วนตัว
dbg_show_default ส่วนตัว
prive divsets (2)
'construktor => ตั้งค่าเริ่มต้น
คลาสย่อย class_initialize ()
dbg_requesttime = ตอนนี้ ()
dbg_allvars = false
ตั้งค่า dbg_data = server.createObject (scripting.dictionary)
DivSets (0) = <tr> <td style = 'เคอร์เซอร์: hand;' onclick = javascript: ถ้า (dacument.getElementById ('ข้อมูล#sectname#') ) Padding-bottom: 2;#title#| ข้อมูล#|
Divsets (1) = <tr> <td> <div id = select#style = font-weight: bold; 4; ใน 4 4 4 {{documen tbyid ('data#sectname#') AME # style = Cursor: Text;
Divsets (2) = <tr> <td> <div id = sect#sectname#style = พื้นหลัง:#7ea5d7; |
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0,0
สิ้นสุดย่อย
คุณสมบัติสาธารณะให้เปิดใช้งาน (บูล] ตั้งค่าเป็นจริงหรือเท็จ
dbg_enabled = bnewvalue
จุดสิ้นสุดของทรัพย์สิน
คุณสมบัติสาธารณะได้รับการเปิดใช้งาน '' '[bool] ได้รับค่าที่เปิดใช้งาน
เปิดใช้งาน = dbg_enabled
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะให้แสดง (bnewvalue) '' '' [สตริง] ตั้งค่าแผงการดีบัก
dbg_show = bnewvalue
จุดสิ้นสุดของทรัพย์สิน
สถานที่สาธารณะรับการแสดง '' '[สตริง] ได้รับแผงการดีบัก
show = dbg_show
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะให้ Allvars (bnewvalue) '' '
dbg_allvars = bnewvalue
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะรับ Allvars '' '[bool] ได้รับหากตัวแปรทั้งหมดจะปรากฏขึ้น
allvars = dbg_allvars
จุดสิ้นสุดของทรัพย์สิน
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ********************************************* ************** *******************
'' @Sdescription: เพิ่มตัวแปรลงในข้อมูลการดีบัก
'' @param: -label [String]: คำอธิบายของตัวแปร
'' @param: -output [ตัวแปร]: ตัวแปร ITSET
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ********************************************* ************** *******************
พิมพ์ย่อยสาธารณะ (ฉลาก, เอาต์พุต)
ถ้า dbg_enabled แล้ว
ถ้า err.number> 0 แล้ว
โทร dbg_data.add (validlabel (ฉลาก), !!! ข้อผิดพลาด: & err.number & & err.description)
err.lear
อื่น
ไม่ซ้ำกัน = validLabel (ฉลาก)
response.write impialId
โทร DBG_DATA.ADD (ไม่ซ้ำกัน, เอาต์พุต)
สิ้นสุดถ้า
สิ้นสุดถ้า
จบ