ASPのデバッグを簡単にする2つの機能

<%
'------------------------------------------------ ------------------------
' 程序作用:打印request.form入力のすべて
'------------------------------------------------ ------------------------
Response.Write FormData()
関数 FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrデバッグ
' カウントフォーム
llngMaxFieldIndex = リクエスト.フォーム.カウント

' フォームが存在しない場合はユーザーに知らせます
llngMaxFieldIndex = 0 の場合
FormData = "フォーム データが空です。"
終了機能
次の場合に終了

' すべての Form のリストの作成を開始します
lstrDebug = "<OL>"

' 各フォームをループします
llngFieldIndex = 1 ～ llngMaxFieldIndex の場合
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))

' 値を数えます
llngMaxValueIndex = リクエスト.フォーム(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>"
' データを返す
FormData = lstrDebug

関数の終了

%>

<%
'------------------------------------------------ ------------------------
' 関数数機能：すべての入力リクエスト.クエリ文字列を出力、调试に使用します！
'------------------------------------------------ ------------------------

Response.Write QueryStringData()
関数QueryStringData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrデバッグ
' クエリ文字列のカウント
llngMaxFieldIndex = Request.QueryString.Count

' QueryString が存在しない場合にユーザーに知らせる
llngMaxFieldIndex = 0 の場合
QueryStringData = "QueryString データが空です。"
終了機能
次の場合に終了

' すべての QueryString のリストの作成を開始します
lstrDebug = "<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>"
' データを返す
QueryStringData = lstrDebug

関数を終了します

%>