找不到的朋友，ks_cls/kesion.label.commoncls.asp里的以下代码就是了

'替换自定义函数标签
   Dim DCls:Set Dcls=New DIYCls
   Content=DCls.ReplaceUserFunctionLabel(Content)
   Set DCls=nothing
   ReplaceAllLabel =Content

改成

   Dim DCls:Set Dcls=New DIYCls
   Content=DCls.ReplaceUserFunctionLabel(Content)

    If Instr(Content,"{SQL_")<>0 Then
    Content=DCls.ReplaceUserFunctionLabel(Content)
   End If
   Set DCls=nothing
   ReplaceAllLabel =Content