ASP

[ASP] passage de variable d'une page à l'autre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ASP] passage de variable d'une page à l'autre

extra

Bonjour,

Je suis loin d'être un pro en ASP (c'est pour cela que je sollicite votre aide...)

Sur une base de données, je voudrai faire une recherche par mot clé, et afficher le tout avec 5 résultats par pages.

La première page, ça fonctionne, mais les suivantes, ca bug c'est normal, car en rechargeant la page il fait la relecture du formulaire qui du coup est vide...

Comment faire S.V.P.

Merci
la page en question (le serveur est Down à l'heure ou j'écris mais cela ne devrait pas durer)http://www.ac-nancy-metz.fr/pres-e [...] /liste.asp
le code

Code :

<html>
<head>
...
</head>
... bla bla
<html>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<form method="POST" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" action="listeR.asp">
<b>Trier par : <a href="listeN.asp">nom</a>, <a href="listeS.asp">section</a>,
<a href="listeA.asp">année</a> </b>                                                    
<input type="text" name="recherche" size="20">  
<input type="submit" value="Rechercher" name="B1"></form>
<%mot1=Request.Form("recherche" )
mot=Replace(mot1,"'","''" )
mot=Replace(mot,"<","&lt" )
mot=Replace(mot,">","&gt" )%>
<%if mot="" or mot=" " then%>
<b>
Vous n'avez rien saisi !<BR>Merci d'écrire le nom à trouver sur
cet annuaire, puis de valider en cliquant sur "Rechercher"!<BR> 
</b>
<%else%>
<%Nmax = 5 ' nombre par page
Ndeb = Cint(request.queryString("num" ))
' nombre total de fiches
SQL="SELECT count(*) FROM histo"
RS2 = conn.execute(SQL)
Ntotal = RS2(0) - 1 ' commence à 0
' sélectionne les fiches de la table
Set RS = server.createobject("ADODB.Recordset" )
SQL="SELECT TOP " & (Ndeb+Nmax) & " * FROM histo where nom like '%"&mot&"%' or prenom like '%"&mot&"%' or classe like '%"&mot&"%' or annee like '%"&mot&"%' order by nom"
RS.Open SQL,Conn , 3, 3%>
Il y a <%=ntotal%> enregistrements d'anciens élèves :
<div align="center">
<table border="4" cellspacing="1" cellpadding="5" id="table12">
<%' Avance à la 1ère
RS.Move(Ndeb)
' tant qu'il reste des fiches
while not RS.eof
' affiche le champ%>
<tr>
<td valign="top" align="center"><a>
<p style="margin-top: 0; margin-bottom: 0"><%=response.write(Server.HTMLEncode(rs.Fields("prenom" ).Value))%></p>
<p style="margin-top: 0; margin-bottom: 0"><b><%=response.write(Server.HTMLEncode(rs.Fields("nom" ).Value))%></b></p>
</td>
<td align="center" valign="top"><a>
<p style="margin-top: 0; margin-bottom: 0"><%=response.write(Server.HTMLEncode(rs.Fields("classe" ).Value))%></p> </a><%=response.write(Server.HTMLEncode(rs.Fields("annee" ).Value))%></td>
<td align="center" valign="middle"><a>
<p style="margin-top: 0; margin-bottom: 0">
<% email = Server.HTMLEncode(rs.Fields("email" ))%>
<% if email = "pas de mail" then%>
<img border="0" src="../images/Noemail.gif" width="28" height="31">
<% else%>
<a href="mailto:<%=response.write(Server.HTMLEncode(rs.Fields("email" ).Value))%>?subject=Anciens élèves du lycée Loritz">
<img border="0" src="../images/email.gif" width="28" height="31"></a></td>
<% end if%>
<td><a>
<p style="margin-top: 0; margin-bottom: 0"><%=response.write(Server.HTMLEncode(rs.Fields("commentaire" ).Value))%></a>  </tr>
<%RS.MOVENEXT
wend%>
</table></div>
</BODY></HTML>
</center>
</td>
</tr>
</table>
</body>
<div align="center">
 <table cellpadding=0 id="table13" border="0" cellspacing="0">
