<%
'数据存入二维数组中
sql="SELECT * FROM [class]"
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,1,1
IF Not rs.EOF Then ResultArr=rs.GetRows(-1)
rs.close
Set rs=Nothing   

'eno 父id  eno下的所有会员ID从数组下标1开始
Dim oArr
oArr=Array(0)
Public Function getAllEno(eno) 
  Dim oArrNum
  For N=0 To Ubound(ResultArr,2)
    oArrNum=Ubound(oArr)
    IF ucase(eno)=ucase(ResultArr(2,N)) Then
      ReDim Preserve oArr(oArrNum+1)
      oArr(oArrNum+1)=ResultArr(1,N)
      getAllEno(ResultArr(1,N))
    End IF
  Next
  getAllEno=oArr
End Function

a=getAllEno("1")
for i=1 to ubound(a)
  response.write a(i)
  if i<ubound(a) then
      response.write ","
  end if
Next

%>