您现在的位置是：网站首页> 编程资料编程资料

asp实现树型结构_应用技巧_

2023-05-25 481人已围观

简介 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")
%>

上一篇：如何把ASP编写成DLL_应用技巧_

下一篇：超级ASP大分页_我的类容我做主_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

asp实现树型结构_应用技巧_

相关内容

点击排行

本栏推荐

猜你喜欢