递归错误
数据结构:
ID NAME FatherID
1 ww 0
2 33 0
3 ew 1
4 de 3
递归函数
==================================
Function fn_RecursionSeach(Father_ID)
sql="select * from new_sort where sort_code = "&Father_ID
set rs = server.CreateObject ("ADODB.Recordset")
rs.open sql,conn,1,1
dim i
dim pid_id
i=1
do while not rs.eof
pid_id=rs("sort_id")
if rs("sort_level")=4 then
response.Write("|------------"&trim(rs("sort_name"))&" | "&trim(rs("sort_name_en"))&"|"&rs("sort_code")&"<br>")
elseif rs("sort_level")=1 then
response.Write("|---"&trim(rs("sort_name"))&" | "&trim(rs("sort_name_en"))&"|"&rs("sort_code")&"<br>")
elseif rs("sort_level")=2 then
response.Write("|------"&trim(rs("sort_name"))&" | "&trim(rs("sort_name_en"))&"|"&rs("sort_code")&"<br>")
elseif rs("sort_level")=3 then
response.Write("|---------"&trim(rs("sort_name"))&" | "&trim(rs("sort_name_en"))&"|"&rs("sort_code")&"<br>")
end if
fn_RecursionSeach(pid_id)
i=i+1
rs.movenext
loop
End Function
======================
调用
<body>
<%
fn_RecursionSeach(0)
%>
</body>
应该少了什么?!最近头晕晕的,想不出东西来