<tr>
<% ' NAVIGATION
' Des fiches avant ?
if Ndeb > 0 then%>
<td><b><A href="?num=0"><span style="text-decoration: none">
<img border="0" src="../images/test.a1.gif"></span></A> </b> <b><A href="?num=<%=Ndeb-Nmax%>"><span style="text-decoration: none"><img border="0" src="../images/test.a2.gif"></span></A> 
</b> </td>
<%end if%>
<td>
<% ' Page courante
Npag = int(Ndeb/Nmax)+1 : Npag2 = Npag-1
tmp = "<b>" & Npag & "</b>"
' Max 3 pages avant
while Npag2>0 AND Npag2>Npag-4
tmp = "<A href='?num=" & ((Npag2-1)*Nmax)_
& "'>" & Npag2 & "</A> " & tmp
Npag2 = Npag2-1
wend
' Max 9 pages après
Npag2 = Npag
while Npag2*Nmax<=Ntotal AND Npag2<Npag+3
Npag2 = Npag2+1
tmp = tmp & " <A href='?num=" & ((Npag2-1)*Nmax)_
& "'>" & Npag2 & "</A>"
wend
response.write tmp
%>
</td>
<% ' Des fiches après ?
if Ntotal>Ndeb+Nmax then%>
<td><b>  <A href="?num=<%=Ndeb+Nmax%>">
<span style="text-decoration: none">
<img border="0" src="../images/test.a3.gif"></span></A></b> <b>
<A href="?num=<%=int(Ntotal/10)*10%>">
<span style="text-decoration: none">
<img border="0" src="../images/test.a4.gif"></span></A></b> </td>
<%end if
end if
RS.close : set RS=nothing%>
</html>
 </div>
<p> </div>
</BODY></HTML>
</div>
<% conn.close : Set conn=nothing %>

Publicité

h4rold

Le plus simple est que tu passe ton formulaire en GET (au lieu de POST) et que dans le liens vers la seconde page (la suite des resultats) tu reimprime les arguments GET que tu as recu et un element GET en plus que tu redetectera pour connaitre la suite.
Par exemple :
Premiere requete connexion.asp?recherche=prout
Cette page imprime un lien vers connexion.asp?recherche=prout&start=5
Il ne re restera plus qu'a detecter le start et d'incrementer a chaque fois.

Message édité par h4rold le 12-08-2008 à 16:23:43

Flyman30

le plus simple c'est de faire une pagination !

http://www.asp-php.net/tutorial/asp-php/pagination.php

extra

Bonjour,

flyman30 c'est le script que j'utilise....

H4rold j'y arrive pas je vais mettre nombre de résultats = 100 ou plus et je laisserai comme cela.

Merci à vous

Message cité 1 fois

Flyman30

extra a écrit :

Bonjour,

flyman30 c'est le script que j'utilise....

H4rold j'y arrive pas je vais mettre nombre de résultats = 100 ou plus et je laisserai comme cela.

Merci à vous

Ce code fonctionne très bien, tu as forcément fait une erreur de copié/collé je regarderais demain..

Bizarre je viens d'aller sur ton lien et la pagination fonctionne !? :whistle:

Message édité par Flyman30 le 17-08-2008 à 21:21:31

extra

Bonjour,

La pagination fonctionne avec un tri fixe.
C'est a dire trier l'historique par nom ou année

Code :

SQL="SELECT TOP " & (Ndeb+Nmax) & " * FROM histo where nom order by nom "

Pour la fonction rechercher :
Par contre pour trier avec le résultat du formulaire à la deuxième pas pagination il retombe sur :

Code :

<%mot1=Request.Form("recherche" )
mot=Replace(mot1,"'","''" )

et comme le formulaire a déjà été lu il n'y a plu rien et erreur "vous n'avez rien entré....

Il faudrait passer me paramètre mot1 d'une page à l'autre...
j'ai essayé avec GET, mais d'entée plus aucune page ne fonctionne il y a surement une syntaxe à changer et comme j'ai je suis pas doué pour cela :sweat:

Flyman30

Passe mot1 en session ...
session("mot1" ) = mot1

extra

salut flyman30,

si tu peux être un peu plus explicite
je le mets ou session("mot1" ) = mot1

merci

Flyman30

Tu as dans ton code

Code :

<%mot1=Request.Form("recherche" )
mot=Replace(mot1,"'","''" )
mot=Replace(mot,"<","&lt" )
mot=Replace(mot,">","&gt" )%>
<%if mot="" or mot=" " then%>

Fait :

Code :

<%mot1=Request.Form("recherche" )
mot=Replace(mot1,"'","''" )
mot=Replace(mot,"<","&lt" )
mot=Replace(mot,">","&gt" )%>
session("mot" ) = mot
<%if mot="" or mot=" " then%>

