将ASP的Debug变得简单的两个函数 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 将ASP的Debug变得简单的两个函数

将ASP的Debug变得简单的两个函数 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

<%
'---------------------------------------------------------------------------
'                   程序作用:打印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 = "

" & 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. "
  lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
  lstrDebug = lstrDebug & "
"
End if
lstrDebug = lstrDebug & "

"
     ' Return the data
     FormData = lstrDebug

    End function

<%
'-------------------------------------------------------------------------
' 函数功能：输出所有输入request.querystring值，用于调试！
'-------------------------------------------------------------------------

   Response.Write QueryStringData()
    function QueryStringData()
     Dim llngMaxFieldIndex
     Dim llngFieldIndex
     Dim llngMaxValueIndex
     Dim llngValueIndex
     Dim lstrDebug
     ' Count QueryString
     llngMaxFieldIndex = Request.QueryString.Count

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

     ' Begin building a list of all QueryString
     lstrDebug = "

" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))

      ' Count the values
      llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count

      ' if the Field doesn't have multiple values ...
      if llngMaxValueIndex = 1 Then
       lstrDebug = lstrDebug & " = "
       lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
      ' Else Loop through Each value
      Else
       lstrDebug = lstrDebug & "
1. "
  lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
  lstrDebug = lstrDebug & "
"
End if
lstrDebug = lstrDebug & "

"
     ' Return the data
     QueryStringData = lstrDebug

    End function

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。