如何制作关联的下拉菜单?
时间:2010-06-29 21:19:00
如何制作关联的下拉菜单?
看看代码:
<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>