问题见: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"))
即增加上面红色代码。