如何创建相关下拉菜单

ElseResponse.Write and s#106avaｓｃｒｉｐｔ = function classselected (elem) {_vbCrlf for (VaR I = document.f1.sort.options.length; I > = 0; i--) {document.f1.sort.options{i} = null; vbCrlfDo Until RSClass.EOFIf sLastClass RSClass (fldClass) ThensLastClass = RSClass (fldClass) Response.Write s#106avaｓｃｒｉｐｔ = sLastClass s#106avaｓｃｒｉｐｔ if} (elem.options{elem.selectedIndex}.value== RSClass (fldID) ) { End Ifs# = 106avaｓｃｒｉｐｔ s#106avaｓｃｒｉｐｔ f1.sort.options.length} = document.f1.sort.options{document. new (RSClass Option (fldSort) ',' RSClass (fldID) ); vbCrlfRSClass.MoveNextLoop Response.Write Response.Write please select the Response.Write Response.Write s#106ava脚本= S # 106avaｓｃｒｉｐｔ 反应。} }写的回应。写的# 106avaｓｃｒｉｐｔ 端ifrsclass.closeset rsclass =没有%>