热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

两个下拉列表传值问题(ASP)急!!!!

<selectnameBigClassName><optionvalue>请选择一级分类&

              请选择一级分类
              <%Dim BigClassRs,BigClassSql
  Set BigClassRs=Server.CreateObject("Adodb.RecordSet")
   BigClassSql="Select * From Hhf_PrBigClass"
   BigClassRs.Open BigClassSql,Conn,1,1
   if Not(BigClassRs.Bof And BigClassRs.Eof) Then 
   Do while Not BigClassRs.Eof
   
response.write " if BigClassRs("BigID")=int(BigclassID) then
response.Write "selected"
end if
response.write ">" & BigClassRs("BigClassName") & ""
  BigClassRs.movenext
  Loop
 
  end if
  BigClassRs.Close
  Set BigClassRs=Nothing
  %>
            
            

              请选择二级分类
              <%Dim SmallClassRs,SmallClassSql
  Set SmallClassRs=Server.CreateObject("Adodb.RecordSet")
   SmallClassSql="Select * From Hhf_PrSmallClass"
   SmallClassRs.Open SmallClassSql,Conn,1,1
   if Not(SmallClassRs.Bof And SmallClassRs.Eof) Then 
   Do while Not SmallClassRs.Eof
   
response.write " if SmallClassRs("BigID")=int(BigclassID) then
response.Write "selected"
end if
response.write ">" & SmallClassRs("BigClassName") & ""
  SmallClassRs.movenext
  Loop
 
  end if
  SmallClassRs.Close
  Set SmallClassRs=Nothing
  %>
 


当我选择第一个下拉框时触发onChange事件,根据选择的不同在第二个下拉列表中显示不同的内容。两个都是从数据库中读取,也就是第二个下拉列表的内容是根据第一个选择不同而变化!!急!谢谢了

6 个解决方案

#1


ajax.

#2


懂AJAX用AJAX;不懂AJAX用表单提交刷新网页
<%

  BigClassID=request.form("BigClassName")
  if BigClassID="" then BigClassID=0

  SmallClassID=request.form("SmallClassName")
  if SmallClassID="" then SmallClassID=0

  Dim rs,sql
  Set rs=Server.CreateObject("Adodb.RecordSet")

%>


  0">请选择一级分类 
  <%  
  sql="Select BigID,BigClassName From Hhf_PrBigClass"
  rs.Open sql,Conn,1,1
  with response
    Do while Not rs.Eof      
      if rs(0)&""-BigclassID=0 then sel= " selected"  else sel=""
      .write "" & rs(1)&"" & " "
      rs.movenext
    Loop
  end with
  rs.Close  
  %>

           

  0">请选择二级分类 
  <%
  sql="Select BigID,BigClassName From Hhf_PrSmallClass WHERE [你的一级分类ID字段]="&BigClassID
  rs.Open sql,Conn,1,1
  with response
    Do while Not rs.Eof      
      if rs(0)&""-SmallClassID=0 then sel= " selected"  else sel=""
      .write "" & rs(1)&"" & " "
      rs.movenext
    Loop
  end with
  rs.close
  %>


顺便建议一下,你的代码太不规范,以后要注意改进。一个记录集就搞定的别声明那么多的记录集,什么bigRs,SmallRs之类的......

#3


谢谢二楼的建议和方法,我会改进!
但我不想用表单来提交,提交一次的话页面就刷新了,我想用AjAX。可能AjAx对我来说还有点难度,希望大家帮帮我,就算学个思路也行,最好有代码可以参考!谢谢了

#4


唉~~   这类问题论坛里面见过好几回了。

提问者花点心思搜一下多快啊。

#5


引用 3 楼 hehuafeng1314 的回复:
谢谢二楼的建议和方法,我会改进!
但我不想用表单来提交,提交一次的话页面就刷新了,我想用AjAX。可能AjAx对我来说还有点难度,希望大家帮帮我,就算学个思路也行,最好有代码可以参考!谢谢了

别把AJAX看的过于神秘,你这个需求其实就是用XMLHTTP向一个后台页面请求数据,然后返回给前台的JS;JS得到数据后解析一下,动态填充2级分类SELECT的OPTION而已。

你可以:
1、把楼上的2级分类查库代码分离出来,保存为一个后台ASP文件,例如,ajaxInfo.asp:

<%
  set rs=.......................
  sql="Select BigID,BigClassName From Hhf_PrSmallClass WHERE [你的一级分类ID字段]="&BigClassID
  rs.Open sql,Conn,1,1

  if rs.eof then
    response.write("NODATA")
  else
    '将ID和NAME读出来,形成JSON格式或其他数组或字符串
    '简单起见我以字符串举例
    dim s
    do while not rs.eog
      if s="" then 
        s=rs(0)&""&"|"&rs(1)&""
      else
        s=s&","&rs(0)&""&"|"&rs(1)&""
      end if
    loop
    '最后得到类似“1|小类1,2|小类2,3|小类3”这样的串
    if s="" then s="NODATA"
    response.write s'这里就将数据返回给前台了
  end if 
   '释放资源
   '......................
   response.end
%>

2、前台:
你在大类的SELECT里用onchange事件写代码,向后台请求小类的数据:
3、前台的JS脚本:

=============================================
简单写写原理,手误的地方一定有,你参考一下吧

#6


嗯,谢谢“理上网来”,已经解决了!

推荐阅读
author-avatar
游泳
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有