asp 트 리 구조 구현

개구리 추천:asp 트 리 구조 구현     선택 하 다 onlytiancai 의 Blog   키워드   개구리 추천:asp 트 리 구조 구현  출처       <% Dim strconn,conn,rs,sql strconn="Driver={sql server};server=localhost;database=wawavote;uid=sa;pwd=sa;" Dim i i=0 Function ShowTree(parentID)  i=i+1  Dim rs  Set rs = Server.CreateObject("ADODB.RecordSet")  sql="SELECT id, str_note, father_id,(SELECT str_note FROM test t2 WHERE t2.id = t1.father_id) AS ParentName  FROM test t1 WHERE t1.father_id="&Cint(parentID)  rs.open sql,strconn,1,1  Do While Not rs.Eof   for j=1 to i    Response.Write("---")   next   Response.Write(rs(1)&"["&rs(3)&"]
")   ShowTree rs(0)   i=i-1  rs.Movenext  Loop  rs.Close:Set rs=Nothing  End Function Sub ShowTable(table)  Dim rs  Set rs = Server.CreateObject("ADODB.RecordSet")  sql="select * from "&trim(table)  rs.open sql,strconn,1,1  For i=0 To rs.Fields.Count-1   Response.Write("["&rs.fields(i).Name&"]")  next  Response.Write("
")  Do While Not rs.Eof   For i=0 To rs.Fields.Count-1    Response.Write("["&rs.fields(i).Value&"]")   next   Response.Write("
")  rs.MoveNext  Loop  rs.Close:Set rs=Nothing  End sub ShowTree(0) ShowTable("test") %>