ASP数据岛操作类(6)
else
tbStyle = NormalStyle & " " & ItemStyle(clm)
end if
end if
tdStart = "<td "&tbStyle&">"
tdEnd = "</td>" & vbCrLf
if Templates(clm) = Empty then
tbContent = DataSource(clm)
else
tbContent = Templates(clm)
Set regEx = New RegExp
regEx.Pattern= "{[A-Za-z0-9_-]+}"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches=regEx.Execute(Templates(clm))
For each match in matches
On Error Resume Next
tbContent = Replace(tbContent,Match.Value,DataSource(Mid(Match.Value,2,Len(Match.Value)-2)),1)
Next
end if
内容版权声明:除非注明,否则皆为本站原创文章。