大家帮我看看递归哪出错了？真奇怪！

[情绝书生]

Select * From MemberInfo where RecommendID='athenna'A00002
错误 '80020009'
/soft/company/test.asp，行 7


<!--#include file="Sql_conn.asp"-->
<%
ConnectionDatabase()
nodeUser("athenna")
Function nodeUser(parent)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From MemberInfo where RecommendID='"&parent&"'"
response.write (Sql)
Rs.Open Sql,conn,1,3
if rs.eof then
response.write "没有相关记录"
Exit Function
else
while not Rs.eof
response.Write(rs("UserNameID"))
response.Write("<br/>")
nodeUser(rs("UserNameID"))
rs.movenext
Wend
end if
rs.close
set rs=nothing
End Function
%>

[feng2112]

parent值为??

[lnboy1003]

while not Rs.eof
response.Write(rs("UserNameID"))
response.Write("<br/>")
nodeUser(rs("UserNameID"))
rs.movenext
Wend
我怎么感觉你这里有问题啊，如果找到记录了，你第一次找的是athenna（Sql = "Select * From MemberInfo where RecommendID='"&parent&"'"
）那你后边又调用nodeUser(rs("UserNameID"))，那不是还是在查找UserNameID=athenna的吗那不是死循环了吗

[wojiaogyp]

把 Exit Function 去掉。

response.write "没有相关记录"
Exit Function

这两句根本没用，还影响程序结构。