当前位置: 首页 > 图文教程 > 网络编程 > ASP > DW+ASP 玩转动态二级菜单

ASP
asp分页（自己整理的2个分页程序）
ASP常用的系统配置函数
雨哲防采集策略之列表篇
雨哲浅谈关于防采集而不影响收录内容篇
asp数据库连接函数
ajax XMLHTTP Post Form时的表单乱码综合解决
ASP注入详细命令40条
用ASP实现MSSQL用户密码破解
ASP创建对象的两种方法比较
ASP字符串转换为整形、双精度型、布尔
ASP计算str2在str1中出现的次数
asp采集抓取网上房产信息的代码
ASP注册登陆实例代码
ASP中使用FileSystemObject时提高性能的方法
分享一个好东东,动态Include文件 (Dynamic File Includes)
解决 JScript 中使用日期类型数据时出现类型错误的问题
在ASP里面创建GUID
在JScript中使用缓存技术的实际代码
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
海阳2006+功能中的潜水王

No. « 74 75 76 77 »

技术文章搜索

关键字

DW+ASP 玩转动态二级菜单

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 116 ::
收藏到网摘: n/a

一般情况下这种情况是来对二级的目录有用，对于现在网站流传的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>


以上代码贴到<head>里，是DW生成，我看不太懂什么意思，所以不注解了:D

现在是菜单的二级部分，这里不是用跳转菜单，只是一个列表罢了，所以代码跟上面的跳转菜单也就差一个onchange这个函数。
以下是这个菜单的代码，由于循环跟判断相对上面来说复杂一些，大伙要看清楚一点哦。
<select name="second">
<%if rs.eof or rs.bof then
response.write ("<option>--------</option>")
else
if request.querystring("sec") = "" then   \'获取跳转之后的sec值
   temp=rs(0)   如果为空，就把temp的值设为第一条记录的值
else
   temp = request.querystring("sec")   \'否则就为收到的值
end if
subsql = "select [s_name] from [s_type] where type_id=\'"&temp&"\'"
set subrs = conn.execute(subsql)   \'列出一切资料为temp的记录
if subrs.eof or subrs.bof then
  response.write ("<option>-----</option>")
  \'如果没有记录，则在这个列表中显示"-----"
else
 while not(subrs.eof or subrs.bof)\'否则就用循环列出一切符合条件的记录。
   response.write ("<option value=" & subrs(0) & ">" & subrs(0) & "</option>")
 subrs.movenext
 wend
end if
end if

\'关闭所有的记录集
subrs.close
set subrs = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>

到现在为止，已经将这个二级菜单的制过程做完了，很简单的一个看把我给说的。
大家看不懂再说吧，反正我已经不知道该怎么说了。
高手们不吝赐教啊……