<%
'第一部分：我们定义一个变量Template存放模板内容
Dim Template
Template = "标题：{$aaa.title}(日期:{$aaa.date})<br/><br/>内容：{$bbslist.begin}不错哈，{$bbb.content}{$bbslist.end}"

'第二部分：和模板驱动相关的四个重要函数
Sub TPL_Scan(sTemplate)
    Dim iPosLast, iPosCur
    iPosLast    = 1
    While True
        iPosCur    = InStr(iPosLast, sTemplate, "{$")
        If iPosCur>0 Then
            TPL_Echo    Mid(sTemplate, iPosLast, iPosCur-iPosLast)
            iPosLast    = TPL_Parse(sTemplate, iPosCur+2)
        Else
            TPL_Echo    Mid(sTemplate, iPosLast)
            Exit Sub  
        End If
     Wend
End Sub

Function TPL_Parse(sTemplate, iPosBegin)
    Dim iPosCur, sToken, sValue, sTemp
    iPosCur        = InStr(iPosBegin, sTemplate, "}")
    sTemp        = Mid(sTemplate,iPosBegin,iPosCur-iPosBegin)
    iPosBegin    = iPosCur+1
    iPosCur        = InStr(sTemp, ".")
    sToken        = Left(sTemp, iPosCur-1)
    sValue        = Mid(sTemp, iPosCur+1)
    Select Case sValue
        Case "begin"
            sTemp            = "{$" & ( sToken & ".end}" )
            iPosCur            = InStr(iPosBegin, sTemplate, sTemp)
            TPL_ParseArea      sToken, Mid(sTemplate, iPosBegin, iPosCur-iPosBegin)
            iPosBegin        = iPosCur+Len(sTemp)
        Case Else
            TPL_ParseNode sToken, sValue
    End Select
    TPL_Parse    = iPosBegin
End Function

Sub TPL_ParseNode(sTokenType, sTokenName)
    Select Case sTokenType
        Case "aaa"
            '细化给ParseAaaNode处理
            ParseAaaNode sTokenName
        Case "bbb"
            '细化给ParseBbbNode处理
            ParseBbbNode sTokenName
    End Select
End Sub

Sub TPL_ParseArea(sTokenName, sTemplate)
    Select Case sTokenName
        Case "bbslist"
            For i=0 To 4 '根据实际情况设置循环次数
                TPL_Scan sTemplate
            Next
        Case "other"
             '省略
        Case "other2"
            '省略
    End Select
End Sub

'第三部分：其他相关函数
TPL_Immediate = True
Sub TPL_Echo(sStr)
    If TPL_Immediate Then
        Response.Write    sStr
    Else
        TPL_Memo    = TPL_Memo&sStr
    End If
End Sub

Sub ParseAaaNode(sToken)
    Select Case sToken
        Case "title"
            Response.Write("这是贴子标题")
        Case "date"
            Response.Write("2008-01-31")
        Case "other"
            '省略
    End Select
End Sub

Sub ParseBbbNode(sToken)
    Select Case sToken
        Case "content"
            Response.Write("软晨学习网：http://www.ruanchen.com/'省略
    End Select
End Sub

'第四部分：该调用TPL_Scan输出内容了
TPL_Scan Template
%>