账号通
    

账号  

密码  

2370

查看

3

回复
主题:[分享]KesionCMS V8.0x后台调查系统里删除选中调查时把所有的调查都删除的修正 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2011/12/13 9:32:30   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

问题:在后台调查系统里当后台删除选某个调查时,会全部把所有的调查都删除了。



解决方法:



打开admin/ks.vote.asp



98行

   function DelVote(id)

   {

    if (id=='') id=get_Ids(document.myform);

    if (id==''){

      alert('请先选择要删除的调查主题!')

    }else if  (confirm('真的要删除选中的调查主题吗?')){

    location="KS.Vote.asp?Action=Del&Page="+Page+"&Voteid="+id;

    }

   }



把红色的voteid改成id



再往下找到192行

   Sub VoteDel()

    Dim ID,IDArr,I

    ID=KS.S("VoteID")

    If KS.IsNul(ID) Then Call KS.AlertHintScript("请选择要删除的主题!")

    IDArr=Split(KS.FilterIds(ID),",")

    For I=0 To Ubound(IDArr)

    KS.DeleteFile(KS.Setting(3)&"config/voteitem/vote_" & IDArr(i) &".xml")

    Conn.Execute("delete from KS_Vote where ID="&Clng(IDArr(i)))

    Conn.Execute("delete from KS_PhotoVote where channelid=-1 and InfoID='"&Clng(IDArr(i))&"'")

    Next

    Response.redirect "KS.Vote.asp?Page="&KS.G("Page")

   End Sub



同样把上面红色的voteid改成id即可。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
184909071 当前离线

116

主题

0

广播

1

粉丝
添加关注
级别:一年级

用户积分:114 分
登录次数:35 次
注册时间:2010/7/18
最后登录:2014/11/6
184909071 发表于:2011/12/13 9:54:33   | 只看该作者 查看该作者主题 沙发 
科汛智能建站系统
终于抢到沙发了,谢谢管理嘿嘿
 
郑州信息网:http://www.bstxxw.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
chengjiurc 当前离线

227

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:214 分
登录次数:25 次
注册时间:2011/11/17
最后登录:2012/11/11
chengjiurc 发表于:2011/12/13 10:12:22   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
伊某某 当前离线

571

主题

0

广播

3

粉丝
添加关注
级别:五年级

用户积分:2896 分
登录次数:425 次
注册时间:2008/8/1
最后登录:2023/10/24
伊某某 发表于:2011/12/13 10:36:43   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.11133秒 powered by KesionCMS 9.0