ASP页面-自动取回数据库中的值生成导航。

以下为自己总结的一点经验，简单的介绍一下方法，如发现有误，请帮忙指正，谢谢。

一，首先定义调用据库。

<%
dim objconn,objconnstr
set objconn=server.createobject("adodb.connection")
objconnstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../demo/database.mdb")
objconn.open objconnstr
%>

也可以直接写在一个页面中，然后进行调用 ，调用方法：<!--#include file="conn.asp"-->

二，定义样式表并调用。

调用方法：<link href="css/main.css" rel="stylesheet" type="text/css" />

三，Body页面区域添加导航。

/*定义对应字段，取回浏览器中的值，方便套用css样式表，即当前打开的项目菜单会高亮显示*/

<%dim protypeid,ModelID
protypeid=request.QueryString("protypeid")
if protypeid="" or isnumeric(protypeid)=false then
protypeid=
end if
ModelID=request.QueryString("ModelID")
if ModelID="" or isnumeric(ModelID)=false then
ModelID=
end if
%>

导航内容：

/*定义菜单DIV，控制位置*/
          <div id="content_left">
            <ul id="subnavi">

/*定义并调用产品类型数据库*/
              <%dim rsm,sqlm
              set rsm=server.CreateObject("adodb.recordset")
              sqlm="select * from robottype where isdel<>true order by sort desc,protypeid"
              rsm.open sqlm,objconn,,
              if not rsm.eof then
              do while not rsm.eof
/*判断protypeid对应的值是否与现在浏览器打开的相同，如果相同则套用样式subnavi_akt_2（只是为了高亮显示当前打开的导航项，不需要可以去掉该判断)*/
              style1="subnavi_akt"
              if cstr(rsp("protypeid"))=cstr(protypeid) then
              style2="subnavi_akt_2"
              end if
              %>
/*展示产品类别菜单*/
              <li class="<%=style1%>"><a href="proseries.asp?Mainid=<%=rsm("MainID")%>&protypeid=<%=rsm("protypeid")%>" title="<%=rsm("protypename")%>"><%=rsm("protypename")%></a>
/*展示产品类别菜单*/
                <ul>

/*定义并调用产品型号数据库*/
                 <%dim rsp,sqlp
                 set rsp=server.CreateObject("adodb.recordset")
                 sqlp="select * from robot_model where protypeid="&promain&" and isdel<>true order by sort desc,ModelId"
                 rsp.open sqlp,objconn,,
                 if not rsp.eof then
                 do while not rsp.eof
/*判断ModelID（高亮显示当前打开的导航项，不需要可以去掉该判断)*/
                 style2="subnavi_normal_2"
                 if cstr(rsp("ModelID"))=cstr(ModelID) then
                 style2="subnavi_akt_2"
                 end if
                 %>

/*展示产品菜单导航*/
                 <li class="<%=style2%>"><a href="promodel.asp?protypeid=<%=rsm("protypeid")%>&ModelID=<%=rsp("ModelId")%>" title="<%=rsp("ModelName")%>"><%=rsp("ModelName")%></a>
/*展示产品菜单导航*/
/*进行产品型号的循环，即自动列出对应品牌下的产品型号*/
                 <%rsp.movenext
                 loop
                 rsp.close()
                 set rsp=nothing
                 end if%>
/*产品型号循环结束*/
               </ul>
              </li>
/*进行产品类别的循环，即自动列出对应品牌下的产品型号*/
              <%rsm.movenext
              loop
              rsm.close()
              set rsm=nothing
              end if
              %>
/*产品类别循环结束*/
            </ul>
          </div>

-完-

实现的效果如下：

By:Colin

转载请注明原文地址及作者，谢谢合作。