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

CSDN论坛 > Web 开发 > ASP

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅请教：Hibernate速度问题，高分。。 ⋅各位高手，请教：递归导致堆栈溢出问题(分不够再加) ⋅关于Hibernate事务处理,请教高手们！急。。。。（分不够再加） 更多帖子 关注私信空间博客 junsunchen 本版专家分：1538 结帖率 100%: 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
堆栈溢出
过程嵌套太深。每次代码从一个过程跳到另一个过程，本地变量的内容被放到堆栈中。堆栈是一个大小随着要求执行的脚本动态增长和缩小的内存工作区域。

0 2005-05-16 10:26:26

回复数 5 只看楼主引用举报楼主

⋅验证码问题。谢谢。 ⋅百度播放器允许一个弹出窗，如何实现 ⋅php xml xsl 问题 更多帖子 关注私信空间博客 leo963258 本版专家分：12528 红花 2005年5月 Web 开发大版内专家分月排行榜第一: ChildCount=conn.execute("select count(*) from USER_INFO where CONFIRM='Y' and CREATE_SITE='"&rs("USER_ID")&"'")(0) //加set

0 2005-05-16 10:35:13

只看TA 引用举报 #1 得分 50

⋅[100分-这个有点难度] 关于PHP解析分支结构语法问题! ⋅[正则] 如何用正则表达式匹配<sys:date />？ “解决马上结贴”！ ⋅Delphi如何用使用dbExpress方式连接mysql,access,vfp6.0三种数据库呢？ 更多帖子 关注私信空间博客 zysoft17 本版专家分：3898: 兄弟,感觉你的程序不大好,
1.set rs=server.CreateObject("adodb.recordset")
这句应该放在过程前面,而不要放在过程中,可以减少内存的使用,
2.尽量少用递归,会很慢,可以换换思维方式.
不防说说自己要实现的目的,请大家分析一下,再想想办法.

0 2005-05-16 10:48:12

只看TA 引用举报 #3 得分 100

junsunchen 本版专家分：1538: 我这个程序是计算会员奖金的，所有会员都成一棵二叉树的，用递归来做

0 2005-05-16 11:57:07

只看TA 引用举报 #4 得分 0

⋅[100分-这个有点难度] 关于PHP解析分支结构语法问题! ⋅[正则] 如何用正则表达式匹配<sys:date />？ “解决马上结贴”！ ⋅Delphi如何用使用dbExpress方式连接mysql,access,vfp6.0三种数据库呢？ 更多帖子 关注私信空间博客 zysoft17 本版专家分：3898: 试试这样:

'. 链接数据,放在公共部分
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

0 2005-07-13 21:55:57

只看TA 引用举报 #5    得分 0