时间:2021-05-18
<form name=f1 METHOD="POST">
<%
OpenDB objConn, "xxxx"
Set RSClass = objConn.Execute("select * from class Order by fldClass")
If RSClass.EOF Then
Response.Write "噢,没有记录!<BR>"
Else
Response.Write "<select NAME=""class"" style=""FONT-SIZE: 9pt"" SIZE=10"
" ONCHANGE=""classselected(this);"" >"
sjavascript = "function classselected(elem){" &_
vbCrlf
"for (var i = document.f1.sort.options.length; i >= 0; i--){"
"document.f1.sort.options[i] = null;"
vbCrlf
Do Until RSClass.EOF
If sLastClass <> RSClass("fldClass") Then
sLastClass = RSClass("fldClass")
Response.Write "<OPTION VALUE=" & RSClass("fldID") & ">" & sLastClass & "</OPTION>"
sjavascript = sjavascript & "}"
"if (elem.options[elem.selectedIndex].value=="
RSClass("fldID") & "){"
End If
sjavascript = sjavascript
"document.f1.sort.options[document."
"f1.sort.options.length] = new Option('"
RSClass("fldSort") & "','" & RSClass("fldID") & "');"
vbCrlf
RSClass.MoveNext
Loop
Response.Write "</select>"
Response.Write "<select NAME=""sort"" style=""FONT-SIZE: 9pt"" SIZE=10>"
Response.Write "<OPTION>请选择</OPTION>"
Response.Write "</select>"
sjavascript = sjavascript & "}" & "}"
Response.Write "<SCR" & "IPT LANGUAGE=""javascript"">"
Response.Write sjavascript & "</SCR" & "IPT>"
End If
RSClass.Close
Set RSClass = Nothing
%>
</form>
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
我们在网页中经常见到下拉菜单,但是有很多朋友在用Frontpage制作网页的时候却很难制作出网页下拉菜单,FrontPage中怎么制作下拉菜单呢?请看下文详细介
有些时候为了防止输入的错误,我们可以制作成下拉菜单的形式,那么如何利用word制作下拉菜单呢?现在就把制作的步骤和截图分享出来,供大家参考使用。软件名称:Wor
网制作网页的时候,需要选择男女,所以需要添加下拉菜单,今天我们就来看看dw制作下拉菜单的教程。软件名称:AdobeDreamweaverCC2017v17.0中
本章将具体讲解下拉菜单的交互。使用下拉菜单(Dropdown)插件,您可以向任何组件(比如导航栏、标签页、胶囊式导航菜单、按钮等)添加下拉菜单。下拉菜单.dro
在使用excel输入数据时,我们会经常用下拉菜单列表来限定输入的数据,这会给我们省去输入文字的麻烦,那么如何制作下拉菜单列表呢?下面就为大家详细介绍一下,来