本文章为本人原创，希望大家多多支持阿彪个人中文网.www.abiao.org

方法：打开ks_cls文件夹，打开文件Kesion.PublicCls.asp，找到函数Public Function HTMLCode(HtmlStr)，做如下修改（红色部门是被注销掉）：

          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, "<", "<")        HTMLCode = HtmlStr
        End If
    End Function

那么文章系统html代码被显示问题解决了，紧接着新问题又来了——下载系统软件内容部门HTML代码不能被显示，也就是文章格式不起作用把源代码全部显示出来。

解决方法：打开文件夹ks_cls找到Kesion.Label.CommonCls.asp，并且找到代码段：
F_C = Replace(F_C, "{$GetDownDecPass}", RS("JYMM"))

把下面一段代码改成：
F_C = Replace(F_C, "{$GetDownIntro}",  ks.downHTMLCode(RS("DownContent")))
然后再打开Kesion.PublicCls.asp，加上downHTMLCode函数：
'*******************************************************************************************************************
     '函数名：downHTMLCode
    
     '备  注：下载频道专用html替换函数
     '**************************************************
         Public Function downHTMLCode(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, "<", "<")
        downHTMLCode = HtmlStr
        End If
           End Function

到此2个问题都解决了，如果转贴此文章，请不要忘记我的版权。

呵呵  我也是被逼出来的，有问题除了来论坛交流，最重要的还是要自己多去思考和试验。我是大菜鸟，很开心能和大家结交朋友。我的qq是：31672063

我的网站是：www.abiao.org