谭朝贵

摘要：该文介绍在应用系统中级联菜单基于WEB信息管理系统的级联菜单技术：多次提取菜单项和一次性提取菜单项。

关键词：HTML； 菜单； 菜单项； 提取

中图分类号：G642 文献标识码：A 文章编号：1009-3044（2014）14-3522-03

1 概述

所谓级联菜单就是上一级菜单的选择决定下一级菜单的选择。如客户端用户选择地市级公司后，县市级公司的选择就只能属于该地市级公司。在开发应用系统时，服务器一次性把数据提供给客户端，也可多次提供给客户端。

在C++和JAVA等语言中有菜单命令，实现菜单很容易，但在HTML中没有提供专用命令，因而实现起来比较困难。

2 菜单项的提取

菜单项有固定和动态之分。固定菜单易，活动菜单难。动态菜单项一般放在一个表中，需要时从表中提取。这个表至少有两个字段：菜单代码和菜单文字。在我开发的系统中有地市级公司表和县市级公司表。

3 菜单的实现

在HTML中菜单是用select语句和option语句来实现的。

3.1 菜单项多次提取的实现

每次只提取某一级的菜单项。当然下次提取的菜单要包含前面提取的菜单。例如在页面中首先显示地市级公司菜单，县市级菜单为空；选择地市级公司后提交网页，这时网页包含地市级公司菜单和县市级公司菜单。下面代码是用ASP实现二级菜单的一段完整的HTML代码。

<% ‘文件名：index.asp

Dim connstr

connstr=" Provider=Microsoft.Jet.OLEDB.4.0； Data Source=" & Server.MapPath（"S_D_Ter.mdb" ）

set conn=Server.CreateObject（"ADODB.Connection" ）

conn.Open connstr%>

<%tmpid=request（"tmpid"）set rs_Province=server.CreateObject（"ADODB.recordset" ）sql="select * from Province_Code order by P_Code"rs_Province.open sql，conn，1，1for i=1 to rs_Province.recordcount%> ‘生成地市级公司菜单项" <%if tmpid=rs_Province（"P_Code"） then %> selected <%end if%>><%=trim（rs_Province（"P_Name"））%> <%rs_Province.movenextnextrs_Province.closeset rs_Province=nothing%>

…请选择县市级公司…<%set rs_City=server.createobject（"adodb.recordset"）sql="select * from Region_Code where P_Code='" & request（"tmpid"）& "' order by R_Code"rs_City.open sql，conn，1，1while not rs_City.eof%> ‘生成县市级公司菜单项 " > <%=trim（rs_City（"R_Name"））%> <%rs_City.movenextwendrs_City.closeset rs_City=nothing%> endprint

3.2 菜单项一次性提取的实现

一次性把所有菜单项都提交给客户端，其难点是如何组织菜单。下……