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

此生为影

此生为影

2016-01-29 18:45

将ASP的Debug变得简单的两个函数,将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 = "<OL"
    
     ' Loop through Each Form
     For llngFieldIndex = 1 To llngMaxFieldIndex
      lstrDebug = lstrDebug & "<LI" & 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 & "<OL"
       For llngValueIndex = 1 To llngMaxValueIndex
        lstrDebug = lstrDebug & "<LI"
        lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
        lstrDebug = lstrDebug & "</LI"
       Next
       lstrDebug = lstrDebug & "</OL"
      End if
      lstrDebug = lstrDebug & "</LI"
     Next
     lstrDebug = lstrDebug & "</OL"
     ' Return the data
     FormData = lstrDebug
    
    End function

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

%

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

<%
'-------------------------------------------------------------------------
'           函数功能:输出所有输入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 = "Quer

展开更多 50%)
分享

猜你喜欢

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

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

Asp用于分页的两个函数

ASP
Asp用于分页的两个函数

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

计算两个时间之差的函数

ASP
计算两个时间之差的函数

本函数计算两个时间的差

ASP
本函数计算两个时间的差

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

模拟SQLSERVER的两个函数:dateadd(),datediff()

PHP
模拟SQLSERVER的两个函数:dateadd(),datediff()

用JavaScript 处理 URL 的两个函数代码

Web开发
用JavaScript 处理 URL 的两个函数代码

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

RS.OPEN SQL,CONN,A,B 全接触

RS.OPEN SQL,CONN,A,B 全接触

如何在pb中创建COM组件 并在asp中调用并返回结果集?

如何在pb中创建COM组件 并在asp中调用并返回结果集?
下拉加载更多内容 ↓