我的代码中改如何加入会员积分的代码呢?

lovewangshu 2004-05-02 09:45:04
下面是我的一个递归程序,用来实现类似传销的会员树,其中没个会员发展新的下线后都会用分增加,当然,如果此会员的下线再发展更多更深的下线时自己的分数也会增加,而增加的分数取决于新会员所处的层次.所以请教此问题改如何解决呢?

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
可是为什么不正确呢?我的不到正确的结果啊!

在此小弟请求写过类似程序的大虾给出一个这样的会员计分系统的做法.谢谢
...全文
74 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
inrie 2004-05-03
  • 打赏
  • 举报
回复
用public声明变量
保存累加的值
lovewangshu 2004-05-03
  • 打赏
  • 举报
回复
----"是一个JSP网站,顶一下吧,还没学这技术呢!"
晕死....A和J在键盘上离的不近吧????

----"check"
靠.真是稻草人....
liyanlover 2004-05-02
  • 打赏
  • 举报
回复
check
李尸尸 2004-05-02
  • 打赏
  • 举报
回复
是一个JSP网站,顶一下吧,还没学这技术呢!

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