Halaman yang relatif sederhana, mirip dengan daftar kiri forum CSDN di bawah NS
menggambarkan:
1. 1.
Nama Data: Tree.mdb
Nama Tabel: Pohon
Struktur Tabel: ID (edited mandiri) PID (NUMBER) Konten (Teks) Tautan (Teks)
2.
Foto: endnode.gif runtuh.gif back.gif (keduanya di direktori IMG, Anda dapat memodifikasinya sendiri)
3 ..
Kode:
<!-#termasuk file = "conn.inc"->
<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<Meta name = "umum" konten = "Microsoft Frontpage 4.0">
<Title> Daftar Tidak Terbatas </iteme>
<!-
Oleh Fason (2003-5-12)
->
<tyle>
.Node {
font-size: 12px;
Padding: 0 0 2 0;
margin-kiri: 10;
Tinggi: 22px;
}
img {
Vertikal-Align: tengah;
Lebar: 11px;
Tinggi: 11px;
}
A {Text-Decoration: None;
.deeptree {
Lebar: 100%;
Tinggi: 100%;
Backgound-color:#f2f2f2;
meluap: otomatis;
}
</tyle>
</head>
<Body bgcolor =#f2f2f2>
<obr>
<div>
<%
newId = request.queryString ("id")
Jika newID = "" atau cint (newID) <0 itu newid = 0
if isNumeric (newID) maka
listtree (cint (newid))
akhiri jika
Function Listree (ID)
Redup
Redup imgfolder, imgfile
redup link, href, painthref
Redup target, ahref, klik
Target = "Utama" Nama Kerangka Kerja Tertentu
imgfolder = "img/" 'jalur default
Setel rs = conn.execute ("Pilih hitungan ( *) dari pohon di mana pid = t.id) sebagai anak -anak, (pilih pid dari pohon di mana id =" & id & ") sebagai orang tua dari pohon pohon p id =" & id )
Jika tidak rs.eof maka
Parenthref = request.serverVariable ("url") & "? Id =" & rs ("cat")
Jika id <> 0 The Response.write "<Div class = 'node' nowrap = true> <a href = '" & parenthref & "' onfocus = 'blur ()'> <img src = '& imgfolder &" kembali .gif 'border = 0> </a> <a href =' "& parenthref &" '> katalog sebelumnya </a> </div> "& vbcrlf
lakukan sementara tidak rs.eof
jika rs ("anak -anak")> 0 lalu
img = imgfolder "collapset.gif"
href = request.serverVariable ("url") & "? id =" & rs ("id")
klik = "OnClight =" "location.href = '" & href & "'" ""
kalau tidak
img = imgfolder "endnode.gif"
href = "javascript: void (0)"
akhiri jika
Jika bukan isnull (rs ("tautan") lalu
Ahref = rs ("tautan")
kalau tidak
Ahref = "JavaScript: void (0)"
target = "_ self"
akhiri jika
Link = "<a href = '" & ahref & "' target = '" & target & "' title = '" & rs ("konten") & "'" & klik & ">" konten ") &" </a> "</a>
Response.write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" & img & "' batas = 0> <) < /a> "" & link & "</div>" "
rs.movenext
lingkaran
Rs.close: set rs = tidak ada
akhiri jika
fungsi akhir
conn.close: atur conn = tidak ada
%>
</div>
</bobr>
</body>
</html>
Conn.inc:
<%
redup conn
Set Conn = Server.CreateObject ("AdodB.Connection")
conn.open "penyedia = microsoft.jet.oledb.4.0; Sumber data =" & server.mappath ("Tree.mdb") & "; Info keamanan tetap = false" "
%>
4. Tes: IE6, NS7, Mozilla di bawah Tes dan Lewat