Dos funciones que simplifican la depuración de ASP

<%
'------------------------------------------------- --------------------------
' 程序作用:打印request.form输入的所有值
'------------------------------------------------- --------------------------
Respuesta.Escribir FormData()
función FormularioDatos()
Dim llngMaxFieldIndex
Índice de campo de relleno tenue
Dim llngMaxValueIndex
Índice de valor de relleno tenue
Dim lstrDebug
' Formulario de conteo
llngMaxFieldIndex = Solicitud.Form.Count

' Informar al usuario si el formulario no existe
si llngMaxFieldIndex = 0 Entonces
FormData = "Los datos del formulario están vacíos."
Función de salida
terminar si

'Comenzamos a construir una lista de todos los formularios
lstrDebug = "<OL>"

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

'Cuenta los valores
llngMaxValueIndex = Solicitud.Form(llngFieldIndex).Count

'si el campo no tiene múltiples valores...
si llngMaxValueIndex = 1 Entonces
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' De lo contrario recorre cada valor
Demás
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 si
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
' Devuelve los datos
FormData = lstrDebug

Función final

%>

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

Respuesta.Escribir QueryStringData()
función QueryStringData()
Dim llngMaxFieldIndex
Índice de campo de relleno tenue
Dim llngMaxValueIndex
Índice de valor de relleno tenue
Dim lstrDebug
' Contar cadena de consulta
llngMaxFieldIndex = Solicitud.QueryString.Count

' Informar al usuario si QueryString no existe
si llngMaxFieldIndex = 0 Entonces
QueryStringData = "Los datos de QueryString están vacíos."
Función de salida
terminar si

'Comenzamos a construir una lista de todas las QueryString
lstrDebug = "<OL>"

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

'Cuenta los valores
llngMaxValueIndex = Solicitud.QueryString(llngFieldIndex).Count

'si el campo no tiene múltiples valores...
si llngMaxValueIndex = 1 Entonces
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' De lo contrario recorre cada valor
Demás
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 si
lstrDebug = lstrDebug & "</LI>"
Próximo
lstrDebug = lstrDebug & "</OL>"
' Devuelve los datos
QueryStringData = lstrDebug

Función final

%>