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

有一页填表的页面，其中有几个下拉表单是通过一个表的某个字段动态
生成，比如省下面的城市名，希望选择某一个省即可自动在另一下拉表
单内生成城市名，.....然后提交给asp处理加入到另外一个表内。

1<form method="POST" name="f1">   

OpenDB objConn, "xxxx"
Set RSClass = objConn.Execute("SELECT * FROM class Order by fldClass")
If RSClass.EOF Then
Response.Write "没有记录。<br/>"

Else

Response.Write "<select "="" &="" 9pt""="" ="" class""="" classselected(this);""="" font-size:="" name="" onchange="" size='10"' style="">"
sJavaScript = "function classselected(elem){" &amp;
vbCrlf &amp; _
"for (var i = document.f1.sort.options.length; i &gt;= 0; i--){" &amp; vbCrlf &amp; _
"document.f1.sort.options[i] = null;" &amp; _
vbCrlf
Do Until RSClass.EOF
If sLastClass &lt;&gt; RSClass("fldClass") Then
sLastClass = RSClass("fldClass")
Response.Write "<option "="" &="" fldid")="" value=" &amp; RSClass(">" &amp; sLastClass &amp; "</option>"
sJavaScript = sJavaScript &amp; "}" &amp; vbCrlf &amp; _
"if (elem.options[elem.selectedIndex].value==" &amp; _
RSClass("fldID") &amp; "){" &amp; vbCrlf
End If
sJavaScript = sJavaScript &amp; _
"document.f1.sort.options[document." &amp; _
"f1.sort.options.length] = new Option('" &amp; _
RSClass("fldSort") &amp; "','" &amp; RSClass("fldID") &amp; "');" &amp; _
vbCrlf
RSClass.MoveNext
Loop
Response.Write "</select>"
Response.Write "<select 9pt""="" font-size:="" name="" size="10" sort""="" style="">"
Response.Write "<option>[请选择]</option>"
Response.Write "</select>"

sJavaScript = sJavaScript &amp; vbCrlf &amp; "}" &amp; vbCrlf &amp; "}" &amp; vbCrlf
Response.Write "<scr" "ipt="" &="" javascript""="" language="">" &amp; vbCrlf
Response.Write sJavaScript &amp; vbCrlf &amp; "</scr">" &amp; vbCrlf
End If
RSClass.Close
Set RSClass = Nothing

1</form>