[ASP] Templates

Marsh Posté le 15-03-2003 à 14:49:39

Bonjour,

J'ai tenté d'utiliser la classe ASPTemplate présente sur ce site : http://asptemplate.sourceforge.net/

Mais lorsque je lance l'exemple fourni dans l'archive zip, le navigateur IE6 patoge dans la semoule

J'ai installé le serveur IIS de WinXP

Par contre il fonctionne bien avec IIS4

Avez-vous le même problème avec IIS5 ?
C'est très important pour moi !

Je pense qu'il doit s'agir d'une mauvaise configuration de IIS5

Merci pour vos réponses

Marsh Posté le 15-03-2003 à 14:49:39

Marsh Posté le 15-03-2003 à 23:32:08

Voici mes fichiers de tests :

Classe asptemplate.asp

Code :

<%
' ASP Template
' Copyright (C) 2001/2002 Valerio Santinelli
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'
' ---------------------------------------------------------------------------
'
' ASP Template main class file
'
' Author: Valerio Santinelli <tanis@mediacom.it>
' $Id: asptemplate.asp,v 1.14 2002/06/23 00:57:56 wodge Exp $
'
Option Explicit
'===============================================================================
' Name: ASPTemplate Class
' Purpose: HTML separation class
' Functions:
' <functions' list in alphabetical order>
' Properties:
' <properties' list in alphabetical order>
' Methods:
' <Methods' list in alphabetical order>
' Author: Valerio Santinelli <tanis@mediacom.it>
' Start: 2001/01/01
' Modified: 2001/12/19
'===============================================================================
class ASPTemplate
' Contains the error objects
private p_error
' Print error messages?
private p_print_errors
' What to do with unknown tags (keep, remove or comment)?
private p_unknowns
' Opening delimiter (usually "{{" )
private p_var_tag_o
' Closing delimiter (usually "}}" )
private p_var_tag_c
'private p_start_block_delimiter_o
'private p_start_block_delimiter_c
'private p_end_block_delimiter_o
'private p_end_block_delimiter_c
'private p_int_block_delimiter
private p_template
private p_variables_list
private p_blocks_list
private p_blocks_name_list
private p_regexp
private p_parsed_blocks_list
private p_boolSubMatchesAllowed
' Directory containing HTML templates
private p_templates_dir
'===============================================================================
' Name: class_Initialize
' Purpose: Constructor
' Remarks: None
'===============================================================================
private sub class_Initialize
p_print_errors = FALSE
p_unknowns = "keep"
' Remember that opening and closing tags are being used in regular expressions
' and must be explicitly escaped
p_var_tag_o = "\{\{"
p_var_tag_c = "\}\}"
' Block delimiters are actually disabled and no longer available. Maybe they'll be again
' in the future.
'p_start_block_delimiter_o = "<!-- BEGIN "
'p_start_block_delimiter_c = " -->"
'p_end_block_delimiter_o = "<!-- END "
'p_end_block_delimiter_c = " -->"
'p_int_block_delimiter = "__"
p_templates_dir = "templates/"
set p_variables_list = createobject("Scripting.Dictionary" )
set p_blocks_list = createobject("Scripting.Dictionary" )
set p_blocks_name_list = createobject("Scripting.Dictionary" )
set p_parsed_blocks_list = createobject("Scripting.Dictionary" )
p_template = ""
p_boolSubMatchesAllowed = not (ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion < "5.5" )
Set p_regexp = New RegExp
end sub
'===============================================================================
' Name: SetTemplatesDir
' Input:
' dir as Variant Directory
' Output:
' Purpose: Sets the directory containing html templates
' Remarks: None
'===============================================================================
public sub SetTemplatesDir(dir)
p_templates_dir = dir
end sub
'===============================================================================
' Name: SetTemplate
' Input:
' template as Variant String containing the template
' Output:
' Purpose: Sets a template passed through a string argument
' Remarks: None
'===============================================================================
public sub SetTemplate(template)
p_template = template
end sub
'===============================================================================
' Name: GetTemplate
' Input:
' Output:
' template as Variant String
' Purpose: returns template as a string
' Remarks: None
'===============================================================================
public function GetTemplate
GetTemplate = p_template
end function
'===============================================================================
' Name: SetUnknowns
' Input:
' action as String containing the action to perform with unrecognized
' tags in the template
' Output:
' Purpose: Sets a variable passed through a string argument
' Remarks: The action can be one of the following:
' - 'keep': leave the tags untouched
' - 'remove': remove the tags from the output
' - 'comment': mark the tags as HTML comment
'===============================================================================
public sub SetUnknowns(action)
if (action <> "keep" ) and (action <> "remove" ) and (action <> "comment" ) then
p_unknowns = "keep"
else
p_unknowns = action
end if
end sub
'===============================================================================
' Name: SetTemplateFile
' Input:
' inFileName as Variant Name of the file to read the template from
' Output:
' Purpose: Sets a template given the filename to load the template from
' Remarks: None
'===============================================================================
public sub SetTemplateFile(inFileName)
if len(inFileName) > 0 then
dim FSO, oFile
set FSO = createobject("Scripting.FileSystemObject" )
'response.write server.mappath(p_templates_dir & inFileName)
if FSO.FileExists(server.mappath(p_templates_dir & inFileName)) then
set oFile = FSO.OpenTextFile(server.mappath(p_templates_dir & inFileName), 1)
p_template = oFile.ReadAll
oFile.Close
set oFile = Nothing
else
response.write "ASPTemplate Error: File [" & inFileName & "] does not exists! "
end if
set FSO = nothing
else
response.write "ASPTemplate Error: SetTemplateFile missing filename. "
end if
end sub
'===============================================================================
' Name: SetVariable
' Input:
' s as Variant - Variable name
' v as Variant - Value
' Output:
' Purpose: Sets a variable given it's name and value
' Remarks: None
'===============================================================================
public sub SetVariable(s, v)
if p_variables_list.Exists(s) then
p_variables_list.Remove s
p_variables_list.Add s, v
else
p_variables_list.Add s, v
end if
end sub
'===============================================================================
' Name: Append
' Input:
' s as Variant - Variable name
' v as Variant - Value
' Output:
' Purpose: Sets a variable appending the new value to the existing one
' Remarks: None
'===============================================================================
public sub Append(s, v)
Dim tmp
if p_variables_list.Exists(s) then
tmp = p_variables_list.Item(s) & v
p_variables_list.Remove s
p_variables_list.Add s, tmp
else
p_variables_list.Add s, v
end if
end sub
'===============================================================================
' Name: SetVariableFile
' Input:
' s as Variant Variable name
' inFileName as Variant Name of the file to read the value from
' Output:
' Purpose: Load a file into a variable's value
' Remarks: None
'===============================================================================
public sub SetVariableFile(s, inFileName)
if len(inFileName) > 0 then
dim FSO, oFile
set FSO = createobject("Scripting.FileSystemObject" )
if FSO.FileExists(server.mappath(p_templates_dir & inFileName)) then
set oFile = FSO.OpenTextFile(server.mappath(p_templates_dir & inFileName))
ReplaceBlock s, oFile.ReadAll
oFile.Close
set oFile = Nothing
else
response.write "ASPTemplate Error: File [" & inFileName & "] does not exists! "
end if
set FSO = nothing
else
'Filename was never passed!
end if
end sub
'===============================================================================
' Name: ReplaceBlock
' Input:
' s as Variant Variable name
' inFile as Variant Content of the file to place in the template
' Output:
' Purpose: Function used by SetVariableFile to load a file and replace it
' into the template in place of a variable
' Remarks: None
'===============================================================================
public sub ReplaceBlock(s, inFile)
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = p_var_tag_o & s & p_var_tag_c
p_template = p_regexp.Replace(p_template, inFile)
end sub
public property get GetOutput
Dim Matches, match, MatchName
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = "(" & p_var_tag_o & " )([^}]+)" & p_var_tag_c
Set Matches = p_regexp.Execute(p_template)
for each match in Matches
if p_boolSubMatchesAllowed then
MatchName = match.SubMatches(1)
else
MatchName = mid(match.Value,3,Len(match.Value) - 4)
end if
if p_variables_list.Exists(MatchName) then
p_regexp.Pattern = match.Value
p_template = p_regexp.Replace(p_template, p_variables_list.Item(MatchName))
end if
'response.write match.Value & " "
next
p_regexp.Pattern = "__[_a-z0-9]*__"
Set Matches = p_regexp.Execute(p_template)
for each match in Matches
'response.write "[[" & match.Value & "]] "
p_regexp.Pattern = match.Value
p_template = p_regexp.Replace(p_template, "" )
next
' deal with unknown tags
select case p_unknowns
case "keep"
'do nothing, leave it
case "remove"
'all known matches have been replaced, remove every other match now
p_regexp.Pattern = "(" & p_var_tag_o & " )([^}]+)" & p_var_tag_c
Set Matches = p_regexp.Execute(p_template)
for each match in Matches
'Response.Write "Found match: " & match & " "
p_regexp.Pattern = match.Value
p_template = p_regexp.Replace(p_template, "" )
next
case "comment"
'all known matches have been replaced, HTML comment every other match
p_regexp.Pattern = "(" & p_var_tag_o & " )([^}]+)" & p_var_tag_c
Set Matches = p_regexp.Execute(p_template)
for each match in Matches
p_regexp.Pattern = match.Value
if p_boolSubMatchesAllowed then
p_template = p_regexp.Replace(p_template, "" )
else
p_template = p_regexp.Replace(p_template, "" )
end if
next
end select
GetOutput = p_template
end property
public sub Parse
Dim parsed
parsed = GetOutput
response.write parsed
end sub
' TODO: if the block foud contains other blocks, it should recursively update all of them without the needing
' of doing this by hand.
public sub UpdateBlock(inBlockName)
Dim Matches, match, aSubMatch
Dim braceStart, braceEnd
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = "([\s\S.]*)"
Set Matches = p_regexp.Execute(p_template)
Set match = Matches
for each match in Matches
if p_boolSubMatchesAllowed then
aSubMatch = match.SubMatches(1)
else
braceStart = instr(match,"-->" ) + 3
braceEnd = instrrev(match,"<!--" )
aSubMatch = mid(match,braceStart,braceEnd - braceStart)
end if
'The following check let the user use the same template multiple times
if p_blocks_list.Exists(inBlockName) then
p_blocks_list.Remove(inBlockName)
p_blocks_name_list.Remove(inBlockName)
end if
p_blocks_list.Add inBlockName, aSubMatch
p_blocks_name_list.Add inBlockName, inBlockName
p_template = p_regexp.Replace(p_template, "__" & inBlockName & "__" )
'response.write "[[" & server.HTMLEncode(aSubMatch) & "]] "
next
end sub
public sub ParseBlock(inBlockName)
Dim Matches, match, tmp, w, aSubMatch
w = GetBlock(inBlockName)
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = "(__)([_a-z0-9]+)__"
Set Matches = p_regexp.Execute(w)
Set match = Matches
for each match in Matches
if p_boolSubMatchesAllowed then
aSubMatch = match.SubMatches(1)
else
aSubMatch = mid(match.Value,3,len(match) - 4)
end if
' response.write inBlockName & " - " & Server.HTMLEncode(match.Value) & " "
' response.write "[[" & Server.HTMLEncode(aSubMatch) & "]] "
if p_parsed_blocks_list.Exists(aSubMatch) then
w = p_regexp.Replace(w, p_parsed_blocks_list.Item(aSubMatch) & "__" & aSubMatch &"__" )
p_parsed_blocks_list.Remove(aSubMatch)
end if
next
if p_parsed_blocks_list.Exists(inBlockName) then
tmp = p_parsed_blocks_list.Item(inBlockName) & w
p_parsed_blocks_list.Remove inBlockName
p_parsed_blocks_list.Add inBlockName, tmp
else
p_parsed_blocks_list.Add inBlockName, w
end if
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = "__" & inBlockName & "__"
Set Matches = p_regexp.Execute(p_template)
Set match = Matches
for each match in Matches
w = GetParsedBlock(inBlockName)
'response.write "w:" & w
p_regexp.Pattern = "__" & inBlockName & "__"
p_template = p_regexp.Replace(p_template, w & "__" & inBlockName & "__" )
'response.write "[[" & match.Value & "]] "
'response.write "[[" & p_regexp.Pattern & "]] "
next
end sub
private property get GetBlock(inToken)
Dim tmp, s
'This routine checks the Dictionary for the text passed to it.
'If it finds a key in the Dictionary it Display the value to the user.
'If not, by default it will display the full Token in the HTML source so that you can debug your templates.
if p_blocks_list.Exists(inToken) then
tmp = p_blocks_list.Item(inToken)
s = ParseBlockVars(tmp)
GetBlock = s
'response.write "s: " & s
else
GetBlock = "" & VbCrLf
end if
end property
private property get GetParsedBlock(inToken)
Dim tmp, s
'This routine checks the Dictionary for the text passed to it.
'If it finds a key in the Dictionary it Display the value to the user.
'If not, by default it will display the full Token in the HTML source so that you can debug your templates.
if p_blocks_list.Exists(inToken) then
tmp = p_parsed_blocks_list.Item(inToken)
s = ParseBlockVars(tmp)
GetParsedBlock = s
'response.write "s: " & s
p_parsed_blocks_list.Remove(inToken)
else
GetParsedBlock = "" & VbCrLf
end if
end property
public property get ParseBlockVars(inText)
Dim Matches, match, aSubMatch
p_regexp.IgnoreCase = True
p_regexp.Global = True
p_regexp.Pattern = "(" & p_var_tag_o & " )([^}]+)" & p_var_tag_c
Set Matches = p_regexp.Execute(inText)
for each match in Matches
if p_boolSubMatchesAllowed then
aSubMatch = match.SubMatches(1)
else
aSubMatch = mid(match.Value,3,Len(match.Value) - 4)
end if
if p_variables_list.Exists(aSubMatch) then
p_regexp.Pattern = match.Value
inText = p_regexp.Replace(inText, p_variables_list.Item(aSubMatch))
end if
'response.write match.Value & " "
'response.write inText & " "
next
ParseBlockVars = inText
end property
end class
%>

