Templates in ASP

[Tom]

Ik ben op zoek naar een goed template-systeem voor ASP, ik heb deze gevonden:
http://www.aspemporium.com/aspEmporium/examples/HTMLTemplate_class.asp

Maar er zijn vast betere... wie kan mij een goed template-systeempje aanraden?

[Mister_X]

ik zoek ze ook, dus gebruik ik dit lege topic even,

iemand met wat leuke sites/voorbeeldjes?

[didio]

Hier is mijn zelfgeschreven Template Class.

code:

<%
'******************************************************
' CTemplate versie 2.1
' Nedconcepts 2001 by Marcel Vogel (DiDio)
'
' Change History:
' 20 Juni 2001 - Added ClearTags Method
' 10 Juni 2001 - Versie 2.0
'******************************************************

Class CTemplate
    Private m_intSiteID
    Private m_intDevice
    Private m_intOutput
    Private m_strFilename
    Private m_blnUseLooping
    Private m_strTemplate
    Private m_strClearTagMessage
    
    Private m_strTemp
    Private m_strTemplateTop
    Private m_strTemplateMid
    Private m_strTemplateEnd

    Public Property Let SiteID(ByVal varSiteID)
        m_intSiteID = varSiteID
    End Property

    Public Property Let Device(ByVal varDevice)
        m_intDevice = varDevice
    End Property

    Public Property Let Output(ByVal varOutput)
        m_intOutput = varOutput
    End Property

    Public Property Let Filename(ByVal varFilename)
        m_strFilename = varFilename
    End Property

    Public Property Let UseLooping(ByVal varUseLooping)
        m_blnUseLooping = varUseLooping
    End Property

    Public Property Let Template(ByVal varTemplate)
        m_strTemplate = varTemplate
        Call ReadTemplate()
    End Property

    Public Property Let ClearTagMessage(ByVal varClearTagMessage)
        m_strClearTagMessage = varClearTagMessage
    End Property

    Public Sub Class_Initialize()
        m_intDevice = 1
        m_intOutput = 1
        m_blnUseLooping = False
        m_strClearTagMessage = ""
    End Sub

    Public Sub Data(ByVal varTag, ByVal varData)
        If m_blnUseLooping = True Then
            If Instr(1, m_strTemplateMid, varTag) = 0 Then
                m_strTemplateTop = Replace(m_strTemplateTop, varTag, varData)
                m_strTemplateEnd = Replace(m_strTemplateEnd, varTag, varData)
            Else
                m_strTemp = Replace(m_strTemp, varTag, varData)
            End If
        Else
            m_strTemplate = Replace(m_strTemplate, varTag, varData)
        End If
    End Sub
    
    Public Sub StartLooping()
        m_strTemp = m_strTemplateMid
    End Sub

    Public Sub Copy()
        m_strTemp = m_strTemp & m_strTemplateMid
    End Sub

    Public Sub EndLooping()
        m_strTemplateMid = m_strTemp
        m_strTemplate = m_strTemplateTop & m_strTemplateMid & m_strTemplateEnd
    End Sub

    Public Function WriteTemplate()
        Dim objFileSystem
        Dim objFile
        
        Select Case m_intOutput
            Case 1
                Response.Write m_strTemplate
            Case 2
                WriteTemplate = m_strTemplate
            Case 3
                Set objFileSystem = CreateObject("Scripting.FileSystemObject")
                Set objFile = objFileSystem.CreateTextFile(m_strFilename, True)
                objFile.WriteLine(m_strTemplate)
                objFile.Close
            Case Else
                Response.Write "error!, wrong output specified."
                Exit Function
        End Select
    End Function

    Public Sub ClearTags()
        Dim objRegEx
        
        Set objRegEx = New RegExp
        objRegEx.Pattern = "#[^#]*#"
        objRegEx.Global = True
        m_strTemplate = objRegEx.Replace(m_strTemplate, m_strClearTagMessage)
        Set objRegEx = Nothing
    End Sub
    
    Private Sub ReadTemplate()
        Dim objTemplate
        Dim objFileSystem
        Dim objConn, objCmd, objRec
        Dim objHttp
        
        Select Case m_intDevice
            Case 1
                Set objFileSystem = CreateObject("Scripting.FileSystemObject")
                Set objTemplate = objFileSystem.OpenTextFile(m_strTemplate, 1, False, 0)
                m_strTemplate = objTemplate.ReadAll
                objTemplate.Close
                Set objTemplate = Nothing
                Set objFileSystem = Nothing
            Case 2
                Set objConn = CreateObject("ADODB.Connection")
                objConn.Open CONNECTION
                Set objCmd = CreateObject("ADODB.Command")
                objCmd.ActiveConnection = objConn
                objCmd.CommandType = adCmdStoredProc
                objCmd.CommandText = "spTemplate_ReadTemplate"
                objCmd.Parameters.Append objCmd.CreateParameter("SiteID", adInteger, adParamInput, 4, m_intSiteID)
                objCmd.Parameters.Append objCmd.CreateParameter("TemplateName", adVarchar, adParamInput, 100, m_strTemplate)
                Set objRec = objCmd.Execute
                Set objCmd = Nothing
                If objRec("StatusID") = 0 Then
                    m_strTemplate = objRec("TemplateCode")
                Else
                    m_strTemplate = objRec("StatusCode")
                End If
                objRec.Close
                Set objRec = Nothing
                objConn.Close
                Set objConn = Nothing
            Case 3
                Set objHttp = New CHttp
                objHttp.Program = "XMLHTTP"
                objHttp.Method = "GET"
                objHttp.Send m_strTemplate
                m_strTemplate = objHttp.ResponseText
                Set objHttp = Nothing
            Case 4
                m_strTemplate = m_strTemplate
            Case Else
                Response.Write "error!, wrong device specified."
                Exit Sub
        End Select
        
        If m_blnUseLooping = True Then
            Call SplitTemplate()
        End If
    End Sub

    Private Sub SplitTemplate()
        Dim intStart
        Dim intStop
        
        intStart = Instr(1, m_strTemplate, "[%") + 2
        intStop = Instr(1, m_strTemplate, "%]") - 2
        m_strTemplateTop = Left(m_strTemplate, Instr(1, m_strTemplate, "[%") - 2)
        m_strTemplateMid = Mid(m_strTemplate, intStart, intStop - intStart)
        m_strTemplateEnd = Right(m_strTemplate, Len(m_strTemplate) - Instr(1, m_strTemplate, "%]") - 1)
    End Sub

    Public Sub Class_Terminate()
    End Sub
End Class
%>

[pim]

Script request, slotje!!

[KoeKk]

Bij [url:http://www.sumatrasolutions.com/]SumatraSolutions[/url] hebben ze een TemplateParser in diverse smaken (ActiveX, JScript, Java) die werkt zoals de overbekende FastTemplates.

Ik heb deze nog nooit gebruikt in een productie website dus ik kan niet echt iets zeggen over de snelheid ofzow..

[dusty]

Zelf maken natuurlijk, weet je namelijk wat het precies doet.

[TlighT]

Ik heb zelf ook nog eens zoiets gemaakt. Dus ff gezocht en hier neergezet. Je ziet er maar mee wat je ermee doet. Het is wel nog nooit gebruikt in een productie-omgeving dus ik kan geen garantie geven dat het helemaal goed werkt.

Misschien is het een goed idee over te stappen op een XML oplossing en XSL als templates te gebruiken?