科讯8.02地区管理支持无限级区域扩展,不再是二级地区了.-领先建站CMS提供服务商我们专注于CMS建站产品的研发

42729 查看	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>

做考试题库就用#科汛在线考试系统!