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

2016-01-29 18:45 1 1 收藏

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

【 tulaoshi.com - ASP 】

 

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

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

%

(本文来源于图老师网站,更多请访问https://www.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

来源:https://www.tulaoshi.com/n/20160129/1507187.html

延伸阅读
标签: ASP
  '========================== '过滤提交表单中的SQL '========================== function ForSqlForm()  dim fqys,errc,i,items  dim nothis(18)  nothis(0)="net user"  nothis(1)="xp_cmdshell"  nothis(2)="/add"  nothis(3)="exec%20master.dbo.xp_cmdshell"  nothis(4)="net local...
标签: Web开发
代码如下: //======需引用jquery框架======// //返回当前页面高度 function pageHeight(){ if($.browser.msie){ return document.compatMode == "CSS1Compat"? document.documentElement.clientHeight : document.body.clientHeight; }else{ return self.innerHeight; } }; //返回当前页面宽度 function pageWidth(){ if($...
标签: 营养价值
我们中国是个地大物博的国家,同时也是一个人口大国。通常会因为地域和民族的差异,而导致风俗习惯的不同。风俗习惯的不同经常表现在穿着和饮食方面,比如我们汉族人穿着的特点和其他族都是不一样的;同时我们吃的东西也和其他族的人吃的食物有着很大的差异。 我们的饮食差异最好的表现就是在于春节了,有的地方会吃饺子,而有的地方...
标签: Delphi
  二.巧用(Windows的)API函数 这里用几个具体的应用来说明: 应用1: Delphi中有控件MEMO,当使用应控件输入内容或编辑时,如何确定光标当前的位置呢?这时就可以调用Windows API函数中的EM_LINEFROMCHAR和EM_LINEINDEX消息来确定MEMO控件中光标的当前行和列,具体调用方法的过程如下: procedure TForm1.Button1Click(Sender:...
两个皮肤保养小方法让肌肤变得光滑紧致 脸部皮肤也需要保暖? 脸部皮肤和身体其他区域的皮肤相比要更为脆弱一些,但在寒冷的冬季却要在寒冷干燥的空气中长时间暴漏。在冷空气中,皮肤的新陈代谢速度都会自然的减慢,细胞调节能力也会减弱,冬天室内外的温度变化往往又很大,长期这样肌肤很容易就会出现“缺氧”和...

经验教程

310

收藏

46
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部