صفحة بسيطة نسبيًا ، على غرار القائمة اليسرى لمنتدى CSDN تحت NS
يصف:
1. 1.
اسم البيانات: tree.mdb
اسم الجدول: شجرة
هيكل الجدول: معرف (محرر ذاتي) رابط محتوى (رقم) (نص) (نص) (نص)
2.
الصورة: endnode.gif bollapsed.gif back.gif (كلاهما في دليل IMG ، يمكنك تعديله بنفسك)
3 ..
شفرة:
<!-#تضمين ملف = "conn.inc"->
<html>
<head>
<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<meta name = "general" content = "Microsoft Frontpage 4.0">
<title> قائمة غير محدودة </title>
<!-
بقلم فاسون (2003-5-12)
->
<style>
.node {
حجم الخط: 12 بكسل ؛
الحشو: 0 0 2 0 ؛
الهامش اليساري: 10 ؛
الارتفاع: 22px ؛
}
IMG {
المحاذاة الرأسية: الأوسط ؛
العرض: 11px ؛
الارتفاع: 11px ؛
}
A {Text-Decoration: None ؛
.deeptree {
العرض: 100 ٪ ؛
الارتفاع: 100 ٪
اللون الخلفي:#f2f2f2 ؛
الفائض: السيارات ؛
}
</style>
</head>
<body bgcolor =#f2f2f2>
<blob>
<viv>
<٪
newID = request.querystring ("id")
إذا newID = "" أو cint (newID) <0 thatn newId = 0
إذا isnumeric (newID) ثم
ListTree (Cint (NewID))
إنهاء إذا
وظيفة Listree (ID)
قاتمة روبية
خافت Imgfolder ، imgfile
رابط خافت ، HREF ، PainTheRef
Dim Target ، Ahref ، انقر
Target = "Main" اسم إطار عمل محدد
Imgfolder = "IMG/" "المسار الافتراضي
تعيين rs = conn.execute ("حدد العد ( *) من الشجرة حيث pid = t.id) كأطفال ، (حدد pid من الشجرة حيث id =" & id & ") كأم من شجرة tree p =" & id )
إذا لم يكن rs.eof ثم
pursenhref = request.servervariables ("url") و "؟ id =" & rs ("paint")
إذا كان المعرف <> 0 reponse.write "<div class = 'node' nowrap = true> <a href = '" & parenthref & "' onfocus = 'blur ()'> <img src = '& imgfolder &" back .gif 'border = 0> </a> <a href =' "& parenthref &" '' الكتالوج السابق </a> </viv> "& vbcrlf
افعل بينما لا rs.eof
إذا كان روبية ("أطفال")> 0 ثم
IMG = imgfolder "collapset.gif"
href = request.servervariables ("url") و "id =" & rs ("id")
انقر فوق = "onClight =" "location.href = '" & href & "" "" "
آخر
img = imgfolder "endnode.gif"
HREF = "JavaScript: void (0)"
إنهاء إذا
إذا لم يكن isnull (روبية ("رابط") ثم
ahref = rs ("الرابط")
آخر
Ahref = "JavaScript: void (0)"
Target = "_ الذات"
إنهاء إذا
link = "<a href = '" & ahref & "' 'target ='" & target & "'' title = '" & rs ("content") & "" & click & ">" content ") &" </a> "</a>
Response.write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" & img & "' border = 0> < /a> "" & link & "</viv>" "
Rs.Movenext
حلقة
Rs.Close: تعيين روبية = لا شيء
إنهاء إذا
وظيفة نهاية
conn.close: تعيين conn = لا شيء
٪>
</div>
</nobr>
</body>
</html>
Conn.inc:
<٪
قاتمة كون
تعيين conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath ("tree.mdb") & "؛
٪>
4. اختبار: IE6 ، NS7 ، Mozilla تحت الاختبار ومرت من خلال