此过滤是在ks_cls/kesion.publiccls.asp,为了安全过滤的,你可以找到

'取得Request.Querystring 或 Request.Form 的值
 Public Function S(Str)
  S = DelSql(Replace(Replace(Request(Str), "'", ""), """", ""))
 End Function

你可以改成

'取得Request.Querystring 或 Request.Form 的值
 Public Function S(Str)
  S = DelSql(Replace(Replace(Request(Str), "'", "＇"), """", ""))
 End Function

即替换成全角的单引号