หน้าค่อนข้างง่ายคล้ายกับรายการด้านซ้ายของฟอรัม CSDN ภายใต้ NS
อธิบาย:
1. 1.
ชื่อข้อมูล: tree.mdb
ชื่อตาราง: ต้นไม้
โครงสร้างตาราง: ID (Self -Edited) PID (หมายเลข) เนื้อหา (ข้อความ) ลิงก์ (ข้อความ)
2.
รูปถ่าย: endnode.gif contrapsed.gif back.gif (ทั้งในไดเรกทอรี IMG คุณสามารถแก้ไขได้ด้วยตัวเอง)
3 ..
รหัส:
<!-#รวม file = "conn.inc"->
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<meta name = "general" content = "Microsoft FrontPage 4.0">
<title> รายการไม่ จำกัด </title>
-
โดย Fason (2003-5-12)
-
<style>
.Node {
ขนาดฟอนต์: 12px;
Padding: 0 0 2 0;
ขอบซ้าย: 10;
ความสูง: 22px;
-
img {
แนวดิ่ง: กลาง;
ความกว้าง: 11px;
ความสูง: 11px;
-
A {Text-Decoration: None;
.deeptree {
ความกว้าง: 100%;
ความสูง: 100%;
backgound-color:#f2f2f2;
ล้น: อัตโนมัติ;
-
</style>
</head>
<body bgcolor =#f2f2f2>
<NOBR>
<div>
-
newId = request.QueryString ("id")
ถ้า newId = "" หรือ cint (newId) <0 thatn newId = 0
ถ้า isnumeric (newID) แล้ว
ListTree (CINT (newID))
สิ้นสุดถ้า
ฟังก์ชั่น listree (id)
สลัวอาร์เอส
dim imgfolder, imgfile
Dim Link, Href, Painthref
Dim Target, Ahref, คลิก
Target = "Main" 'ชื่อเฟรมเวิร์กที่ระบุ
imgFolder = "img/" 'เส้นทางเริ่มต้น
ตั้งค่า rs = conn.execute ("เลือกนับ ( *) จากต้นไม้โดยที่ pid = t.id) เป็นเด็ก (เลือก pid จากต้นไม้โดยที่ id =" & id & ") เป็นพาเรนต์จากต้นไม้ต้นไม้ p id =" & id )
ถ้าไม่ใช่ rs.eof แล้ว
ParentHref = request.ServerVariables ("url") & "? id =" & rs ("สี")
ถ้า id <> 0 response.write "<div class = 'node' nowrap = true> <a href = '" & parenthref & "' onfocus = 'blur ()'> <img src = '& imgfolder &" กลับมา .gif 'border = 0> </a> <a href =' "& parenthref &" '> แคตตาล็อกก่อนหน้า </a> </div> "& vbcrlf
ทำในขณะที่ไม่ใช่ RS.EOF
ถ้า RS ("เด็ก")> 0 แล้ว
img = imgfolder "clinpset.gif"
href = request.serverVariables ("url") & "? id =" & rs ("id")
click = "onclight =" "location.href = '" & href & "" ""
อื่น
img = imgfolder "endnode.gif"
href = "JavaScript: void (0)"
สิ้นสุดถ้า
ถ้าไม่ใช่ isnull (rs ("ลิงก์") แล้ว
ahref = rs ("ลิงก์")
อื่น
ahref = "JavaScript: void (0)"
target = "_ self"
สิ้นสุดถ้า
link = "<a href = '" & ahref & "' target = '" & target & "' title = '" & rs ("เนื้อหา") & "" & คลิก & ">" เนื้อหา ") &" </a> "</a>
Response.write "<div class = 'node' nowRap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" img & "' border = 0> < /a> "" & link & "</div>" "
Rs.Movenext
วง
Rs.close: Set Rs = ไม่มีอะไร
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
conn.close: ตั้งค่า conn = ไม่มีอะไร
-
</div>
</nobr>
</body>
</html>
Conn.inc:
-
หรี่
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath ("tree.mdb") & "; คงอยู่
-
4. การทดสอบ: IE6, NS7, Mozilla ภายใต้การทดสอบและผ่าน