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

从数据库中动态选取下拉列表的方法 (转)[@more@]

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

RM name=f1 METHOD="POST">
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%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-975818/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-975818/