ASP难题,恳请仙人指路!!!

Stabber 2001-11-19 10:44:24
有一个难题,请指教:
ASP页面中有两个列表框(ASP中称为下拉菜单),第一个列表框用于显示“组别”,第二个用于显示不同组中所有的“成员”。问题是,当改变不同的“组”时,第二个列表框的内容刷新为该组所属的成员列表。问题的关键是:两个列表框中的数据均取自数据库。
不知如何解决,先谢!
...全文
140 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Stabber 2001-11-20
  • 打赏
  • 举报
回复
隆重感谢chaosbird(canan)!!!这个问题我调通啦。
Stabber 2001-11-19
  • 打赏
  • 举报
回复
多谢!我试试
hu1dao 2001-11-19
  • 打赏
  • 举报
回复
有2种方法啊!
一个是刷新页面(用onchange="location='自己.asp?id=(this.options[this.selectedIndex].value)'")
然后用request("id").........
另一个是不刷新,先用数组读出所有的“组别”和“成员”用onchange="xxxx.innerHTML=成员.成员.成员.成员.成员."
chaosbird 2001-11-19
  • 打赏
  • 举报
回复
<select name="JXLB" size="1" onchange=window.open("self.asp?JXLBID="+this.options[this.selectedIndex].value,"_self")>
<%
Set step1 = Server.CreateObject("ADODB.Recordset")
strSQL="select * from 机械类别表"
step1.Open strSQL, cn
while not step1.EOF
response.write "<option value="&step1("类别ID")
if cint(step1("类别ID"))=cint(JXLBID) then
response.write " selected "
end if
response.write ">"&step1("类别名称")&"</OPTION>"
step1.MoveNext
Wend
%>
</select>*
<%
JXNBID=request("JXNBID")
%>
<select name="JXEJLB" size="1">
<%
Set step2 = Server.CreateObject("ADODB.Recordset")
strSQL="select * from 机械表 where 类别ID ="&JXLBID
step2.Open strSQL, cn
while not step2.EOF
response.write "<option value="&step2("机械ID")
if cint(step2("机械ID"))=cint(JXEJLB) then
response.write " selected "
CSSM=step2("标题参数说明")
end if
response.write ">"&step2("机械分类名称")&"</OPTION>"
step2.MoveNext
Wend
%>
</select>*
Stabber 2001-11-19
  • 打赏
  • 举报
回复
胡大侠:(hu1dao)
我尝试了你所说的第一种方法,但是不行。我是这样做的:
<%
'取出来瞧瞧
Response.Write Request.QueryString("id") & "<br>"
'访问数据库:建立连接并打开有关“组”的记录集Rs_Community
......
%>
<TABLE cellSpacing=0 cellPadding=3 width=520 align=center border=0>
......
<TD align=right><B>组  别</B></TD>
<TD vAlign=top>
<SELECT style="WIDTH: 150px" onchange="location='p_search.asp?id=this.options[this.selectedIndex].value'" name=d_position1 valign="top">
<option value="0" Selected>[ALL]</option>
<%
Do While Not Rs_Community.Eof
%>
<option value="<%=Rs_Community("commid")%>"><%=Rs_Community("community")%></option>
<%
Rs_Community.MoveNext
Loop
%>
</SELECT>
</TD>
<TD vAlign=top align=right width=80><B>成员</B></TD>
<TD width="40%">
<SELECT style="WIDTH: 150px" multiple size=4 name=funtypeca>
<%
'添加组成员的代码
......
%>
</SELECT></TD>
</TD></TABLE>
</BODY></HTML>

另外,你所提供的第二种方法能否说得稍微详细一些。
还有,能否发送一个示例给我,本人感激不尽。我的邮箱是:S2194131@163.NET
多谢!!!

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