-
-
' 程序作用:打印request.form输入的所有值
-
Response.เขียน FormData()
ฟังก์ชัน FormData()
หรี่ llngMaxFieldIndex
หรี่ llngFieldIndex
หรี่ llngMaxValueIndex
Dim llngValueIndex
หรี่ lstrDebug
' แบบฟอร์มการนับ
llngMaxFieldIndex = Request.Form.Count
' แจ้งให้ผู้ใช้ทราบว่าไม่มีแบบฟอร์มอยู่
ถ้า llngMaxFieldIndex = 0 แล้ว
FormData = "ข้อมูลในแบบฟอร์มว่างเปล่า"
ฟังก์ชั่นออก
จบถ้า
' เริ่มต้นสร้างรายการแบบฟอร์มทั้งหมด
lstrDebug = "<OL>"
' วนซ้ำแต่ละแบบฟอร์ม
สำหรับ llngFieldIndex = 1 ถึง llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
' นับค่า
llngMaxValueIndex = Request.Form(llngFieldIndex).Count
' หากฟิลด์ไม่มีค่าหลายค่า ...
ถ้า llngMaxValueIndex = 1 แล้ว
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' อื่นวนซ้ำแต่ละค่า
อื่น
lstrDebug = lstrDebug & "<OL>"
สำหรับ llngValueIndex = 1 ถึง llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
ต่อไป
lstrDebug = lstrDebug & "</OL>"
จบถ้า
lstrDebug = lstrDebug & "</LI>"
ต่อไป
lstrDebug = lstrDebug & "</OL>"
' ส่งคืนข้อมูล
FormData = lstrDebug
สิ้นสุดฟังก์ชัน
%>
<%
-
' 函数功能：输出所有输入request.querystring值，用于调试！
'-------------------------------------------------' ------------------------
Response.เขียน QueryStringData()
ฟังก์ชั่น QueryStringData()
หรี่ llngMaxFieldIndex
หรี่ llngFieldIndex
หรี่ llngMaxValueIndex
Dim llngValueIndex
หรี่ lstrDebug
' นับ QueryString
llngMaxFieldIndex = Request.QueryString.Count
' แจ้งให้ผู้ใช้ทราบว่าไม่มี QueryString หรือไม่
ถ้า llngMaxFieldIndex = 0 แล้ว
QueryStringData = "ข้อมูล QueryString ว่างเปล่า"
ฟังก์ชั่นออก
จบถ้า
' เริ่มต้นสร้างรายการ QueryString ทั้งหมด
lstrDebug = "<OL>"
' วนซ้ำแต่ละ QueryString
สำหรับ llngFieldIndex = 1 ถึง llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))
' นับค่า
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count
' หากฟิลด์ไม่มีค่าหลายค่า ...
ถ้า llngMaxValueIndex = 1 แล้ว
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' Else วนซ้ำแต่ละค่า
อื่น
lstrDebug = lstrDebug & "<OL>"
สำหรับ llngValueIndex = 1 ถึง llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
ต่อไป
lstrDebug = lstrDebug & "</OL>"
จบถ้า
lstrDebug = lstrDebug & "</LI>"
ต่อไป
lstrDebug = lstrDebug & "</OL>"
' ส่งคืนข้อมูล
QueryStringData = lstrDebug
สิ้นสุดฟังก์ชัน
%>