解决办法:打开 syscls/Refreshfunction.asp 找到

'---------------------------------------------------------------------------------------------------------------------------- '函数名: GetArticleTitle '功 能:取得文章标题 '参 数: Title原标题, TitleLen保留字符长度,ShowPicFlag显示图文标志与否 TitleType图文标志, TitleFontColor颜色, TitleFontType字体 '---------------------------------------------------------------------------------------------------------------------------- Function GetArticleTitle(Title, TitleLen, ShowPicFlag, TitleType, TitleFontColor, TitleFontType) 改成 Byval Title Dim DecoratesTitle If IsNumeric(TitleLen) Then Title = KSCMS.GotTopic(Title, TitleLen) End If If CBool(ShowPicFlag) = True Then Select Case Trim(TitleType)