我的代码中改如何加入会员积分的代码呢?
下面是我的一个递归程序,用来实现类似传销的会员树,其中没个会员发展新的下线后都会用分增加,当然,如果此会员的下线再发展更多更深的下线时自己的分数也会增加,而增加的分数取决于新会员所处的层次.所以请教此问题改如何解决呢?
function nodeUserNum(parent)
'检索其分支
sql = "select name from [user] where sel='"&parent&"'"
set rs = conn.Execute(sql)
do while not rs.Eof
i=i+1
'递归计算出此用户为根的树型结构
nodeUserNum(rs(0))
'完毕后转向下一个
rs.MoveNext
loop
'一个级别的显示完成后向上计算
i=i-1
rs.close
set rs=nothing
end function
而我的想法是用SELECT CASE来完成,但是这样就有局限性了,所以我只限制在了前6层,代码如下(加在i=i+1后):
select case i
case 1
N=N+N_1
case 2
N=N+N_2
case 3
N=N+N_3
case 4
N=N+N_4
case 5
N=N+N_5
case 6
N=N+N_6
end select
可是为什么不正确呢?我的不到正确的结果啊!
在此小弟请求写过类似程序的大虾给出一个这样的会员计分系统的做法.谢谢