{SQL_栏目列表({$GetParentID})}

看到很多文章介绍嵌套的，为什么我的系统标签不行？？

不知道要修改哪里，请高手指教一下

Function ReplaceUserFunctionLabel(Content)

   Dim regEx, Matches, SqlLabel,Match

   Dim Matchn,n

   Set regEx = New RegExp

   regEx.Pattern = "{SQL_[^{]*\)}"

   regEx.IgnoreCase = True

   regEx.Global = True

   Set Matches = regEx.Execute(Content)

   Dim Str:Str=Content

   For Each Match In Matches

     SqlLabel=Match.value

     Str=Replace(Str,SqlLabel,ReplaceDIYFunctionLabel(SqlLabel,"label"))

   Next

   '判断嵌套,Instr(Str,",'{SQL_")=0当含有ajax输出时，不递归

   If Instr(Str,"{SQL_")<>0 and Instr(Str,",'{SQL_")=0 Then Str=ReplaceUserFunctionLabel(Str)

   ReplaceUserFunctionLabel=replace(Str,"^!^","$")

  End Function

学习中