Dreamweaver+ASP制作动态二级菜单

• 　　一般情况下这种情况是来对二级的目录有用，对于现在网站流传的JS好多种，但都无外乎那些令像我这样的菜鸟晕头转向的JS代码。。一下子for...一下子array的。

  　　首先得建一个表，当然，如果你的表中就已经建好目录的话，那这一步可以省略了。但有一点要提醒：这个表是我这个例子的使用依据（不知道这样说对不对）。

  　　由于我用的表是Access的，所以建表就不说了，只列出这个两个表的相应的字段名（数据库名：db.mdb）：

  　　表名：type_tree ——父类
  　　字段：type_id（自动编号） type_name（类别名称）

  　　表名：s_type   ——子类
  　　字段：id（自动编号） s_name（子类别名称） type_id（父类ID）——与父类表相对应

  　　现在是建立数据库连接：

  Dim conn, connStr

  Set conn = server.CreateObject("ADODB.Connection")connStr = "Provider = Microsoft.jet.oledb.4.0;"connStr = connStr & "Data Source = " & server.mappath("db.mdb")Conn.Open connStr

  　　以上代码应当不用再解释了吧，都是大家常用的代码。。

  　　现在进入实质性的操作:)

  　　二级关联菜单一般情况下都是以下拉菜单来做，这里我也不例外，一样用下拉菜单来做。
  只不过这里有一个地方不一样哦。

  　　就是一个用的是跳转菜单，这一点很重要，成功与否全看这个菜单有没有用对！以下是这个跳转菜单的代码！

  <select name="first" onChange="MM_jumpMenu('parent',this,0)">
  <%
  sql = "select [type_id],[type_name] from [type_tree]"
  set rs = conn.execute(sql)'取得父类的ID及名称
  if rs.eof or rs.bof then
  response.write "<option>-----</option>" '如果没有记录，就显示-----
  else
  while not(rs.eof or rs.bof) '有记录，就将父名称列出来，形成下拉。
  response.write ("<option value='?sec=" & rs(0) & "'")
  if cstr(rs(0)) = request.querystring("sec") then
      response.write "selected"
  end if
  response.write (">" & rs(1) & "</option>")
  rs.movenext
  wend
  rs.movefirst '将游标移到第一条，以备下面之用。
  end if
  %>
  </select>

  　　哦，对了，还有一段代码忘了贴出来了，这个是跳转菜音的关键啊，看我粗心的！补上补上：

  <script language="javascript" type="text/javascript">
  <!--
  function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
  }
  //-->
  </script>

  
  

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Dreamweaver+ASP制作动态二级菜单 相关文章：
• ·Dreamweaver+ASP制作动态二级菜单
• Dreamweaver+ASP制作动态二级菜单 相关软件

上一篇:dreamweaver连接数据库典型问题解决方法

下一篇:DW MX实例：多彩文字链接

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