Microsoft VBScript runtime 错误 '800a0007'

Out of memory: 'regEx.Pattern'

/KS_Cls/Kesion.Label.SQLCls.asp，行 26

自定义内容

SELECT TOP 10 ID,FolderName FROM KS_Class Where ChannelID=1 and ClassType=1 ORDER BY FolderOrder

在线执行没有错误，这个是截图

路过帮顶一下

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

报错是这句话吧。这是正则表达式验证你的标签。

用我的方法替换一下这个方法

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