各位高手，请教：递归导致堆栈溢出问题(分不够再加)

[junsunchen]

function parentmenu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from USER_INFO where CREATE_SITE='"&id&"' and CONFIRM='Y' order by id"
rs.open sql,conn,1,1

while not rs.eof
if rs("parent_id") = id and rs("ISUPDATE")="0" then
ChildmenuCount = ChildmenuCount + 1
end if
ChildCount=conn.execute("select count(*) from USER_INFO where CONFIRM='Y' and CREATE_SITE='"&rs("USER_ID")&"'")(0)
if ChildCount=0 then

else
parentmenu rs("USER_ID")
end if
rs.movenext
wend
rs.close
set rs=nothing
end function
堆栈溢出
过程嵌套太深。每次代码从一个过程跳到另一个过程，本地变量的内容被放到堆栈中。堆栈是一个大小随着要求执行的脚本动态增长和缩小的内存工作区域。

[leo963258]

ChildCount=conn.execute("select count(*) from USER_INFO where CONFIRM='Y' and CREATE_SITE='"&rs("USER_ID")&"'")(0) //加set

[iuhxq]

这是语言缺陷，没法解决，只能换语言

用C、C++等都可以

[zysoft17]

兄弟,感觉你的程序不大好,
1.set rs=server.CreateObject("adodb.recordset")
这句应该放在过程前面,而不要放在过程中,可以减少内存的使用,
2.尽量少用递归,会很慢,可以换换思维方式.
不防说说自己要实现的目的,请大家分析一下,再想想办法.

[junsunchen]

我这个程序是计算会员奖金的，所有会员都成一棵二叉树的，用递归来做

[zysoft17]

试试这样:

'. 链接数据,放在公共部分
set conn = Server.CreateObject("ADODB.Connection")
strconn = "DRIVER={Microsoft Access DRIVER (*.mdb)};"
strconn = strconn & "DBQ=" & Server.MapPath(accessdbname)
conn.open strconn



'.--------------------------------------------------------------
'.读出文件分类
public function treeMenu(fid)
dim s
s = ""
set rs = server.createobject("adodb.recordset")
sqlstr = "select * from news_fl where fid = " & fid
rs.open sqlstr,conn,1,1
while not rs.eof
s = 取值
'.递归
s = treeMenu(rs("id"))
rs.movenext
wend

rs.close
set rs = nothing
treeMenu = s
end function