蛙蛙推荐:asp实现树型结构选择自onlytiancai的Blog

关键字蛙蛙推荐:asp实现树型结构

出处

<---------[test]表生成脚本---------------

ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[test]')andOBJECTPROPERTY(id,N'IsUserTable')=1)

droptable[dbo].[test]

GO

CREATETABLE[dbo].[test](

[id][int]IDENTITY(1,1)NOTNULL,

[str_note][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL,

[father_id][int]NULL

)ON[PRIMARY]

GO

-->

<>

<%

Dimstrconn,conn,rs,sql

strconn="Driver={sqlserver};server=localhost;database=wawavote;uid=sa;pwd=sa;"

Dimi

i=0

FunctionShowTree(parentID)

i=i+1

Dimrs

Setrs=Server.CreateObject("ADODB.RecordSet")

sql="SELECTid,str_note,father_id,(SELECTstr_noteFROMtestt2WHEREt2.id=t1.father_id)ASParentNameFROMtestt1WHEREt1.father_id="&Cint(parentID)

rs.opensql,strconn,1,1

DoWhileNotrs.Eof

forj=1toi

Response.Write("---")

next

Response.Write(rs(1)&"["&rs(3)&"]<br>")

ShowTreers(0)

i=i-1

rs.Movenext

Loop

rs.Close:Setrs=Nothing

EndFunction

SubShowTable(table)

Dimrs

Setrs=Server.CreateObject("ADODB.RecordSet")

sql="select*from"&trim(table)

rs.opensql,strconn,1,1

Fori=0Tors.Fields.Count-1

Response.Write("["&rs.fields(i).Name&"]")

next

Response.Write("<br>")

DoWhileNotrs.Eof

Fori=0Tors.Fields.Count-1

Response.Write("["&rs.fields(i).Value&"]")

next

Response.Write("<br>")

rs.MoveNext

Loop

rs.Close:Setrs=Nothing

Endsub

ShowTree(0)

ShowTable("test")

%>