调用分页SQL标签出错修复后又出错!修复了“1.V5.5 生成静态页面时,sql标签无效,提示{PageListStr}”后。

列表可以调用了，但是如果想SQL设置成AJAX类型的，就多出来此行：

','20082863235992','/','plus/ajaxsql.asp','','');

看生成的HTML静态标签调用出：

<script language="javascript" defer>
Page(1,'<script src="/ks_inc/page.js"></script>
<script language="javascript" defer>
Page(1,'{SQL_文章通用分页()}','20082863235992','/','plus/ajaxsql.asp','','');
</script>
<div id="pagecontent"><div id="c_SQL_文章通用分页"></div></div>
<div id="pagelist"><div id="p_SQL_文章通用分页" align="right"></div></div>
','20082863235992','/','plus/ajaxsql.asp','','');
</script>
<div id="pagecontent"><div id="c_SQL_文章通用分页"></div></div>
<div id="pagelist"><div id="p_SQL_文章通用分页" align="right"></div></div>

我查看出错文件因该在：

KX_CLS/Kesion.Label.SQLCls.asp

的大约126行 的 GetPageStr 函数

  '取得分页标志
  Function GetPageStr(SqlLabel)
    Dim slab:slab=split(SqlLabel,"(")(0)
    slab=replace(slab,"{","")
    GetPageStr="<script src=""" & KS.Setting(3) & "ks_inc/page.js""></script>" & vbcrlf
    GetPageStr=GetPageStr & "<script language=""javascript"" defer>" & vbcrlf
    GetPageStr=GetPageStr & "Page(1,'" & SqlLabel & "','" & Fcls.RefreshFolderID &"','" & KS.Setting(3) & "','plus/ajaxsql.asp','','');" & vbcrlf
    GetPageStr=GetPageStr & "</script>" & vbcrlf
    GetPageStr=GetPageStr & "<div id=""pagecontent""><div id=""c_" & slab & """></div></div>" & vbcrlf
    GetPageStr=GetPageStr & "<div id=""pagelist""><div id=""p_" & slab & """ align=""right""></div></div>" & vbcrlf
  End Function

有望管理员解答！谢谢！