java下拉列表 动态_从数据库中动态选取下拉列表的方法

有一页填表的页面，其中有几个下拉表单是通过一个表的某个字段动态

生成，比如省下面的城市名，希望选择某一个省即可自动在另一下拉表

单内生成城市名，.....然后提交给asp处理加入到另外一个表内。

OpenDB objConn, "xxxx"

Set RSClass = objConn.Execute("SELECT * FROM class Order by fldClass")

If RSClass.EOF Then

Response.Write "没有记录。
"

Else

Response.Write "

" ONCHANGE=""classselected(this);"" >"

sjavascript = "function classselected(elem){" &_

vbCrlf & _

"for (var i = document.f1.sort.options.length; i >= 0; i--){" & vbCrlf & _

"document.f1.sort.options[i] = null;" & _

vbCrlf

Do Until RSClass.EOF

If sLastClass <> RSClass("fldClass") Then

sLastClass = RSClass("fldClass")

Response.Write "" & sLastClass & ""

sjavascript = sjavascript & "}" & vbCrlf & _

"if (elem.options[elem.selectedIndex].value==" & _

RSClass("fldID") & "){" & vbCrlf

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 "

"

Response.Write ""

Response.Write "[请选择]"

Response.Write ""

sjavascript = sjavascript & vbCrlf & "}" & vbCrlf & "}" & vbCrlf

Response.Write "" & vbCrlf

Response.Write sjavascript & vbCrlf & "" & vbCrlf

End If

RSClass.Close

Set RSClass = Nothing%>