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