没有你说的那行啊。

我的版本是5.02

只找到

Dim DCls:Set Dcls=New DIYCls
   Content=DCls.ReplaceUserFunctionLabel(Content) 
      Set DCls=nothing
   ReplaceAllLabel =Content
  End Function

我在下面加了以后生成文件报错。。。

错误提示：

admin/Include/RefreshHtmlSave.asp，行 4

找不到包含文件 '../../KS_Cls/KS.PublicCls.asp'。

请问楼主写的是哪个版本的？ 我也报错了啊

找不到的朋友，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

 我看了很久 怎么就是看不到你和楼主那里的区别呢？  但是用你那段代码就不会报错！！！