以下为自己总结的一点经验,简单的介绍一下方法,如发现有误,请帮忙指正,谢谢。
一,首先定义调用据库。
1 2 3 4 5 6 |
<% 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”–>
二,定义样式表并调用。
调用方法:
1 |
<link href="css/main.css" rel="stylesheet" type="text/css" /> |
三,Body页面区域添加导航。
1 2 3 4 5 6 7 8 9 10 11 |
/*定义对应字段,取回浏览器中的值,方便套用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 %> |
导航内容:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
/*定义菜单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> |
-完-
实现的效果如下:
转载请注明原文地址及作者,谢谢合作。