我的ASP之旅—二级联动菜单制作- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 我的ASP之旅—二级联动菜单制作

ASP: ASP实例代码：搞个长文章分页代码; 说说对象的复制; 多个函数验证同一表单; 查询某个字段没有值的所有记录的SQL语句怎么写？; ASP实例：一个简单的ASP无组件上传类; ASP实例讲解：用分页符实现长文章分页显示; ASP实例：动态网页中常用的6个ASP程序; ASP实例：词语搭配游戏的制作; ASP实例学习：随机生成文件名的函数; asp实例：测试WEB服务器; ASP实例：计数器程序详解; 预防ASP网站被黑彻底了解ASP木马; 分享：XML HTTP Request的属性和方法简介; ASP架设：给每个IIS站点建立一个用户; ASP技巧：判断远程图片是否存在; 故障解决：解决ASP脚本运行超时的方法; 再说ASP输出N行N列表格; 怎么判断一个对象是否已被释放; ASP实现网页打开任何类型文件都保存的方法; ASP技巧：利用函数InstrRev()获取当前文件名

No. « ‹ 6 7 8 9 › »

技术文章搜索

关键字

我的ASP之旅—二级联动菜单制作

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-23 浏览: 86 ::

收藏到网摘: n/a

趣味访客计数器设计两则 ASP编程--新手上路篇：ASP技术简介

这个问题其实已经蛮老了，不过作为刚学ASP3个月的我来说，还是有必要写下来强化自己的基础知识。

就拿最常用的“省市下拉列表联动”作为例子吧！

在我们制作网站会员注册信息时，一般会涉及到填写自己所在省/市，如果用input或textarea做成填写形式不太理想。所以大部分网站都会选择联动下来列表形式，做起来也不算很复杂，同时看上去也很轻松。

体做法如下：

1.设计数据库

我们选用Access数据库。首先，新建名为database1.mdb的Access数据库

在database1.mdb数据库中建立两个表分别为province、city。具体字段设计如下：

Province(省)

具体字段：id—自动编号 ProvinceName—省名 ProvinceNo—省名编号 ProvinceOrder—省排序编号

以下省名略。

设计思想：id是表的自动编号，ProvinceName和ProvinceNo是必须的，前者是用来存储省名，后者则是联系表city必不可少的字段。至于ProvinceOrder则是用来给省名排序的，控制下拉列表中省名出现的位置，可以省略。

City(城市)

具体字段：id—自动编号 CityName—市名 CityNo—市名编号 CityOrder—市排序编号 ProvinceID—所在省编号

以下市名略。

设计思想：前面四项同Province表设计思想，ProvinceID字段将Province表和City表联系起来。

2.设计样式及编码

二级联动的样式很简单，在DreamWeaver 2004里向设计页面上放置两个select下拉菜单，分别取名为Province_select、City_select，它们都在名为form1的表单里。

编码需要用到html、vbscript及javascript。首先是连接数据库，我们用常用的连接。conn.asp中代码略。

其次，用Javascript和Vbscript将Province和City表中的数据读出来并使Province_select和City_select联系起来，这一步是整个程序的关键所在。

代码如下：

以下为引用的内容：
<script language=JavaScript>
         <%
         dim sql,i,j
         '//////////////////////////读出 Province 表//////////////////////////
         set rs_Province=server.createobject("adodb.recordset")
        sql="select * from Province order by ProvinceOrder"
         rs_Province.open sql,conn,1,1
         %>

var selects=[];
selects['xxx']=new Array(new Option('请选择城市……','xxx'));

         <%
         for i=1 to rs_s.recordcount
         %>

        selects['<%=rs_Province("ProvinceNo")%>']=new Array(
       <%
        '//////////////////////////读出 City 表//////////////////////////
        set rs_City=server.createobject("adodb.recordset")
        sql="select * from City where ProvinceID="&rs_Province("id")&" order by ProvinceOrder"
        rs_City.open sql,conn,1,1
        if rs_City.recordcount>0 then
           for j=1 to rs_City.recordcount
              if j=rs_City.recordcount then
        %>

new Option('<%=trim(rs_City("CityName"))%>','<%=trim(rs_City("CityNo"))%>'));

<%else%>

new Option('<%=trim(rs_City("Cityname"))%>','<%=trim(rs_City("CityNo"))%>'),

        <%
        end if
        rs_City.movenext
        next
        else
        %>
        new Option('','0'));

        <%
        end if
        rs_City.close
        set rs_City=nothing
      rs_Province.movenext
        next
        rs_Province.close
        set rs_Province=nothing
       %>

function chsel(){
         with (document.form1){
           if(province_select.value) {
                city_select.options.length=0;
                for(var i=0;i<selects[province_select.value].length;i++){
                     city_select.add(selects[province_select.value][i]);
    }
   }
  }
}

</script>

以下为引用的内容：
最后，结合html，Javascript和Vbscript实现联动效果。代码如下：

<select name="Province_select" onChange=chsel()>
        <option value="xxx" selected>请选择省份……</option>
         <%
          dim tmpid '定义一个临时变量用来记住省id
          tmpid=0

          set rs_Province=server.CreateObject("ADODB.recordset")
          sql="select * from Province order by ProvinceOrder"
          rs_Province.open sql,conn,1,1
          while not rs_Province.eof
          tmpid=rs_Province("id")
          %>
            <option value="<%=rs_Province("ProvinceNo")%>" ><%=trim(rs_Province("ProvinceName"))%></option>
         <%
          rs_Province.movenext
          wend
          rs_Province.close
          set rs_Province=nothing
         %>
         </select>

<select name="City_select">
         <%
         set rs_City=server.createobject("adodb.recordset")
         sql="select * from City where ProvinceID="&tmpid&" order by CityOrder"
         rs_City.open sql,conn,1,1
         while not rs_City.eof
         %>
          <option value="<%=rs_City("CityNo")%>"><%=trim(rs_City("CityName"))%></option>
         <%
         rs_City.movenext
         wend
         rs_City.close
         set rs_City=nothing
        %>
        </select>

至此，一个省市二级联动菜单程序便写好了。虽然代码不多，但反映的技术还是比较全面的。希望以后能多学点知识，写点更好的东东^_^

趣味访客计数器设计两则 ASP编程--新手上路篇：ASP技术简介

我的ASP之旅—二级联动菜单制作

评论 (0) All