Question

根据下拉框选择内容读取数据库内容并显示

举例:
1, 先从数据库中读出级别字段内容,将内容填充到下拉框中,并先在本页面上显示所有用户记录.
2,当改变下拉框内容,比如要选择"金牌用户"时,就重新读取所有级别是金牌用户的记录并显示在本页上.
3,注意,只是改变下拉框内容时就重新读取并显示,并不用什么提交按钮.

我对这方面还不怎么懂,只是查了百度相关的例子,在下拉框的Select 中用了onchange事件,做了个js 可达不到我想的效果,只好在这求助各位啦.
<script language="javascript">
function showMsg(obj) {
var opt = obj.options[obj.selectedIndex]
if (opt.value==""){
document.getElementById("td_id").value=" order by id asc";
}
else{
document.getElementById("td_id").value=" where ice_name=''"+opt.value+"'";
}
}
</script>
=============以上是js部分
=============下面是asp部分
<SELECT NAME="select1" onchange="showMsg(this)" >
<option value="" selected="selected" >所有用户</option>
<%
dim rsc
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from 用户 order by id asc",conn,1,1
while not rsc.eof
response.Write("<option value="""&rsc("ice_name")&""">" & rsc("ice_name") & "</option>")
rsc.movenext
wend
rsc.close
set rsc=nothing
%>
</select>

<td background="images/main_9.gif" id="td_id"><%
Set rs = server.CreateObject("adodb.recordset")
exec = "select * from 用户"&td_id.value====??这里不知怎么写js里得到的值,并刷新网页重新显示满足条件的记录,网页提示缺少对象
rs.Open exec,conn,1,3
If rs.EOF Then
response.Write " 暂无会员资料！"
Else
rs.PageSize = 10 '每页记录条数
iCount = rs.RecordCount '记录总数
iPageSize = rs.PageSize
maxpage = rs.PageCount
page = request("page")
If Not IsNumeric(page) Or page = "" Then
page = 1
Else
page = CInt(page)
End If
If page<1 Then
page = 1
ElseIf page>maxpage Then
page = maxpage
End If
rs.AbsolutePage = Page
If page = maxpage Then
x = iCount - (maxpage -1) * iPageSize
Else
x = iPageSize
End If
%>

Answer 1

1、简单做法：使用onchange触发页面重新加载，如取得下拉框的值后，重定向网址window.location.href = "?searchtype="+下拉框的值
2、用ajax动态刷新用户列表区域，这种方法写起来稍有点麻烦

追问

可以写下具体的代码吗?因为编程需要接触到的asp,对这方面还不熟悉,网上找类似这样的又一时找不到,谢谢帮助

追答

function getFilter(obj) {
window.location.href = "?filter="+obj.options[obj.selectedIndex].value
}

...

追问

感谢你,问题已经解决,只是还有一个小问题,就是改变选择框后可以根据条件查询,但下拉框里默认显示的始终是所有用户,怎么做可以让下拉框在查询后显示当前查询的名称呢?比如查询的是金牌用户,下拉框就显示金牌用户,而不是回到所有用户了.

追答

所有用户
" & rsc("ice_name") & "")
else
response.Write("" & rsc("ice_name") & "")
end if
rsc.movenext
wend
rsc.close
set rsc=nothing
%>