تنفيذ شجرة الدليل لموقع الويب باستخدام ASP
بنية قاعدة البيانات (يتم استخدام جدولين في المجموع)
1. tblcategory
نوع اسم الحقل
الجذر الوصف الثنائي شجرة إغلاق أو مفتوحة (جذر الدليل)
معرفات الترقيم التلقائي الكلمات الرئيسية
يدرك Sort Integer العدد الأيمن الذي يحتوي على الحقل (إذا كان الجذر مفتوحًا ، فإن الفرز هو 0) يشير إلى ترتيب الدليل المعروض.
نص الاسم (255) يمكن أن يحتوي على معرفات في HTML
نص HREF (255) السماح فارغة
2. tblpages
معرف الترقيم التلقائي
فرز الكلمات الرئيسية عدد صحيح
نص الاسم (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 "">
</frameet>
</html>
4.main.htm
<head> <title> </itlem> </head>
<body>
<h2> ابدأ الصفحة </h2>
</body>
</html>
5.tree.asp
set conn = server.createObject ("" adodb.connection "")
SET RS = Server.createObject ("" Adodb.RecordSet "")
Conn.Open "" Driver = Microsoft Access Driver (*.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 "">
<!-رمز البنية التحتية للشجرة->
<script src = "" ftiens4.js ""> </script>
<!-تنفيذ الكود الذي يبني بالفعل الشجرة المحددة->
<script>
UsetextLinks = 1
<٪
افعل بينما لا rs.eof
إذا كان RS ("" الجذر "") = صحيح ثم ٪>
polderStree = gfld ("" <٪ = rs ("" "" catname ") ٪>" "،" <٪ = rs ("" "" caturl ") ٪>")
<٪ آخر ٪>
aux1 = insfld (polderStree ، gfld ("" <٪ = rs ("" "" catname "") ٪> "" ، "<٪ = rs (" "" ") ٪>" ")))
<٪ currentId = rs ("" id "")
SAVEDID = RS ("" ID "")
تفعل بينما currentId = saveidiD وليس rs.eof
إذا كان RS ("" LinkName "") <> "" "" ثم ٪>
insdoc (aux1 ، glnk (0 ، "<٪ = rs (" "linkname" ") ٪>" "،" <٪ = rs ("" linkurl ") ٪>"))))