28,391
社区成员
发帖
与我相关
我的任务
分享
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>动态点击导航条突出高亮</title>
<link href="images/style.css" rel="stylesheet">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("data/#data.mdb")
conn.Open Strconn
NowID=request("NowID")
%>
<div class="wrap newNav">
<ul>
<% if NowID="" then %>
<li class="sel"><a href="index.asp">首页</a></li>
<%else%>
<li><a href="index.asp">首页</a></li>
<% end if %>
<%
i=0
MaxList=10
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select * from [table]")
if not rs.eof then
do while not rs.eof
i=i+1
%>
<%if rs("id")="NowID" then%>
<li class="sel"><a href="index.asp?NowID=<%=rs("id")%>"><%=rs("Name")%></a></li>
<%else%>
<li><a href="index.asp?NowID=<%=rs("ID")%>"><%=rs("Name")%></a></li>
<%end if%>
<%
if i>=MaxList then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</ul>
</div>