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=0
end if
ModelID=request.QueryString("ModelID")
if ModelID="" or isnumeric(ModelID)=false then
ModelID=0
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,0,1
????????????? 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,0,1
???????????????? 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

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