最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
将ASP的Debug变得简单的两个函数！
时间：2022-06-30 10:20:00 编辑：袖梨 来源：一聚教程网
<%
'---------------------------------------------------------------------------
' 程序作用:打印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 = "
'---------------------------------------------------------------------------
' 程序作用:打印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 = "
- "
- " & 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 & "- "
- "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & " "
For llngValueIndex = 1 To llngMaxValueIndex
lstrDebug = lstrDebug & "
Next
lstrDebug = lstrDebug & "
End if
lstrDebug = lstrDebug & " " - "
' Loop through Each Form
For llngFieldIndex = 1 To llngMaxFieldIndex
lstrDebug = lstrDebug & "
Next
lstrDebug = lstrDebug & "
相关文章
- 《出发吧麦芬》金色歌剧院副本怎么通关最快 06-16
- 《无限暖暖》花心追爱记获得方法大全 06-16
- 《封神幻想世界》八星妖王进阶打法思路推荐 06-16
- 《众神派对》五星角色女娲风女希详细介绍 06-16
- 《弹壳特攻队》零氪/微氪怎么出装最有效 06-16
- 《星之破晓》时之彼端妲己怎么样 06-16