begin process at 2012 05 27 07:24:45
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Formulaires

 > RÉCUPÉRER TOUTES LES VALEURS D'UN FORMULAIRE EN 13 LIGNES

RÉCUPÉRER TOUTES LES VALEURS D'UN FORMULAIRE EN 13 LIGNES


 Information sur la source

Note :
1,67 / 10 - par 3 personnes
1,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Formulaires Niveau :Débutant Date de création :01/02/2003 Date de mise à jour :01/02/2003 16:09:38 Vu :16 720

Auteur : totolehero

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
	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



 Sources du même auteur

AJOUT DE ZERO DEVANT UN NOMBRE

 Sources de la même categorie

Source .NET (Dotnet) COMMENT FORMATER LE NOMBRE DE CARACTÈRES D'UN COLONNE DANS U... par PascalCmoa
Source avec une capture Source .NET (Dotnet) AJOUTER UNE IMAGE À UN BOUTON par PascalCmoa
Source avec Zip Source avec une capture Source .NET (Dotnet) UPLOADER PLUSIEURS FICHIERS AVEC BARRE DE PROGRESSION AJAX par clemox
Source avec Zip Source .NET (Dotnet) DATAGRID AVEC RECHERCHE ALPHABÉTIQUE par gatita_dev
Source avec Zip Source avec une capture Source .NET (Dotnet) IMAGE ANTI-BOT ET VALIDATION DE FORMULAIRES par badrbadr

Commentaires et avis

Commentaire de hbigal le 04/02/2003 00:03:08

J'ai peut-être loupé une subtilité, mais c'est bien se compliquer le vie :)))


&lt;%
For Each objItem In Request.QueryString
   Response.Write "&lt;br&gt;" & objItem & " = " & Replace(Request.QueryString(objItem),"'","''") & ""
Next
%&gt;

Commentaire de jbanety le 31/10/2003 12:10:08

Ya même plus simple :
&lt;%
   For each item in request.Form
   response.write item & " : " & request.form(item) & "&lt;br&gt;"
   next
%&gt;

Commentaire de totolehero le 22/03/2004 17:03:28

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 &lt;replace&gt; 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.


 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,499 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales