Construction dynamique de la balise

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 180 fois - Téléchargée 36 fois

Contenu du snippet

Fonctions ASP vous permettant de créer autant de <STYLE> que vous voulez, où d'en changer rapidement.
Il faut des tables de paramétrages, où chaque table contient 2 champs obligatoires :
- NOM_PAGE : qui servira à filtrer les lignes de style.
- CLASS : (exemple : TITREPAGE) qui servira à nommer une classe (ex : FONT.TITREPAGE)
- Les autres champs devont avoir le nom d'option de style. (par exemple : "text-decoration","color")

Source / Exemple :


<%
' Fonction qui scanne la TABLE et en ressort les options du STYLE
function Analyse_Table (oLA_PAGE,oNOM_TABLE,oTYPE_STYLE)
    CS_SQL="SELECT * FROM " & oNOM_TABLE & " WHERE (((NOM_PAGE)='" & oLA_PAGE & "'))"
    set CS_oRS = server.createobject("ADODB.recordset")
	CS_oRS.open CS_SQL ,oConn, 3, 2
    if CS_oRS.recordcount<>0 then
		CS_oRS.movefirst
		do while not CS_oRS.EOF
            if trim(CS_oRS("CLASS"))<>"" then
				response.write oTYPE_STYLE & "." & CS_oRS("CLASS") & chr(9) & chr(9) & chr(9)
			else
				response.write oTYPE_STYLE & chr(9) & chr(9) & chr(9) & chr(9)
			end if
            response.write "{"
            for i=2 to CS_oRS.fields.count-1
                if trim(CS_oRS.fields(i).value)<>"" then response.write CS_oRS.fields(i).name & ": " & CS_oRS.fields(i).value & ";"
            next
            response.write "}" & vbcrlf
			CS_oRS.movenext
        loop
	end if
	CS_oRS.close
	set CS_oRS = nothing
end function

' Cette fonction servira a contruire dynamiquement la balise style.
' A vous de rajouter autant de tables que nécéssaire.
function Construct_Style (La_Page)
	' Construction p/r a : TAB_STYLE_BODY
	Analyse_Table La_Page,"TAB_STYLE_BODY","BODY"
	' Construction p/r a : TAB_STYLE_A
	Analyse_Table La_Page,"TAB_STYLE_A","A"
	' Construction p/r a : TAB_STYLE_FONT
    	Analyse_Table La_Page,"TAB_STYLE_FONT","FONT"
	' Construction p/r a : TAB_STYLE_INPUT
	Analyse_Table La_Page,"TAB_STYLE_INPUT","INPUT"
	' Construction p/r a : TAB_STYLE_SELECT
	Analyse_Table La_Page,"TAB_STYLE_SELECT","SELECT"
    	' Construction p/r a : TAB_STYLE_TD
	Analyse_Table La_Page,"TAB_STYLE_TD","TD"
end function

' Cette fonction servira a initialiser la balise style.
function Init_Style
	response.write "<STYLE>" & vbcrlf
end function

' Cette fonction servira a terminer la balise style.
function End_Style
	response.write "</STYLE>" & vbcrlf
end function
%>

UTILISATION :
<%
Init_Style
Construct_Style "toto"
End_Style
%>

Conclusion :


Bon je tape un petit doc que je joindrais demain sur la mise en place de ce code.

A voir également

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.