asp(vb)函数返回值问题

VB code

function gettopid(tid)
    if tid<>0 then
        Set Rs = Server.CreateObject("Adodb.RecordSet")
        sql="select * from type where T_ID="&tid
        rs.open sql,conn,1,3
        topid=tid
        tid=rs("T_ParentID")
        rs.close
        set rs=nothing
        if tid<>0 then
            gettopid(tid)
        else
            gettopid=topid
        end if    
    end if
end function

getclassname(gettopid(id))时候没反应，上面gettopid（）函数怎么会没返回值啊？

function gettopid(tid)
  if tid<>0 then
  Set Rs = Server.CreateObject("Adodb.RecordSet")
  sql="select * from type where T_ID="&tid
  rs.open sql,conn,1,3
  topid=tid
  tid=rs("T_ParentID")
  rs.close
  set rs=nothing
  if tid<>0 then
  gettopid=topid
  else
  gettopid=topid
  end if  
  end if
end function

这个 没递归调用，不行。

递归？？？你这样不循环肯定没值 要不你就再写一个循环方法

if tid<>0 then
  gettopid = gettopid(tid)
else
...