看了下采集代码是有过滤了

admin/include/collect_itemcollectfast.asp

If IsArray(Arr_Field) Then
     For StepID=0 To Ubound(Arr_Field,2)
      Dim CBody:Cbody=KMCObj.GetBody(NewsCode, Arr_Field(2,StepID),Arr_Field(3,StepID), False, False)
      If Cbody <> "Error" and Cbody <> "" Then
      rs(Arr_Field(1,StepID))=KMCObj.FpHtmlEnCode(Cbody)
      End If
     Next
   End IF

有调用fphtmlencode过滤了，你还要过滤其它字符的话，就加上replace进行替换了