高手帮我看看下面的程序(递归)出来啥问题

[lugangxyz]

<%
function ShowBox(PID,LANG)

if (PID = "-1") then
response.Write "大类"
'exit function
end if
dim sql
set rs = server.CreateObject("adodb.recordset")
sql = "select PID ,name,lang from product where ID = " &PID &" and lang = '" &LANG& "'"
rs.open sql,conn,1,3

if not(rs.bof and rs.eof) then
do while not rs.eof
ShowBox rs("PID"),rs("Lang")
response.Write("-->")
response.Write(rs("name"))

rs.movenext
loop
end if
rs.close()
set rs=nothing
call CloseConn()
response.Write "END"
end function

%>
我想在上面的程序中递归读出数据库的数据,可是当该函数第二次被调用时(即递归进入第二层)就退出了,不知道怎么回事,各位高手指点一下

[setu1]

一个数据库连接多次运行rs.open 当然会出错

[lugangxyz]

楼上的谢谢了,有什么解决的办法吗?

[lugangxyz]

各位高手救救俺吧,呵呵

[lisoon]

PID = "-1"
是不是數據庫中有這個值呀。

[setu1]

不要用递归，很难控制的

[setu1]

不过试一下
3,1

[lugangxyz]

PID = "-1"
是不是數據庫中有這個值呀。

是呀,

[wanghui0380]

看上去没什么问题，不过你的确保
ShowBox rs("PID"),rs("Lang")

这个rs("PID")一定是子类的id,如果一个不小心出现一个父类id，就是无限循环

递归很容易出现死循环，小心控制

[setu1]

可能这个对你有帮助
http://community.csdn.net/Expert/topic/4239/4239901.xml?temp=.6106684

[lugangxyz]

楼上的谢谢了,这个我已经确认没有问题了,
现在不是死循环的问题,而是它只执行了一次,第二次进去好像只执行了一句就退出了

[dh20156]

把call CloseConn()注释掉看看先.

[lugangxyz]

<%
function ShowBox(ParentID,LANG)
on error resume next
if (ParentID = "-1") then
response.Write "大类"
end if

dim sql

sql = "select PID ,name,lang from product where ID = " &ParentID &" and lang = '" &LANG& "'"

set rs = conn.Execute(sql)

if not(rs.bof and rs.eof) then

do while not rs.eof
dim sName
sName = rs("name")'这里的rs好像在递归回来后无法保存原来的值
on error resume next
ShowBox rs("PID"),rs("lang")
if err then

end if
response.Write("-->")
response.Write(sName)

rs.movenext
loop

end if

if err then

end if
end function

%>
另外,我是用access数据库的

[lugangxyz]

问题还没有解决,请各位再帮俺看看

[dh20156]

检查你的遍历是否正确，因为有数据库不好测试。

[wanghui0380]

sName = rs("name")'这里的rs好像在递归回来后无法保存原来的值//??

呵呵，这是一定的

如果忽略函数作用域，你也要sname=sname+rs("name")

在带上,函数的作用域,此sname非彼sname

解决:要么全局,要么当参数传,那么当作返回值用