select问题怎么就解决不了呢？
在一个网页中，上面是一个下拉框，下拉框的选项是从数据库中提取的。现在想通过SELECT的选择值再到数据库里把记录提取出来显示在下拉框的下面。请帮忙，在线等待！！ 问题点数：20、回复次数：7Top
1 楼summercat（飘轩(灌篮高手)）回复于 2003-06-03 14:54:26 得分 5
===>a.asp
<script language="javascript">
<%
dim RS
set ado=server.CreateObject("adodb.connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conn=session("conn")
RS.open "SELECT * FROM cmpsy order by cmparea desc", Conn, 1, 3'改成你的，
dim provinceName
dim provinceList
dim cityList
dim cityIndex
cityIndex = 1
do while not RS.eof
if isEmpty(provinceName) then
cityList = cityList & chr(34) & Trim(RS("cmpsyqn")) & chr(34) &","
provinceName = Trim(RS("cmparea"))
else
if provinceName<>Trim(RS("cmparea")) then
provinceList = provinceList & chr(34) & provinceName & chr(34) &","
if not isEmpty(cityList) then Response.write "var city"& cityIndex &_
" = ["& Left(cityList, Len(cityList)-1) &"];"& VBCrLf
cityIndex = cityIndex + 1
cityList = ""
end if
provinceName = Trim(RS("cmparea"))
cityList = cityList & chr(34) & Trim(RS("cmpsyqn")) & chr(34) &","
end if
RS.movenext
loop
if not isEmpty(cityList) then
Response.write "var city"& cityIndex &" = ["& Left(cityList, Len(cityList)-1) &"];"& VBCrLf
end if
if not isEmpty(provinceName) then
provinceList = provinceList & chr(34) & provinceName & chr(34) &","
Response.write "var provinceName = ["& Left(provinceList, Len(provinceList)-1) &"];"
end if
RS.close : Set RS=nothing
%>
//-->
</script>
<script language=javascript>
function province()
{
var e = document.form1.province;
for (var i=0; i<provinceName.length; i++)
e.options.add(new Option(provinceName[i], provinceName[i]));
}
function cityName(n)
{
var e = document.form1.city;
for (var i=e.options.length; i>0; i--) e.remove(i);
if (n == 0) return;
var a = eval("city"+ n); //得到商业区的数组名
for (var i=0; i<a.length; i++) e.options.add(new Option(a[i], a[i]));
}
function window.onload()
{
province(); //初始时给地区下拉菜单赋内容
}
</script>Top
2 楼summercat（飘轩(灌篮高手)）回复于 2003-06-03 14:55:34 得分 0
显示页面==
<select name=province class="tx1" onchange="cityName(this.selectedIndex)">
<option value="">位于...区</option>
</select>
<select name=city class="tx1">
<option value="">位于..商圈</option>
</SELECT>
Top
3 楼dgsrest（）回复于 2003-06-03 14:56:41 得分 0
<select name="a" size="1" >
<%
set rs3=server.createobject("ADODB.recordset")
rs3building="select * from 表 where 条件"
rs3.open rs3building,dbJWC,3,2
Do While Not rs3.EOF
%>
<option vaule=<%=rs3("")%>><%=rs3("")%></option>
<%
rs3.movenext
loop
%>
<%
rs3.close
set rs3=nothing
%>
</select>
Top
4 楼guyong009（问题这么多，快要上岗了）回复于 2003-06-03 14:58:19 得分 5
<%
set conn=server.createobject("adodb.connection")
connstr = "DBQ="+server.mappath("data/gdzc.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select 字段名 from 表名 where 条件"
rs.open sql,conn,1,1%>
<select name="下拉框名">
<option value=""></option>
<%do while not rs.eof
if request("下拉框名")=rs("字段名") then
response.write "<option value="&rs("字段名")&" selected>"&rs("字段名")&"</option>"
else
response.write "<option value="&rs("字段名")&">"&rs("字段名")&"</option>"
end if
rs.movenext
loop
rs.close%>
</select>Top
5 楼mwpump（山水泵）回复于 2003-06-03 15:45:35 得分 0
很高兴一下子有这么多人答复，把数据库的数据作为下拉框的选项已解决，现在的问题是当下拉框的选项选定以后，在不刷新的情况下，能获取SELECT的选项值，并把它的值传给同一页的下面查询程序使用，获取数据，在当页的下面显示出来，如果有其它办法，那是什么，如果能做到所想的又该怎么办呢？在线等待。Top
6 楼caoshangfei（草上飞）回复于 2003-06-03 15:48:00 得分 5
不刷新是不能实现的。Top
7 楼tsoukw（小生有禮）回复于 2003-06-03 19:44:00 得分 5
使用隱藏窗口
onchange事件時調用parent.hideform.location.href="xxx.asp?select_value="+ select_value;
然后在隱藏窗口程式中實現查詢
這樣本頁面就不用刷新了Top
