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

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

%>

<%
'-------------------------------------------------------------------------
' 函数功能:输出所有输入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 = "<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 if
lstrDebug = lstrDebug & "</LI>"
Next
lstrDebug = lstrDebug & "</OL>"
' Return the data
QueryStringData = lstrDebug

End function

%>

时间: 2024-10-26 01:48:53

将ASP的Debug变得简单的两个函数!的相关文章

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

<%'---------------------------------------------------------------------------'                   程序作用:打印request.form输入的所有值'---------------------------------------------------------------------------Response.Write FormData()    function FormData()   

ASP.NET Debug系列之三:Crash调试

前两天翻译了Tess Debug系列的Hang调试,今天就继续和大家看看Tess的第三篇文章,Crash调试.同样,由于机器的差异,可能你的调试结果和Tess有所差异,不过这个不要紧,只要你知道其中的原理就可以了.文章的图片可能会不太清楚,如果需要,大家可以去Tess的原文上看. ASP.NET Debug系列之一:环境搭配 Windbg,sos,tinyget,adplus常用命令 ASP.NET Debug系列之二:Hang调试 1. 问题重现 1) 浏览到http://localhost/

ASP.NET Debug系列之二 Hang调试

前几天我翻译了Tess debug系列的第一篇文章以及和大家介绍了一些debugger tools的基本命令.今天我们将一起讨论Tess关于debug 系列的第二篇文章.Tess在每个系列中都使用了问题+结果的结构,为了简化,我将把问题和结果一起给大家.此外,大家在自己机器上重现这些问题的时候,由于机器的差异,许多问题的结果都可能和Tess的不一样,这个不要紧,只要大家能够掌握原理就可以了.同时,由于blog的尺寸问题,图片显示的内容并不十分清晰,大家可以从Tess的链接上去找. ASP.NET

asp.net导出excel的简单方法

 这篇文章主要介绍了asp.net导出excel的简单方法实例,需要的朋友可以参考下 excel的操作,最常用的就是导出和导入,废话不多说上代码.   本例使用NPOI实现的,不喜勿喷哈....    代码如下: /// <summary>         /// 导出Excel         /// </summary>         /// <param name="stime"></param>         /// <

驱动人生5轻松一键 让Win8驱动变得简单

不少安装好Win8系统的用户,都发现驱动问题成了难题.找不到Win8系统下合适的驱动?Win8驱动无法安装成功?打开驱动人生5,就能轻松帮你解决这些问题.驱动人生5是一款专业的驱动管理软件,驱动库已全面支持Win8系统下的驱动安装,独有推荐驱动一键安装功能,让Win8驱动变得简单,轻松一键就不在成问题! 用户装好Win8后,打开驱动人生5,软件即可自动对电脑各硬件设备在Win8下的使用情况进行检测,帮助用户即时了解驱动问题的所在. 驱动人生5完成对电脑各设备驱动情况的检测后,会根据用户电脑的设备

效果-如何实现asp:button点击后变灰,又要执行一次后台的OnClick

问题描述 如何实现asp:button点击后变灰,又要执行一次后台的OnClick OnClientClick中添加 disabled 就直接不执行后台了 后台 Enabled 发现没效果不会变灰,如何处理呢.... 解决方案 将变灰的代码写在click而不是clientclick中 解决方案二: autopostback有没有设置page_load中有没有判断ispostback

无线入侵检测让无线安全检测变得简单

本文讲的是 :   无线入侵检测让无线安全检测变得简单 ,  为迎接党的十八大顺利召开,国家有关部门日前下发关于十八大网络与信息安全保障工作的通知,各级运营商也纷纷制定具体安全保障工作目标和工作内容,无线网络安全的防护工作也包括在内.作为国内信息安全行业的领军企业,启明星辰公司一直致力于在信息安全的无烟战场上保卫国家建设和发展.为了保障十八大的信息安全,启明星辰的专业技术人员携带无线入侵检测(WIDS)产品参加了某省级运营商无线安全检测及防护演练工作. 此次演练的主题是WLAN AP身份验证泛洪

素材公社,让设计变得简单

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 简单是设计的最高境界,创作一个漂亮的设计往往用最简单的表现形式就可以胜任,但简单并不代表容易,事实上,很多设计人员都走过一条从复杂到简单的风格路线,这说明设计简单的作品是需要经验积累的.素材公社结合100万设计师灵感,创作出让人过目不忘的效果! 素材公社网,创立于2008年,经历了近四年的褪变与发展,第九部落业已成为湖南省最新锐的网络信息公司

容器、Docker与Kubernetes——什么是Kubernetes以及它是如何使得容器化基础设施变得简单

本文讲的是容器.Docker与Kubernetes--什么是Kubernetes以及它是如何使得容器化基础设施变得简单[编者的话]本文是系列文章第2篇,主要介绍Kubernetes. 在本系列文章的第一篇中我阐述了从基础设施的容器化角度阐述了什么是容器,什么是Docker以及它们是怎么来重新定义运维工作以及对基础设施产生的影响.但是,仅仅了解了容器与Docker还不足以将它们运用到我们实际的技术栈中去:所以在本篇文章中我会介绍Kubernetes--一个容器的编排(orchestration)工