繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ASP的Debug变得简单的两个函数
- ASP
- ASP下经常用的字符串等函数参考资料
- asp下连接数据库 ASP链接数据库字符串大全总结
- asp内置对象 ObjectContext 事务管理 详解
- asp 内置对象 Application 详解
- ASP中 SQL语句 使用方法
- ASP 中 Split 函数的实例分析
- ASP 中 DateDiff 函数详解 主要实现两日期加减操作
- asp 存贮过程 (SQL版asp调用存储过程)
- 利用ASP实现在线生成电话图片效果脚本附演示
- 使用ASP记录在线用户的数量的代码
- 关于ASP生成伪参数技巧 简洁实用的伪（僞）参数
- asp 关键词字符串分割如何实现方法
- 用ASP编写的加密和解密类
- ASP之处理用Javascript动态添加的表单元素数据的代码
- asp下最常用的19个基本技巧
- 一些Asp技巧和实用解决方法
- asp实现一个统计当前在线用户的解决方案
- asp下的一个很简单的验证码程序
- asp又一个分页的代码例子
- asp实现防止从外部提交数据的三种方法
将ASP的Debug变得简单的两个函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 199 ::
收藏到网摘: n/a
<%
'---------------------------------------------------------------------------
' 程序作用:打印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 = "Quer
评论 (0) All
