Klasifikasi tak terbatas ASP ditambah kode contoh fungsi js shrink dan stretch
Contoh ini secara singkat memperkenalkan fungsi klasifikasi tak terbatas menggunakan ASP dan menyusutkan dan meregangkan menggunakan JS.
Sebelum operasi, saya mendefinisikan kategori tabel klasifikasi yang bidangnya
id (nomor otomatis) cat_name (nama kategori) parent_id (ID induk, sesuai dengan ID tabel ini) cat_order (pesanan) is_show (apakah akan ditampilkan) u_id (ini digunakan untuk membedakan apakah itu kategori berita, kategori produk , atau kategori lainnya), untuk kenyamanan, saya memasukkan semua kategori ini ke dalam tabel ini.
Saat menambahkan kategori ke pelanggan, ada terlalu banyak kategori. Saat pertama kali ditampilkan di meja depan, semuanya ditampilkan, yang sangat panjang. Pelanggan mengajukan saran modifikasi dan meminta agar diubah dengan mengklik kategori besar agar subkategorinya dapat ditampilkan. Di bawah setiap kategori juga terdapat garis putus-putus, dan terdapat tanda tambah di depan kategori besar. yang seharusnya menjadi tanda minus setelah ekspansi.
<skrip>
fungsi fd(id,angka)
{
t=$(c+id+_1).style.display;
jika(t==tidak ada)
{
t1=blok;
t2=gambar/fll_34.gif;
}
kalau tidak
{
t1=tidak ada;
t2=gambar/fll_34.gif;
}
untuk(i=1;i<=angka;i++)
{
$(c+id+_+i).style.display=t1;
$(d_+id).src=t2;
}
}
fungsi $(id)
{
kembalikan dokumen.getElementById(id);
}
</skrip>
Ini adalah kode kategori tampilan asp unlimited, dan menambahkan id ke kategori ini
<%
'Fungsi: klasifikasi tampilan asp tak terbatas + tampilan js dan sembunyikan
'Penulis: wangsdong
'Pengembangan: www.aspprogram.cn
'Parameter: parent_id adalah ID induk, tipe adalah kategori berita, produk, dan artikel
'Artikel asli, harap simpan beberapa informasi saat mencetak ulang, terima kasih
fungsi cat111(parent_id,tipe)
set rs1 =server.createobject(adodb.recordset)
sql=pilih cat_name,cat_id,parent_id dari kategori di mana parent_id=&parent_id& dan u_id=&stype& dan is_show=1 diurutkan berdasarkan cat_order asc
setel rs1=sambungan.eksekusi(sql)
Jika rs1.eof Lalu
Kalau tidak
jika(keberangkatan>2) maka
tampilan2=tidak ada
kalau tidak
tampilan2=blok
berakhir jika
redup j
j=1
lakukan selagi tidak rs1.eof
nama_kucing1 = rs1(nama_kucing)
cat_id1 = rs1(cat_id)
parent_id1=rs1(parent_id)
'******************Berikut ini adalah ****************** yang ingin Anda tampilkan'
m9=0
sql2=pilih hitungan(cat_id) sebagai t dari kategori di mana parent_id=&cat_id1& dan u_id=&stype&
set rs2=server.createobject(adodb.recordset)
setel rs2=sambungan.eksekusi(sql2)
jika bukan rs2.eof maka
m9=rs2(t)
kalau tidak
m9=0
berakhir jika
rs2.tutup
jika(keberangkatan<=2) maka
mgif=gambar/-.gif
a=blok
kalau tidak
jika(m9>0) maka
mgif=gambar/+.gif
kalau tidak
mgif=gambar/-.gif
berakhir jika
jika(keberangkatan=4) maka
a=blok
kalau tidak
a=tidak ada
berakhir jika
berakhir jika
cattr=catstr & <tr id=c&parent_id&_&j& style=display:&a&><td width=25 align=center valign=kelas menengah=dotted_class><img src=&mgif& width=12 tinggi=11 id=d_&cat_id1&></td>< kelas td=dotted_class leftcatcss>
jika(m9>0) maka
catstr=catstr&<a href=javascript:void(0); _fcksavedurl=javascript:void(0);
kalau tidak
cattr=catstr&<a href=products.asp?id=&cat_id1& target=_blank>&vbnewline
berakhir jika
untuk i=1 ke jalan keluar
catstr=catstr&
Berikutnya
catstr=catstr&cat_name1&</a></td></tr>&vbnewline
m9=0
sql2=pilih cat_name,cat_id dari kategori di mana parent_id=&parent_id1& dan u_id=&stype& pesan berdasarkan cat_order asc
set rs2=server.createobject(adodb.recordset)
setel rs2=sambungan.eksekusi(sql2)
jika bukan rs2.eof maka
jalan keluar= jalan keluar+4
panggil cat111(cat_id1,tipe)
berakhir jika
rs2.tutup
atur rs2=tidak ada
jalan keluar= jalan keluar-4
'******************Di atas adalah ****************** yang ingin Anda tampilkan'
j=j+1
rs1.movenext
lingkaran
Akhiri Jika
rs1.tutup
atur rs1=tidak ada
Fungsi akhir
%>
Sebelum menggunakan fungsi ini tambahkan
kucingtr=
Kemudian panggil lagi, dan tambahkan garis putus-putus berikut ke dotted_class di css
Semua fungsi telah dilaksanakan hingga saat ini