Optimiser mon code ASP/HTML

Version imprimable

Hello,
J'ai une page html avec un grand formulaire plusieurs liste deroulantes, zone de liste etc.....

Je me trouve a 1000 lignes de code et encore je n'ai pas fini.
Les requetes remplissent ces listes deroulantes etc... et il y en a une dizaine.

Des boucles do while j'en ai une trentaine, le code est vraiment illisible, commentaire ou pas, le code se ressemble et c'est fatiguant.

Ma question est la suivante: Voila un bout de code, rien d'important ne le lisez pas il sert a creer une zone de liste dynamiquement:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''Dessine une zone de liste dynamiquement a partir de la requete listeregions''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' response.write("<select multiple name=selectREGION size=5 style='width:190px'>") 'Pour chaque bailleur de la liste s'il appartient a la requete sql5 on le met en selected 'S'assurer que RS5 n'est pas vide avant de continuer, si vide faire autre algo if not (RS5.EOF and RS5.BOF ) then While not RSbailleurs.EOF signal = false RS5.movefirst While not RS5.EOF if RSbailleurs(1)=RS5(1) then 'Si le ID ds RSregions se trouve ds la liste RS5 mettre signal = true signal = true end if RS5.MoveNext Wend if signal = true then response.write("<OPTION SELECTED VALUE=RSbailleurs(1) >" & RSbailleurs(0) & "</OPTION>" ) else response.write("<OPTION VALUE=RSbailleurs(1)>" & RSbailleurs(0) & "</OPTION>") end if RSbailleurs.MoveNext Wend ................................
Est ce possible de mettre ce code dans un objet :? , cad dans mon document HTML, je mettrai au lieu de tout ce code FONCTION_QUI_RETOURNE_CET_OBJET()
Dans la fonction il y aura RETURN LIST_DEROULANTE.

Est ce que je me suis fait comprendre ? Ca structure bcp le code !!
Je sens que vous allez me dire que c'est possible que avec le ASP.NET :evil:

Voila, Merci

27/05/2005, 17h47
malbaladejo

Je ne comprend très bien ce que tu veux mais tu peux très bien découper ton code asp en fonction voir meme en class.
Il est a mon avis meme tres conseiller de le faire.
27/05/2005, 22h50
amar00

ça peut se faire via une fonction tout court.
Et ça ne prendra qu'une ligne de code.
Maintenant c'est vrai que si on souhaite faire du générique, il y aura pas mal d'argument :
ObjetConnection,RequeteSqlPourAlimenterLaListe,NomDuChampPourText,NomDuChampPOurValue,IdAselectionner....
Bref pas très pratique à la relecture, à moins de laisser en commentaire juste au dessus de la ligne d'appel, la "signature" de la fonction.
C'est ce que j'utilise et ma fois ça fait gagner pas mal de place.

Maintenant en implémentation objet j'imagine qu'il faudrait une ligne pour définir chaque propriété de l'objet en question et là pas moyen de gagner de la place...
30/05/2005, 08h43
ahage4x4

Hello,
Apres ce beau week end (j'espere pour vous aussi), je me remets au boulot.

Je veux bien voir une fonction qui me retourne une liste deroulante remplie et prete ! J'en ai besoin, le code que j'ai posté se repete 15 fois sur ma page HTML, donc pour la personne qui viendra apres moi :marteau: .

Voila, Bonne semaine a tous.

:)

Salut :)

un truc dans le genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function Get_themes()
Dim oConnx
Dim oRsTheme
Dim StrSQL
 
 
			Response.write "<select name=""art_th_id"" id=""art_th_id"">"					
			Set oConnx = Server.CreateObject("ADODB.CONNECTION")
			Set oRsTheme = Server.CreateObject("ADODB.RECORDSET")
			oConnx.Open db_store
			StrSQL = "SELECT * FROM THEME"				
			oRsTheme.Open StrSQL, oConnx
			If Not oRsTheme.EOF Then
				Do While Not oRsTheme.EOF 
					If iArt_th_id = oRsTheme("th_id") then 
					Response.write "<option value=""" & oRsTheme("th_id") & """ selected=""selected"" >" & oRsTheme("th_lib") & "</option>"
					Else
					Response.write "<option value=""" & oRsTheme("th_id") & """>" & oRsTheme("th_lib") & "</option>"			
					End If
				oRsTheme.Movenext	
				Loop
			End If
			oRsTheme.Close
			Set oRsTheme = Nothing
			oConnx.Close
			Set oConnx = Nothing
			Response.write "</select>"
End Function

Code:

Call Get_themes()

30/05/2005, 09h23
ahage4x4

Citation:

Envoyé par Gwenn

Code:

Call Get_themes()

Merci Gwenn je comprends, oui c'est utile et ca facilite la comprehension du code.
Pourquoi ce CALL ? je croyais qu'on l'utilise pour les procedures :roll:
30/05/2005, 09h32
Gwenn

tu as tout a fait raison, mais une fonction qui ne retourne pas de résultat est une procédure ;)
30/05/2005, 10h29
ahage4x4

Donc je peux mettre mon code dans un include par exemple. Et dans mon Html je mets call mafonction et hop sa s'affiche. et hop resolu

:twisted: Merci !!