问题见：http://bbs.kesion.com/forumthread-1082030.html

解决方法：

打开plus/ajaxs.asp

找到635行左右

'保存空间留言
Sub MessageSave()
   Dim Content:Content=KS.FilterIllegalChar(KS.LoseHtml(Request("Content")))
   Dim AnounName:AnounName=KS.LoseHtml(KS.S("AnounName"))
         Dim HomePage:HomePage=KS.LoseHtml(KS.S("HomePage"))
         Dim Title:Title=KS.FilterIllegalChar(KS.S("Title"))

改成

'保存空间留言
Sub MessageSave()

         If KS.SSetting(25)="0" Then
     Dim KSUser:Set KSUser=New UserCls
           If KSUser.UserLoginChecked=false Then
      Set KSUser=Nothing
      KS.Die "登录后才可以留言!"
     End IF
     Set KSUser=Nothing
         End If
   Dim Content:Content=KS.FilterIllegalChar(KS.LoseHtml(Request("Content")))
   Dim AnounName:AnounName=KS.LoseHtml(KS.S("AnounName"))
         Dim HomePage:HomePage=KS.LoseHtml(KS.S("HomePage"))
         Dim Title:Title=KS.FilterIllegalChar(KS.S("Title"))

即增加上面红色代码。

标记收藏！