账号通
    

账号  

密码  

42692

查看

81

回复
主题:科讯8.02地区管理支持无限级区域扩展,不再是二级地区了. [收藏主题] 转到:  
hxkjweb 当前离线

243

主题

3

广播

4

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

用户积分:418 分
登录次数:89 次
注册时间:2011/3/7
最后登录:2018/12/14
hxkjweb 发表于:2012/1/16 21:12:49   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

今天早上看到这位朋友发的贴:http://bbs.kesion.com/forumthread-318824.html

刚才吃完饭.我也想来研究研究.通过我的研究发现.支持无限级很容易,删除无限级下级难度有点大.

通过研究,终于搞定.现在把代码发上来.



以下内容只有回复后才可以浏览,请先登录!




添加函数

全局变量为:

Dim Tid  (注意,该全局变量需在使用之前申明.而不是函数上面申明.)

Function GetDelId(ID)

Dim Rs,Sql

Set Rs=Server.CreateObject("ADODB.RECORDSET")

Sql="Select ID From KS_Province Where Parentid in(" & KS.FilterIDS(ID) & ")"

Rs.Open Sql,conn,1,1

  if Rs.Recordcount>0 then

   for i=1 to Rs.Recordcount

    Tid=Tid&","&Rs("ID")

    rs.movenext

   next

   Tid=Tid&GetDelId(Tid)

  else

   exit Function  '这句很重要,如果没有记录则退出函数.

  end if

Rs.Close

Set Rs=Nothing

GetDelId=Tid

End Function



这函数为核心函数.可得出指定ID下的无限级ID函数





修改删除子程序(Sub):



'//删除记录

Sub Del_Submit()

Dim ID

ID = KS.FilterIDS(KS.S("ID"))

Conn.Execute("Delete From [KS_Province] Where Parentid in(" & ID & ")  or ID in("&ID & ")")

Call CloseConn()

KS.AlertHintScript ("恭喜,删除成功!")

End Sub





修改为





'//删除记录

Sub Del_Submit()

Dim ID

ID = KS.FilterIDS(KS.S("ID"))

Dim Tid

Tid=KS.FilterIDS(GetDelId(ID))

Conn.Execute("Delete From [KS_Province] Where Parentid in(" & Tid & ") or ID in("&Tid & ") or ID in("&ID & ")")

Call CloseConn()

KS.AlertHintScript ("恭喜,删除成功!")

End Sub









最后,我再说一点.虽然这里是支持无限级了.但是由于地区是联动级的.很遗憾不能做成N级联动.除非使用AJAX技术.







希望科汛解决我上面说的这个问题.



今天我还发了一个贴子:

在N级栏目下,为N级栏目class设为currclass 时同样为顶级栏目导航class也设为:currclass

http://bbs.kesion.com/forumthread-319079.html





之前有问题.但后来我解决了.但是用起来不是很方便,所以我就不再发了.需要的朋友可以找我拿文件去研究研究.

不方便之处就是需要指定当前的栏目名称.当然不是全部都要指定,这个是需要指定比如论坛,等自定义模型或自己写的模型文件.











科汛交流群:40509894,72322437,72322437

本人在群里叫:重头再来

 
<a href=http://www.shoujig.com title=手机谷>手机谷</a> <a href=http://www.shoujig.com title=手机报价>手机报价</a> <a href=http://www.shoujig.com title=手机论坛>手机论坛</a> <a href=http://www.shoujig.com title=智能手机>智能手机</a> <a href=http://www.shoujig.com title=照相手机>照相手机</a> <a href=http://www.shoujig.com title=音乐手机>音乐手机</a> <a href=http://www.cqrdj.com title=分类息信>分类息信</a> <a href=http://www.cqrdj.com title=重庆论坛>重庆论坛</a> <a href=http://www.cqrdj.com title=重庆信息港>重庆信息港</a> <a href=http://www.cqrdj.com title=重庆人才网>重庆人才网</a> <a href=http://www.cqrdj.com title=重庆人的家>重庆人的家</a>, <a href=http://www.shoujig.com title=手机谷>手机谷</a> <a href=http://www.shoujig.com title=手机报价>手机报价</a> <a href=http://www.shoujig.com title=手机论坛>手机论坛</a> <a href=http://www.shoujig.com title=智能手机>智能手机</a> <a href=http://www.shoujig.com title=照相手机>照相手机</a> <a href=http://www.shoujig.com title=音乐手机>音乐手机</a> <a href=http://www.cqrdj.com title=分类息信>分类息信</a> <a href=http://www.cqrdj.com title=重庆论坛>重庆论坛</a> <a href=http://www.cqrdj.com title=重庆信息港>重庆信息港</a> <a href=http://www.cqrdj.com title=重庆人才网>重庆人才网</a> <a href=http://www.cqrdj.com title=重庆人的家>重庆人的家</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
浪侠 当前离线

416

主题

4

广播

1

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

用户积分:2073 分
登录次数:299 次
注册时间:2007/2/12
最后登录:2019/3/14
浪侠 发表于:2012/1/16 21:21:12   | 只看该作者 查看该作者主题 沙发 
 
  支持(1) | 反对(0) 回到顶部顶端 回到底部底部
lodan 当前离线

280

主题

0

广播

2

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

用户积分:2051 分
登录次数:177 次
注册时间:2009/3/26
最后登录:2022/8/4
lodan 发表于:2012/1/16 21:22:49   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
xiaomingcscs 当前离线

86

主题

1

广播

0

粉丝
添加关注
级别:学前班

用户积分:252 分
登录次数:72 次
注册时间:2011/4/3
最后登录:2017/5/30
xiaomingcscs 发表于:2012/1/16 21:24:53   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
1314_lmjs 当前离线

85

主题

4

广播

0

粉丝
添加关注
级别:学前班

用户积分:146 分
登录次数:65 次
注册时间:2011/11/27
最后登录:2012/8/10
1314_lmjs 发表于:2012/1/16 21:46:49   | 只看该作者 查看该作者主题 报纸 
 
长沙网站制作:http://www.loongdi.com 长沙网站设计:http://www.loongdi.com qq:328501063
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
otbbs 当前离线

1605

主题

12

广播

2

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

用户积分:8980 分
登录次数:1225 次
注册时间:2006/8/7
最后登录:2023/11/29
otbbs 发表于:2012/1/16 22:04:17   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
浪侠 当前离线

416

主题

4

广播

1

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

用户积分:2073 分
登录次数:299 次
注册时间:2007/2/12
最后登录:2019/3/14
浪侠 发表于:2012/1/16 22:40:23   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
horse320 当前离线

102

主题

0

广播

0

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

用户积分:141 分
登录次数:39 次
注册时间:2010/5/5
最后登录:2013/10/21
horse320 发表于:2012/1/16 22:52:48   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ab2860 当前离线

98

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:96 分
登录次数:5 次
注册时间:2012/1/6
最后登录:2012/4/17
ab2860 发表于:2012/1/17 8:22:48   | 只看该作者 查看该作者主题 9楼 
 
http://www.xtxszx.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zb122059214 当前离线

65

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:175 分
登录次数:93 次
注册时间:2009/7/30
最后登录:2013/1/15
zb122059214 发表于:2012/1/17 8:53:58   | 只看该作者 查看该作者主题 10楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.25781秒 powered by KesionCMS 9.0