看这个函数！
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