Duas funções que simplificam a depuração ASP

<%
'---------------------------------------------------------------- --------------------------
' 程序作用:打印request.form输入的所有值
'---------------------------------------------------------------- --------------------------
Response.Write FormData()
função FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug
'Formulário de contagem
llngMaxFieldIndex = Request.Form.Count

' Informa ao usuário se o formulário não existe
se llngMaxFieldIndex = 0 Então
FormData = "Os dados do formulário estão vazios."
Função de saída
Terminar se

'Começa a construir uma lista de todos os formulários
lstrDebug = "<OL>"

'Percorre cada formulário
Para llngFieldIndex = 1 Para llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))

'Conta os valores
llngMaxValueIndex = Solicitação.Form(llngFieldIndex).Count

'se o Campo não tiver vários valores...
se llngMaxValueIndex = 1 Então
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' Else percorre cada valor
Outro
lstrDebug = lstrDebug & "<OL>"
Para llngValueIndex = 1 Para llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
Terminar se
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
'Retorna os dados
FormData = lstrDebug

Função final

%>

<%
'---------------------------------------------------------------- ------------------------
' 函数功能:输出所有输入request.querystring值，用于调试！
'---------------------------------------------------------------- ------------------------

Response.Write QueryStringData()
função QueryStringData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug
'Conta QueryString
llngMaxFieldIndex = Request.QueryString.Count

' Informa ao usuário se QueryString não existe
se llngMaxFieldIndex = 0 Então
QueryStringData = "Os dados de QueryString estão vazios."
Função de saída
Terminar se

'Começa a construir uma lista de todas as QueryString
lstrDebug = "<OL>"

'Percorre cada QueryString
Para llngFieldIndex = 1 Para llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))

'Conta os valores
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count

'se o Campo não tiver vários valores...
se llngMaxValueIndex = 1 Então
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' Else percorre cada valor
Outro
lstrDebug = lstrDebug & "<OL>"
Para llngValueIndex = 1 Para llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
Terminar se
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
'Retorna os dados
QueryStringData = lstrDebug

Função final

%>