asp二级动态级联列表

原创 2011年01月13日 17:24:00
两个select:BigClassName,SmallClassName,两个表BigClass,SmallClass
<%
'获取SmallTable数据
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from SmallClass order by SmallClassID asc"
rs.open sql,conn,1,1
%>
  <!--将SmallClass 里的相关字段放到数组里-->
  <script language = "JavaScript">
     var onecount;
  subcat = new Array();
    <%
    dim count
    count = 0
    rs
    %>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
    <%
        count = count + 1
        rs.movenext
        loop
        rs.close
    %>
    //document.write(subcat)
  onecount=<%=count%>;
  <!--当一个select发生变化时,根据变化的locationid(selected)栏目去数组里查找,如果一样的话,就将该数组元素放到第二个select里 -->
 function changelocation(locationid)
    {
    document.myform.SmallClassName.length = 1;
    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            {
                document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
    }    
</script>

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="862" align="center" valign="top"> <b><br>
      </b>
<form method="POST" name="myform" action="ProductSave.asp?action=add" target="_self">
        <table width="650" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
          <tr align="center">
            <td class="tdbg"> <table width="100%" border="0" cellpadding="0" cellspacing="0"  style="border:1px #009999 solid">
                <tr>
                  <td class="back_southidc" height="22" colspan="3" align="right" bgcolor="#D7E1FB"><div align="center"><strong>数据库支持的二级联动asp+js代码</strong>< /div></td>
                </tr>
                <tr>
                  <td width="159" height="30" align="right" valign="bottom" bgcolor="#F7F7F7" style="border-top:1px #009999 solid">产品类别</td>
                  <td width="445" colspan="2" valign="bottom" bgcolor="#F7F7F7" style="border-top:1px #009999 solid"> <strong>
                    <%
        sql = "select * from BigClass"
        rs.open sql,conn,1,1
        if rs.eof and rs.bof then
            response.write "没有分类"
        else
        %>
                    <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
                      <option selected value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
            <%
            rs.movenext
            do while not rs.eof
            %>
                      <option value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
                      <%
                rs.movenext
            loop
        end if
        rs.close
            %>
                    </select>
                    <select name="SmallClassName">
                      <option value="" selected>请选择小类</option>
   <select name="SmallClassName" style="width:120px" >
   </select>

相关文章推荐

Ext的异步请求(二级级联动态加载下拉列表)

Ext的异步请求(二级级联动态加载下拉列表)

dwr实现select列表的动态级联

  • 2010年09月21日 08:51
  • 3.31MB
  • 下载

34.6.1 Excel数据有效性的高级应用【动态二级级联菜单/如百度输入框Ajax效果的下拉菜单/圈出无效数据】

声明:本博客分类《Excel2010》中的 标题带章节号如 34.6 的文章均为 本人阅读 Excel Home书籍作品《Excel2010应用大全》的读书笔记   这本书非常好,对Excel2...

ajax实现下拉列表级联

  • 2012年05月13日 14:50
  • 4.2MB
  • 下载

Ajax实现下拉框二级级联

AJAX实现的简单的无刷新效果,页面中有两个下拉框,当第一个下拉框改变时,提交请求到后台,查找到对应的数据,添加到第二个下拉框列表里。代码如下: //Ajax实现下拉框二级级联,...

用dom解析xml的方法实现二级菜单级联及它们中出现的浏览器兼容问题

今天做关于用解析xml的方法实现二级菜单级联的时候,出现了浏览器不统一的问题,在IE浏览器中ok,在火狐浏览器中不行,后来发现,火狐浏览器在解析xml的时候出现了空格和换行,所以做了更改,代码如下:-...

js级联下拉列表(日历控件)

  • 2008年12月18日 15:38
  • 3KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp二级动态级联列表
举报原因:
原因补充:

(最多只允许输入30个字)