将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 = "

1. "
2. 
   
3. 
   
4. ' Loop through Each Form
5. 
   
6. For llngFieldIndex = 1 To llngMaxFieldIndex
7. 
   
8. lstrDebug = lstrDebug & "
9. " & 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 & "
   1. "
   2. 
      
   3. For llngValueIndex = 1 To llngMaxValueIndex
   4. 
      
   5. lstrDebug = lstrDebug & "
   6. "
      lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
      lstrDebug = lstrDebug & "
   7. "
   8. 
      
   9. Next
   10. 
       
   11. lstrDebug = lstrDebug & "
   "
   End if
   lstrDebug = lstrDebug & "
10. "
11. 
    
12. Next
13. 
    
14. lstrDebug = lstrDebug & "

"