定義查詢語句sql查詢lm表並且字段lm不為空，按id升序排列。
設置rs =服務器。CreateObject("ADODB。記錄集”)
定義操作對象rs
rs。打開康涅狄格州1，1的sql
打開數據庫並執行sql語句。
而不是rs.eof
如果在lm表的記錄中
% & gt
& lt% if clng(lmid)=clng(rs("id "))然後response.write " selected " % & gt
Clng(lmid)將lmid轉換為數據行。
如果lmid=數據庫字段id，則顯示此項(選中表示選中)。
& lt% = RS(" lm ")% & gt；
顯示lm字段
& lt% SQL 2 = " select * from lm where lmid = ' " & amp；RS(" id ")& amp；按id asc排序"
將sql2查詢的LM表字段的lmid值定義為上壹條sql查詢的合格記錄的第壹個id值。
同樣以id升序排列。
設置rs2 =服務器。CreateObject("ADODB。記錄集”)
rs2。打開康涅狄格州的sql2，1，1
而不是rs2.eof
% & gt
& lt選項值= ' & lt% = RS(" id ")% & gt；| & lt% = rs2(" id ")% & gt；“| 0 ”& lt；% if clng(lmid)= clng(rs2(" id "))then response . write " selected " % & gt；& gt├<；% = rs2(" lm2 ")% & gt；(第二級)
& lt%
設置rs33 =服務器。CreateObject("ADODB。記錄集”)
rs33。Open "select * from [lm]其中lm3 & lt& gt''和lmid = ' " & amprs2(" id ")& amp；按id asc”訂購，康涅狄格州1，1
而不是rs33.eof
% & gt
& lt選項值= ' & lt% = rs2(" lmid ")% & gt；| & lt% = rs2(" id ")% & gt；| & lt% = rs33(" id ")% & gt；'& lt% if clng(lmid)= clng(rs33(" id "))then response . write " selected " % & gt；& gt├<；% = rs33(" lm3 ")% & gt；(第三級)
& lt%
rs33.movenext
行
rs2.movenext
行
rs.movenext
行
rs關閉
設置rs =無
這應該是壹個樹形目錄結構。