科讯的SQL标签功能很强大，但是有个很大的缺点，就是无法支持复杂的SQL查询，原因就出在/admin/include/labelfunctionadd.asp页面的ClearParam函数上，这个函数科讯的本意是用来去除含有top与自定义参数的内容，并且在最后有句：ClearParam=Split(ClearParam,"where")(0)，这句话的本意是去掉where条件语句，本意是好的，只是去得太草率，以至于以下的SQL语句无法执行：

select count(*) as counts,Ks_class.id as Tid,ks_class.foldername from ks_class,(select ks_gq.GQID,ks_class.TS from ks_gq,ks_class
where ks_class.TS like '%'+ks_gq.Tid+'%')as a where  a.TS like '%'+ks_class.id+'%' and ks_class.tj=2 group by ks_class.foldername,Ks_class.id

这个语句的功能是用来统计一个供求信息栏目下有几条信息用的，要求返回的值有三个：

数量、类别ID、类别名

这样的SQL语句在经过Split(ClearParam,"where")(0)后再被SqlValid函数调就完全错了，所以得改一下ClearParam函数

修改方法如下：

新增一个函数，用来执行正则替换：

  Function GetReplaceStr(Pattern,ReplaceStr,Checkstr)
  Dim Re, Rv,RetStr,Match
  dim a:a=0
  Set Re = New Regexp
  Re.Pattern = Pattern
  Re.Global = True
  Re.Ignorecase = True
  Re.Multiline = True
  Set Rv = Re.Execute(Checkstr)
  For Each Match in Rv
    a=a+1
  Next
  RetStr =RetStr&Re.replace(Checkstr,ReplaceStr)
  GetReplaceStr=RetStr
  Set Re=Nothing
 End Function

然后在ClearParam函数的末尾，把ClearParam=Split(ClearParam,"where")(0)给注释掉，添加以下三行：

   SqlStr=GetReplaceStr("(and)(.+?)(\{\$P.+?\)\})","",SqlStr)
   SqlStr=GetReplaceStr("(where)(.+?)(\{\$P.+?\)\})","",SqlStr)
   ClearParam=SqlStr

保存即可

修改有一定风险，请慎重！

谢谢分享！