Récupérer toutes les valeurs d'un formulaire en 13 lignes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 107 fois - Téléchargée 35 fois

Contenu du snippet

Bonjour à tous,
Je ne sais pas si ce code existe déjà mais je crois que j'en ai eu marre de le chercher à chaque fois alors le voici:
Il permet de récupérer tous les champs d'un formulaire et de le traiter avec les fameux replace(...) qui prends a chaque fois plusieurs ligne
Cet exemple est pour une méthode POST mais il marce aussi pour une méthode GET
Il faut suffira de changer la ligne 2 par For each meschamps in request.querystring ...
Cordialement !

Source / Exemple :


Dim recupV : meschamps="" : e=0
	For each meschamps in request.form	
	Recup=Recup&meschamps&"@@@"
	next	
	recupV=SPLIT(LEFT(recup,len(recup)-3),"@@@")
	For each recup in recupV	
	recupV(e)=request(recupV(e))
	If recupV(e)<>"" then
	recupV(e)=Replace(recupV(e),"'","''")
	End if
	response.write Recup&"="&recupV(e)&"<br>"
	e=e+1
	Next

A voir également

Ajouter un commentaire

Commentaires

hbigal
Messages postés
46
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
18 février 2003
-
J'ai peut-être loupé une subtilité, mais c'est bien se compliquer le vie :)))


<%
For Each objItem In Request.QueryString
Response.Write "
" & objItem & " = " & Replace(Request.QueryString(objItem),"'","''") & ""
Next
%>
jbanety
Messages postés
33
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
30 juin 2011
-
Ya même plus simple :
<%
For each item in request.Form
response.write item & " : " & request.form(item) & "
"
next
%>
cs_totolehero
Messages postés
3
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
22 mars 2004
-
Le but est de récuperer les variables afin de les mettre dans une BDD.

Le code de hbigal est valable seulement si toutes les champs ne sont pas null car un <replace> sur un vide donne une erreur !

Le code de jbanety ne fait que afficher les valeurs et ne fait pas les modification sur les simples cotes afin d'éviter les erreurs.
Commenter la réponse de hbigal

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_totolehero)