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

有问题，如果是Ajax分页标签的话，这样就乱套了，Ajax分页标签自动生成如下代码：

<script src="/ks_inc/page.js"></script>
<script language="javascript" defer>
Page(1,'{SQL_最新新闻()}','0','/','plus/ajaxsql.asp','','');
</script>
<div id="pagecontent"><div id="c_SQL_最新新闻">  强烈建议楼主 声明不要使用ajax 不然什么都不显示出来！！！！！！！！！！！！！！！！！！！！！！！！11

没有你说的那行啊。

我的版本是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

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