Session et tableau à 2 dimension

Bonjour, je débute vraiment en ASp et je n'arrive pas à mettre un tableau à 2 dimension dans une variable de Session, remarquez je n'arrive pas non plus à créer le tableau, comment faire par exemple pour crée un tableau à 2 dimension et le stocker ensuite dans une varaible de session.
En fait je cherhce à faire un panier de réservation.

Merci d'avance pour votre aide

Bonjour,

Pour créer ta variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Redim Preserve MaVar(3, 2)
MaVar(1,1) = "A1"
MaVar(1,2) = "A2"
MaVar(2,1) = "B1"
MaVar(2,2) = "B2"
MaVar(3,1) = "C1"
MaVar(3,2) = "C2"
 
Session("MaVar") = MaVar

et pour relire ta variable de session :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Str_MaVar = Session("MaVar") 
For i = 1 to ubound(Str_MaVar)
   response.write Str_MaVar(i, 1) & "<br>"
   response.write Str_MaVar(i, 2) & "<br>"
Next

merci de ta réponse mais comment faire pour mettre à jour ma variable de session, je m'explique, je vais sur ma page une premiere fois j'ajoute les éléments dans ma variable de session, puis je vais sur une autre page et je reviens sur ma page pour rajouter de nouveaux éléments, comment faire ? car on ne connait pas le nombre d'article que je dois enregistrer dans la varaible.

Merci

Re,

Tu peux peut etre essayer ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Str_MaVar = Session("MaVar") 
For i = 1 to ubound(Str_MaVar) 
  MaVar(i, 1) = Str_MaVar(i, 1)
  MaVar(i, 2) = Str_MaVar(i, 2)
Next
redim preserve MaVar(ubound(Str_MaVar) + 1, 2)
MaVar(ubound(Str_MaVar) + 1, 1) = "D1"
MaVar(ubound(Str_MaVar) + 1, 2) = "D2"
Session("MaVar") = MaVar

L'idée est de regénérer ta variable session avec les éléments existants et d'y ajouter ton nouvel élément.

ok merci c'est bon ça marche mais disons que je veux modifier un element de ma variable de session par exemple l'index 5 de mon panier comment faire ?
Car je fais ça, mais ça n'a pas l'air de bien marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Str_Panier_temp = Session("PANIER") 
	Str_Panier_Temp(id,2) = request("NB")
	Session("PANIER") = Str_Panier_temp

avec id = 5 mais le truc c'est que lorsque je rappelle ma varaible rien n'a changer.

Merci de m'aider autant

Re,

Tu es sur que request("NB") contient bien quelquechose ?
Essaie de faire un response.write de sa valeur et dis nous.

oui oui il y a bien quelque chose dans mon request("NB"), je lui mets 2 et quand je rappelle ma variable il y a toujours 1

Re,

Tu n'aurai pas un "on error resume next" qui traine dans ton code par hasard ?

non pas du tout

Re,

Après avois fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Str_Panier_Temp(id,2) = request("NB")

Si tu fais un response.write de Str_Panier_Temp(2,2)
tu obtiens quoi ?
[/code]

ben j'obtient la valeur que je viens de lui mettre mais quand après je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Session("PANIER") = Str_Panier_temp

la valeur dans ma session est égale à l'ancienne

PS : merci d'aider un débutant comme moi ça m'aide beaucoup

Re,

On essaie une dernière chose. Après, je crois bien que je sèche et qu'il faudra solliciter d'autres membres de ce forum.
En VbScript, les variables ne sont pas typées. Ce sont des variants et c'est peut être ça qu'il ne pige pas.
Alors essaie ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Str_Panier_Temp(cInt(id),2) = request("NB")

ben ça change rien du tout
Je me demandais si je pouvais pas supprimer ma variable de session PANIER en ayant sauvgarder dans un autre tableau avant ?
Si oui comment faire pour supprimer cette vaiable ?

Merci

Salut,

Si j'ai bien compris ce que tu souhaites faire il y a une méthode très simple, c'est l'utilisation de tableaux imbiqués.

Il faut connaitre les méthodes split et join.

tu déclare 2 séparateurs par exemple s1 = '][' et s2 = ']|['
Pour chaque ligne de ton panier tu concatène les valeurs dans une chaine que tu stockera dans un hidden par exemple hidTable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Pour chaque ligne
    Ligne = ''
    Ligne += CodeArticle     
    Ligne += s1
    Ligne += Qte
    Ligne += s1
    Ligne += PUHT
    hidTable.value += Ligne + s2
fin pour

puis tu submitte ton formulaire

côté serveur il te suffit de reconstruire le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
table = request.form("hidTable")
tTable = split(table,"]|[")
pour i de 0 à borneSup(tTable)
    lTable = split(tTable(i),"][")
    v0 = lTable(0)
    v1 = lTable(1)
    v2 = lTable(2)
    v3 = lTable(3)
    stockage valeur dans base...
fin pour

et le tour est joué.

@+

Laurent Jordi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function cmdSave_onclick() {
	var nbrLignes = window.document.getElementById("hidnbrLignes").value
	//préparation de la table
	var szLigne = new String("");
	var szTable = new String("");
	for (i=0;i<=nbrLignes;i++) {
		szLigne="";
		szLigne += window.document.getElementById("hidCodeLigne" + i).value + ";"
		szLigne += window.document.getElementById("L01_PRODUITS_ST_Colisages" + i).value + ";"
		szLigne += window.document.getElementById("txtQteC" + i).value + ";"
		szLigne += window.document.getElementById("txtQteT" + i).value + ";"
		szLigne += window.document.getElementById("txtPUHT" + i).value + ";"
		szLigne += window.document.getElementById("txtPUHT_N" + i).value
		window.document.frmMem.hidTable.value += szLigne + "|"
	}	
	window.document.frmMem.hidTable.value = window.document.frmMem.hidTable.value.substr(0,window.document.frmMem.hidTable.value.length-1)
	window.document.frmMem.submit();			
}

Puis côté serveur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
	Table = request.Form("hidTable")
	oCmd.CommandType = adCmdStoredProc
	oCmd.commandText = "PRODUITS_Traitements_CommandesS01_Detail_UPD"
	oCmd.Parameters.refresh
	tTable = split(Table,"|")
	for i = 0 to uBound(tTable)
		tLigne=split(tTable(i),";")
		oCmd.Parameters("@CodeLigne") = tLigne(0)
		oCmd.Parameters("@CodeColisage") = tLigne(1)
		oCmd.Parameters("@sngQteC") = tLigne(2)
		oCmd.Parameters("@sngQteT") = tLigne(3)
		oCmd.Parameters("@curPUHT") = tLigne(4)
		oCmd.Parameters("@curPUHTNegocie") = tLigne(5)
		oCmd.Execute 
	next

merci de me dire si ça marche...

@+

Laurent Jordi