Kode dapat dioptimalkan, silakan optimalkan sesuai dengan kebutuhan Anda
menjelaskan:
Jadi pertama -tama simpan semua bacaan klasifikasi di array JS (mungkin sedikit merepotkan jika volume data besar)
Saat memilih, kembalikan ID klasifikasi induk dan temukan klasifikasi yang sesuai dari array, lalu tampilkan ke pengguna
Desain Basis Data (Anda dapat menambahkan bidang sesuai dengan kebutuhan Anda sendiri, kategori apa yang dimiliki kategori ini, dll.)
Deskripsi Jenis Bidang
ID nomor catatan nomor otomatis
Nama Klasifikasi Teks Cotename
ID klasifikasi induk nomor byid (yaitu, untuk ID tabel ini, nilai kontak root adalah 0)
Bagian dari kode JS (bernama *.asp)
Salinan kode adalah sebagai berikut:
<%DiMconn
SetConn = server.CreateObject ("adodb.connection")
conn.connectionstring = "penyedia = microsoft.jet.oledb.4.0;" & _
"DataSource =" & Server.mappath ("cote.mdb")
Conn.open
%>
functionChecklm (thevalue) {
varbyId = newArray ();
varcotename = newArray ();
variabel = newArray ();
vari;
variabel_s;
varbyid_s;
varcotename_s;
varthevalue_r;
vardata = '<selectname = "lm" onchange = "checklm (this.value)">'
id_s = "|";
cotename_s = '-pilih- |';
<%setRs = server.CreateObject ("adodb.recordset")
SQL = "SELECT*DARI [DB_COTE] orderByById, ID"
rs.opensql, Conn, 1,1
i = 0
IFNOTRS.EOFTHEN
dowhilenotrs.eof
response.write ("id [" & i & "] =" & rs ("id") & ";" & chr (10))
response.write ("byid [" & i & "] =" & rs ("byid") & ";" & chr (10)))
response.write ("cotename [" & i & "] = '" & rs ("cotename") & "';" & chr (10))
rs.movenext
i = i+1
lingkaran
kalau tidak
response.write ("id [0] = 0; byid [0] = 0; cotename [0] = 'tidak ada klasifikasi';")
endif
rs.close
setRs = tidak ada%>
if (thevalue == null || thevalue == tidak terdefinisi || thevalue == '') {thevalue = 0;}
// if (lmValue == null || lmValue == tidak terdefinisi || lmValue == '') {lmValue = 0;}
untuk (k = 0; k <id.length; k ++) {