從資料庫中動態選取下拉選單的方法 (轉)

從資料庫中動態選取下拉選單的方法 (轉)[@more@]

有一頁填表的頁面，其中有幾個下拉表單是透過一個表的某個欄位動態
生成，比如省下面的城市名，希望選擇某一個省即可自動在另一下拉表
單內生成城市名，.....然後提交給處理加入到另外一個表內。

Open objConn, "xxxx"
Set RSClass = objConn.Execute(" * FROM class Order by fldClass")
If RSClass.EOF Then 
Response.Write "沒有記錄。
"

Else

  Response.Write "  " ONCHANGE=""classselected(this);"" >"
  sscript = "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 & ""
  s = 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
  L
  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%>