一聚教程网:一个值得你收藏的教程网站

热门教程

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

时间:2022-06-30 10:20:00 编辑:袖梨 来源:一聚教程网

<%
'---------------------------------------------------------------------------
' 程序作用:打印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 & "
    2. "
      Next
      lstrDebug = lstrDebug & "
    "
    End if
    lstrDebug = lstrDebug & "
  2. "
    Next
    lstrDebug = lstrDebug & "
"

热门栏目