Deux fonctions qui simplifient le débogage ASP

<%
'------------------------------------------------- --------------------------
' Il s'agit de la version "request.form"
'------------------------------------------------- --------------------------
Réponse.Write FormData()
fonction FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Faible lstrDebug
' Formulaire de comptage
llngMaxFieldIndex = Requête.Form.Count

' Informez l'utilisateur si le formulaire n'existe pas
si llngMaxFieldIndex = 0 Alors
FormData = "Les données du formulaire sont vides."
Fonction de sortie
Terminer si

' Commencer à créer une liste de tous les formulaires
lstrDebug = "<OL>"

' Parcourez chaque formulaire
Pour llngFieldIndex = 1 Pour llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))

' Comptez les valeurs
llngMaxValueIndex = Request.Form(llngFieldIndex).Count

' si le Champ n'a pas plusieurs valeurs...
si llngMaxValueIndex = 1 Alors
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
' Sinon, parcourir chaque valeur en boucle
Autre
lstrDebug = lstrDebug & "<OL>"
Pour llngValueIndex = 1 À llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Suivant
lstrDebug = lstrDebug & "</OL>"
Terminer si
lstrDebug = lstrDebug & "</LI>"
Suivant
lstrDebug = lstrDebug & "</OL>"
'Renvoyer les données
FormData = lstrDebug

Fin de la fonction

%>

<%
'------------------------------------------------- --------------------
' Il s'agit d'une requête :request.querystring值，于调试！
'------------------------------------------------- ------------------------

Réponse.Write QueryStringData()
fonction QueryStringData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Faible lstrDebug
' Compter la chaîne de requête
llngMaxFieldIndex = Request.QueryString.Count

' Informez l'utilisateur si QueryString n'existe pas
si llngMaxFieldIndex = 0 Alors
QueryStringData = "Les données QueryString sont vides."
Fonction de sortie
Terminer si

' Commencer à créer une liste de tous les QueryString
lstrDebug = "<OL>"

' Parcourir chaque chaîne de requête
Pour llngFieldIndex = 1 Pour llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))

' Comptez les valeurs
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count

' si le Champ n'a pas plusieurs valeurs...
si llngMaxValueIndex = 1 Alors
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
' Sinon, parcourir chaque valeur en boucle
Autre
lstrDebug = lstrDebug & "<OL>"
Pour llngValueIndex = 1 À llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Suivant
lstrDebug = lstrDebug & "</OL>"
Terminer si
lstrDebug = lstrDebug & "</LI>"
Suivant
lstrDebug = lstrDebug & "</OL>"
'Renvoyer les données
QueryStringData = lstrDebug

Fin de la fonction

%>