看这个函数！
function   getmember   (selec)
sql= "select   *   from   kl_user   where   kl_jdrbh= ' "&selec& " ' "
Set   rs_g=conn.execute(sql)
do   while   not   rs_g.eof
membernum=membernum+1
getmember   rs_g( "kl_infonumber ")
rs_g.movenext
loop  
rs_g.close
set   rs_g=nothing
end   function

大概说明：
001   生成   101   102   103
101   生成   201   202   203         102   生成   204   205   206  
…………
规则：1，母结点可派生三个子结点。假设子结点（A，B，C）。  
                    2，必须先有A结点才能有B结点，必须先有B结点才能有C结点。  
                    3，可单链无限延伸。  
需求：1，统计每结点派生的子结点数。  

函数写了   最后返回的时候   怎么写？

------解决方案--------------------
?
看你的样子是一点不会用函数了

function getmember(selec)
Dim Sql,Rs_g
getmember=0
sql= "select * from kl_user where kl_jdrbh= ' "&selec& " ' "
Set rs_g=conn.execute(sql)
do while not rs_g.eof
getmember=getmember+1+getmember(rs_g( "kl_infonumber "))
rs_g.movenext
loop
rs_g.close
set rs_g=nothing
end function

调用： <%=getmember(session( "infonum "))%>

楼主还得从基础抓起哈
ASP都是弱类型，怎么会用int声明变量
还建议去看看什么是FUNCTION，什么是SUB