Fichier de test default.asp

Code :

<%
' ASP Template
' Copyright (C) 2001/2002 Valerio Santinelli
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'
' ---------------------------------------------------------------------------
'
' Main Example File
'
' Author: Valerio Santinelli <tanis@mediacom.it>
' $Id: default.asp,v 1.7 2002/02/25 13:57:07 tanis Exp $
'
%>
<%
'Declare our template variable
dim t
'Create the class object
set t = New ASPTemplate
'Set the main template file
t.SetTemplateFile "layout.html"
'Add some custom tags to the template
t.SetVariable "title", "ASP Template Example"
'We add some more text to this tag
t.Append "title", " - Main Page"
'Load an external file into a tag.
t.SetVariableFile "content", "content.html"
'Load another external file that will be used to draw some blocks
t.SetVariableFile "menu", "menu.html"
'Setup the block
t.UpdateBlock "menu_block"
'Set and parse the block
t.SetVariable "menu_text", "HOME"
t.ParseBlock "menu_block"
'Do it multiple times
t.SetVariable "menu_text", "NEWS"
t.ParseBlock "menu_block"
t.SetVariable "menu_text", "CREDITS"
t.ParseBlock "menu_block"
'Store the blocks in their directory service (order is important)
t.UpdateBlock "c_block"
t.UpdateBlock "b_block"
t.UpdateBlock "a_block"
t.SetVariable "inner", "666666"
t.SetVariable "outer", "Outer Block (A)"
t.SetVariable "whatever", "Block C 1"
t.ParseBlock "c_block"
t.SetVariable "whatever", "Block C 2"
t.ParseBlock "c_block"
t.SetVariable "whatever", "Block C 3"
t.ParseBlock "c_block"
t.SetVariable "into_b", "Block B 1"
t.ParseBlock "b_block"
t.SetVariable "whatever", "Block C 1(b)"
t.ParseBlock "c_block"
t.SetVariable "whatever", "Block C 2(b)"
t.ParseBlock "c_block"
t.SetVariable "inner", "999999"
t.SetVariable "into_b", "Block B 2"
t.ParseBlock "b_block"
t.ParseBlock "a_block"
'Generate the page
t.Parse
'Destroy our objects
set t = nothing
%>

Est-ce que quelqu'un pourrait me dire pourquoi ça ne fonctionne pas sous IIS5 ?

J'y perds la tête !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *