正文
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
转载请注明原文地址及作者,谢谢合作。