Execute "Text = " & id & "(1)" ' 加载数据源
Set Matches = GetMatch(Content, "<Columns>([sS]+)</Columns>")
If Matches.Count > 0 Then
For Each SubMatches In Matches
SubText = ItemTemplate(SubMatches.SubMatches(0), Text, page, PageID)' 执行模块替换
Content = Replace(Content, SubMatches.value, SubText, 1, -1, 1)
Next
DataBind = Content
Else
DataBind = ""
End If
Set Matches = Nothing
End Function
' ***************************************
' 匹配模板实例
' ***************************************
Private Function ItemTemplate(ByVal TextTag, ByVal Text, ByVal page, ByVal PageID)
Dim Matches, SubMatches, SubMatchText
Dim SecMatch, SecSubMatch
Dim i, TempText
Dim TextLen, TextLeft, TextRight
Set Matches = GetMatch(TextTag, "<ItemTemplate>([sS]+)</ItemTemplate>")
If Matches.Count > 0 Then
For Each SubMatches In Matches
SubMatchText = SubMatches.SubMatches(0)
' ---------------------------------------------
' 循环嵌套开始
' ---------------------------------------------
