将ASP的Debug变得简单的两个函数！

<%
'---------------------------------------------------------------------------
' 程序作用:打印request.form输入的所有值
'---------------------------------------------------------------------------
Response.Write FormData()
function FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug
' Count Form
llngMaxFieldIndex = Request.Form.Count

' Let user know if Form Do Not exist
if llngMaxFieldIndex = 0 Then
FormData = "Form data is empty."
Exit function
End if

' Begin building a list of all Form
lstrDebug = "

"

' Loop through Each Form
For llngFieldIndex = 1 To llngMaxFieldIndex
lstrDebug = lstrDebug & "
1. " & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
   ' Count the values
   llngMaxValueIndex = Request.Form(llngFieldIndex).Count
   ' if the Field doesn't have multiple values ...
   if llngMaxValueIndex = 1 Then
   lstrDebug = lstrDebug & " = "
   lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
   ' Else Loop through Each value
   Else
   lstrDebug = lstrDebug & "
   "
   For llngValueIndex = 1 To llngMaxValueIndex
   lstrDebug = lstrDebug & "
   1. "
      lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
      lstrDebug = lstrDebug & "
   "
   Next
   lstrDebug = lstrDebug & "
   "
   End if
   lstrDebug = lstrDebug & "
"
Next
lstrDebug = lstrDebug & "

"