解决办法:打开 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)