繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ASP的Debug变得简单的两个函数
- ASP
- 提高SQL的执行效率的ASP的五种做法
- asp的offset的一个go to page
- asp中command的在单条记录时,有些字段显示为空的问题
- asp,php一句话木马整理方便查找木马
- asp 合并记录集并删除的sql语句
- asp下循环一行多少个
- asp循环行数输出函数
- asp access重新开始编号
- ASP生成数字相加求和的BMP图片验证码
- 静态页面利用JS读取cookies记住用户信息
- 比较详细的Asp伪静态化方法及Asp静态化探讨
- asp Response.flush 实时显示进度
- Asp高级故障解决以及相关代码
- asp智能脏话过滤系统v1.0
- ASP文件中的安全问题
- Access数据库中“所有记录中均未找到搜索关键字”的解决方法
- asp两组字符串数据比较合并相同数据
- asp MYSQL出现问号乱码的解决方法
- asp文章中随机插入网站版权文字的实现代码
- ASP利用XMLHTTP实现表单提交以及cookies的发送的代码
将ASP的Debug变得简单的两个函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 190 ::
收藏到网摘: 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
