账号通
    

账号  

密码  

3340

查看

5

回复
主题:KesionCMS V9.0x空间留言后台启用需要登录才可以发表无效的修改 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2013/8/1 11:50:29   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

问题见: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"))


即增加上面红色代码。

 
KesionCMS,,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.04688秒 powered by KesionCMS 9.0