账号通
    

账号  

密码  

2256

查看

3

回复
主题:升级到V9.03点评系统出错的无法提交,提示没有权限的修复 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2013/1/5 10:31:53   | 显示全部帖子 查看该作者主题 楼主 
科汛在线考试系统(NET)

打开

ks_cls/kesion.label.commoncls.asp


找到400行左右



         Dim CommentStr:CommentStr=LFCls.GetXMLByNoCache("comments","/posttemplate/label","[@name='post']")

         CommentStr=Replace(CommentStr,"{$GetSiteUrl}",KS.GetDomain)
         CommentStr=Replace(CommentStr,"{$ProjectID}",Param(0))
         CommentStr=Replace(CommentStr,"{$ChannelID}",ModelID)
         CommentStr=Replace(CommentStr,"{$ItemID}",ItemID)
         CommentStr=Replace(CommentStr,"{$ScoreItem}",Sstr)
         CommentStr=Replace(CommentStr,"{$Title}",GetNodeText("title"))
         If PMaxLen<>"0" Then
         CommentStr=Replace(CommentStr,"{$MaxLen}",PMaxLen & "个字")
         CommentStr=Replace(CommentStr,"{$MaxLenNum}",PMaxLen)
         Else
         CommentStr=Replace(CommentStr,"{$MaxLen}","不限制")
         CommentStr=Replace(Replace(CommentStr,"{$MaxLenNum}",0),"{$DisplayZS}","display:none;")
         End If
        
         If EnabledSubDomain Then
         CommentStr=Replace(CommentStr,"{$Domain}","<script>document.domain=""" & RootDomain &""";</script>")
         Else
         CommentStr=Replace(CommentStr,"{$Domain}","")
         End If
         
         echo CommentStr



增加上面红色的代码,然后所有内容页重新生成下静态HTML即可

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