ASPを使用してWebサイトのディレクトリツリーを実装します
データベース構造（2つのテーブルが合計で使用されます）
1。tblcategory
フィールド名タイプ
ルートバイナリ説明ツリークローズまたはオープン（ディレクトリのルート）
ID自動番号付けキーワード
sort整数は、フィールドを含む整数を認識します（ルートが開いている場合、ソートは0です）。表示されたディレクトリの順序を示します。
名前テキスト（255）には、HTMLに識別子を含めることができます
HREFテキスト（255）は空を許可します
2。TBLPAGES
ID自動番号付け
整数キーワードをソートします
名前テキスト（255）
HREFテキスト（255）
3.Default.htm
<html>
<head>
<title> javascriptツリーコントロールテンプレート</title>
</head>
<フレームセットcols = "" 210、*"">
？<frame src = "" tree.asp "" name = "" toc "">
？<フレームsrc = "" main.htm "" name = "" basefrm "">
</frameset>
</html>
4.main.htm
<head> <title> </title> </head>
<body>
<h2>開始ページ</h2>
</body>
</html>
5.tree.asp
conn = server.createObject（ "" adodb.connection ""）
rs = server.createObject（ "" adodb.recordset ""）を設定します
conn.open "" driver = microsoftアクセスドライバー（*.mdb）; dbq = ""＆server.mappath（ "" toc.mdb ""）
strsql = "" Select tblcategory.root、tblcategory。 tblcategory。[id] = tblpages。
rs.open strsql、conn、2、2
rs.eofではない場合は、rs.movefirst
currentId = "" ""％>
<html>
<head>
<link rel = "" styleSheet "" href = "" ftie4style.css "">
<！ - ツリーのインフラストラクチャコード - >
<スクリプトsrc = "" ftiens4.js ""> </script>
<！ - 実際に特定のツリーを構築するコードの実行 - >
<スクリプト>
USETEXTLINKS = 1
<％
rs.eofではありません
rs（ "" root ""）= true then％>の場合
folderStree = gfld（ "" <％= rs（ "" catname ""）
<％else％>
aux1 = insfld（folderStree、gfld（ "" <％= rs（ "" "catname" "）
<％currentId = rs（ "" id ""）
savedid = rs（ "" id ""）
currentId = savedidではなく、rs.eofではなくします
if rs（ "" linkname ""）<> "" "" then％>
insdoc（aux1、glnk（0、 "" <％= rs（ "" linkname ""）％> "" "" <％= rs（ "" linkurl ""）％> ""）））