注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

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

2011-06-04 19:11:13|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

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

 ' 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 i
 lstrDebug = lstrDebug  "/LI"
 Next
 lstrDebug = lstrDebug  "/OL"
 ' 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 i

 ' Begin building a list of all QueryString
 lstrDebug = "OL"

 ' Loop through Each QueryString
 For llngFieldIndex = 1 To llngMaxFieldIndex
 lstrDebug = lstrDebug  "LI"  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  "OL"
 For llngValueIndex = 1 To llngMaxValueIndex
 lstrDebug = lstrDebug  "LI"
 lstrDebug = lstrDebug  Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
 lstrDebug = lstrDebug  "/LI"
 Next
 lstrDebug = lstrDebug  "/OL"
 End i
 lstrDebug = lstrDebug  "/LI"
 Next
 lstrDebug = lstrDebug  "/OL"
 ' Return the data
 QueryStringData = lstrDebug

 End function
%

  评论这张
 
阅读(76)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017