<%
'------------------------------------------------- --------------------------
' 程式作用：印出request.form輸入的所有值
'------------------------------------------------- --------------------------
Response.Write FormData()
函數 FormData()
調暗最大欄位索引
調暗字段索引
調暗最大值索引
調光價值指數
昏暗lstr調試
' 計數形式
llngMaxFieldIndex = 請求.表單.計數
' 讓使用者知道表單是否不存在
如果 llngMaxFieldIndex = 0 那麼
FormData =“表單資料為空。”
退出功能
結束如果
' 開始建立所有表單的列表
lstr調試 =“<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))
' else 迴圈遍歷每個值
別的
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>"
' 回傳數據
表單資料 = lstr調試
結束函數
%>
<%
'------------------------------------------------- ------------------------
' 函數功能：輸出所有輸入request.querystring值，用於偵錯！
'------------------------------------------------- ------------------------
Response.Write QueryStringData()
函數查詢字串資料()
調暗最大欄位索引
調暗字段索引
調暗最大值索引
調光價值指數
昏暗lstr調試
' 計算查詢字串
llngMaxFieldIndex = Request.QueryString.Count
' 讓使用者知道 QueryString 是否不存在
如果 llngMaxFieldIndex = 0 那麼
QueryStringData = "QueryString 資料為空。"
退出功能
結束如果
' 開始建立所有 QueryString 的列表
lstr調試 =“<OL>”
' 循環遍歷每個查詢字串
對於 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>"
' 回傳數據
查詢字串資料 = lstrDebug
結束函數
%>