直接下载覆盖就好了。希望sp1能修复！

下载信息  [文件大小：2.86 KB 下载次数： 次]

点击下载文件:

If RssDescriptNum<>0 Then
    GetChannelNewInfo = GetChannelNewInfo & "<description>" & KSCMS.GotTopic(Replace(Replace(Replace(KSCMS.LoseHtml(RS(4)), vbCrLf, ""), "[NextPage]", ""), "&nbsp;", ""),DescriptNum) & "......</description>"&vbcrlf
    End IF

改为

If RssDescriptNum<>0 Then
     GetChannelNewInfo = GetChannelNewInfo & "<description><![CDATA[" & KSCMS.GotTopic(Replace(Replace(KSCMS.LoseHtml(RS(4)), vbCrLf, ""), "[NextPage]", ""),DescriptNum) & "......]]></description>"&vbcrlf
    End IF