在asp类中获取外部的值以及返回数组

<%

dim conn,connstr
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/3x.mdb")
conn.open connstr

class tree
  public condition1
  public property let condition(vdata)
      condition1=vdata
  end property
  public property get condition()
     condition=condition1
  end property

function getfolder(condition2)
   dim sqlstr,i,myarray()
   sqlstr="select * from news where id="&condition2
   set rs=conn.execute(sqlstr)
   i=0
   do while nont rs.eof
   redim preserve myarray(2,i)
   myarray(1,i)=rs(1)
   myarray(2,i)=rs(2)
........................................

   rs.movenext
   loop
  rs.close
 getfolder=myarray()

end function

 

调用

set mytree=new tree
dim mtree=mytree.getfolder("171")

%>