我的系统在发布类似下图的文章,就会把这段代码执行了,我这个是一个代码教程,我希望把这段代码用按照下图所见的格式发布出来了,试了N次了,都不行,有什么解决办法吗??

修改ks_cls/kesion.publiccls.asp

找到

Public Function HTMLCode(HtmlStr)
  If Not IsNull(HtmlStr) then
  'HtmlStr = Replace(HtmlStr, " ", " ")
  HtmlStr = Replace(HtmlStr, """, Chr(34))
  HtmlStr = Replace(HtmlStr, "'", Chr(39))
  HtmlStr = Replace(HtmlStr, "{", Chr(123))
  HtmlStr = Replace(HtmlStr, "}", Chr(125))
  HtmlStr = Replace(HtmlStr, "$", Chr(36))
  HtmlStr = Replace(HtmlStr, "&", "&")
  'HtmlStr = Replace(HtmlStr, vbCrLf, "")

  HtmlStr = Replace(HtmlStr, ">", ">")
  HtmlStr = Replace(HtmlStr, "&lt;", "<")
  
  HTMLCode = HtmlStr
  End If
 End Function

上面红色的删除