<%
'------------------------------------------------- --------------------------
' 程序作用：打印request.form输入的所有值
'------------------------------------------------- --------------------------
Response.Write FormData()
函数 FormData()
调暗最大字段索引
调暗字段索引
调暗最大值索引
调光价值指数
昏暗lstr调试
' 计数形式
llngMaxFieldIndex = 请求.表单.计数
' 让用户知道表单是否不存在
如果 llngMaxFieldIndex = 0 那么
FormData =“表单数据为空。”
退出功能
结束如果
' 开始构建所有表单的列表
lstr调试 =“<OL>”
' 循环遍历每个表单
对于 llngFieldIndex = 1 到 llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
' 计算值
llngMaxValueIndex = Request.Form(llngFieldIndex).Count
' 如果字段没有多个值...
如果 llngMaxValueIndex = 1 那么
lstrDebug = lstrDebug＆“=”
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' else 循环遍历每个值
别的
lstrDebug = lstrDebug & "<OL>"
对于 llngValueIndex = 1 到 llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
下一个
lstrDebug = lstrDebug & "</OL>"
结束如果
lstrDebug = lstrDebug & "</LI>"
下一个
lstrDebug = lstrDebug & "</OL>"
' 返回数据
表单数据 = lstr调试
结束函数
%>
<%
'------------------------------------------------- ------------------------
' 函数功能：输出所有输入request.querystring值，用于调试！
'------------------------------------------------- ------------------------
Response.Write QueryStringData()
函数查询字符串数据()
调暗最大字段索引
调暗字段索引
调暗最大值索引
调光价值指数
昏暗lstr调试
' 计算查询字符串
llngMaxFieldIndex = Request.QueryString.Count
' 让用户知道 QueryString 是否不存在
如果 llngMaxFieldIndex = 0 那么
QueryStringData = "QueryString 数据为空。"
退出功能
结束如果
' 开始构建所有 QueryString 的列表
lstr调试 =“<OL>”
' 循环遍历每个查询字符串
对于 llngFieldIndex = 1 到 llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))
' 计算值
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count
' 如果字段没有多个值...
如果 llngMaxValueIndex = 1 那么
lstrDebug = lstrDebug＆“=”
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' else 循环遍历每个值
别的
lstrDebug = lstrDebug & "<OL>"
对于 llngValueIndex = 1 到 llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
下一个
lstrDebug = lstrDebug & "</OL>"
结束如果
lstrDebug = lstrDebug & "</LI>"
下一个
lstrDebug = lstrDebug & "</OL>"
' 返回数据
查询字符串数据 = lstrDebug
结束函数
%>