Il te suffit de faire la recherche sur session("mot" ) puisque c'est en mémoire tant que la session est valide.

extra

désolé flyman30, ca ne fonctionne pas....

Publicité

extra

tu m'as donné une idée, mais ça ne garde toujours pas la variable "mot"

Le formulaire de recherche appelle : listR.asp

Code :

<%mot1=Request.Form("recherche" )
mot=Replace(mot1,"'","''" )
mot=Replace(mot,"<","&lt" )
mot=Replace(mot,">","&gt" )
session("mot" ) = mot
if mot="" or mot=" " then%>
<b>
Vous n'avez rien saisi !<BR>Merci d'écrire le nom à trouver sur
cet annuaire, puis de valider en cliquant sur "Rechercher"!<BR> 
</b>
<%else
Response.Redirect "res_recherche.asp"
end if%>

Dans le fichier res_recherche.asp, je fais l'affichage paginé avec le critère de recherche "mot" sauf que "mot" est vide...

extra

j'ai trouvé :

dans la récupération du formulaire comme tu disais

Code :

Session.Contents("mot" ) = mot

et dans le fichier d'affichage,

Code :

<%mot=(Session("mot" ))%>

Par contre j'ai encore un bug
dans le cas ou on trouve rien j'ai une erreur...

Message édité par extra le 20-08-2008 à 15:10:08

Flyman30

Il suffit de faire un if error then et tu affiche que rien n'a été trouvé

francois cright

Il existe une méthod beaucoup plus simple pour cela, il te faut le fichier ADOVBS.inc que tu peu trouver ici http://www.academyx.com/resources/documents/adovbs.txt

tu renome le ficher en adovbs.inc et tu le met sur ton serveur web.

dans ta page asp, tu importe le fichier comme suit:



Ce fichier te permettra de faire ta pagination sans effort ou presque.

Exemple de code :

<%
Dim iPage, pageSize

' nécessaire pour pour la premiere page
If Request("page" ) = "" Then
iPage = 1
Else
iPage = Request("page" )
End If

' si tu veux que l'utilisateur choisisse lui même le nombre d'affichage par page
If Request("size" ) = "" Then
pageSize = 10
Else
pageSize = Request("size" )
End If

sql = "SELECT Caricature.PK, Caricature.Nom FROM Caricature ORDER BY Caricature.Ordre;"

'tu dois au moins mettre adOpenKeyset pour la pagination
rs.Open sql,cn,adOpenKeyset

'si ton rs est a EOF ça fait une erreur, donc on valide
If rs.EOF = False Then
rs.AbsolutePage = iPage
rs.PageSize = pageSize
Else
Response.Write "Aucune occurrence trouvé"
End If
%>
<form name=frm action=taPage.asp>
<table>
<tr><td>

<%=rs.RecordCount & " caricatures"%>
</td><td>

Page
<select name=page onChange="document.frm.submit()">
<%
'Création de la liste des pages par une boucle for
For i = 1 To rs.PageCount%>
<option value=<%=i%>><%=i%></option>
<%
Next%>
</select>
</td><td>

Nombre par page
<select name=size onChange="document.frm.submit()">
<%
'Création de la liste du nombre d'affichage par page
For i = 10 To 50 Step 10%>
<option value=<%=i%>><%=i%></option>
<%
Next%>
</td></tr>
</table>


<table>
<%
For i = 1 To rs.PageSize
'si on arrive à la fin du rs, on sort de la boucle
If rs.EOF = True Then Exit For%>
<tr><td>
<%=rs("PK" )%>
</td><td>
<%=rs("Nom" )%>
</td></tr>
<%
rs.MoveNext
Next%>
</table>

Message édité par francois cright le 14-12-2008 à 20:45:19

FORUM HardWare.fr

Programmation

ASP

[ASP] passage de variable d'une page à l'autre

Sujets relatifs
JSP rafraichir la page	PHP dans une page HTM ?
MS-DOS Variable du Système d'exploitation (%system...)...	Comment faire pour transformer une variable en chaine UNICODE
[JS] Affichage d'une page pendant le chargement de la page	[php] Transfére de variable
[RESOLU] VBA variable differente en fonction du bouton clicke	Ecrire le contenue de variables java applet dans la page html
Ma page s'imprime sans tenir compte du CSS	Enlever un caractère de la valeur d'une variable
Plus de sujets relatifs à : [ASP] passage de variable d'une page à l'autre

Page générée en 0.130 secondes