给当前栏目添加高亮显示样式，大神帮忙

[qq_41843785]

以下是新闻栏目全部显示的asp代码，请高手帮忙改下，给当前选中的栏目显示特殊高亮样式，谢谢。

'读取子分类,若没有子分类，读取上级的所有分类
Dim TTY,TTNN,Classlist
Set Rs=Conn.Execute("select Tname,Ename,Tj from fy_Class where tn="&tid&" order by id")
if NOT rs.EOF then
TTY="NO"
Tname=all_type_name
do while NOT rs.EOF
TTNN=split(rs("tname"),"|")(rs("tj")-1)
Classlist=Classlist&"<li><a href="""&replace(rs("Ename"),Ename,"")&""">"&TTNN&"</a></li>"
rs.MoveNext
loop
end if
rs.close

if TTY_id<>"" and TTY<>"NO" then
Set Rs=Conn.Execute("select Tname,Ename,Tj from fy_Class where tn="&TTY_id&" order by id")
if NOT rs.EOF then
Tname=TTY_name
do while NOT rs.EOF
TTNN=split(rs("tname"),"|")(rs("tj")-1)
Classlist=Classlist&"<li><a href="""&replace(rs("Ename"),ClassName,"")&""">"&TTNN&"</a></li>"
rs.MoveNext
loop
end if
rs.close
end if

效果需如下图：

[浪子回头8]

判断一下地址栏ID和栏目ID即可，以下可供参考： if left(D_CataID,9)=rs("C_RootID") then response.Write "<a href="&Url&"?D_CataID="&rs("C_RootID")&" class=hover>"&left(rs("C_Title"),15)&"</a>" else response.Write "<a href="&Url&"?D_CataID="&rs("C_RootID")&">"&left(rs("C_Title"),15)&"</a>" end if

[Go 旅城通票]

网站导航栏目焦点设置

[学习a123456]

楼上的方法就是没问题的。但这样代码有点长，一般在前面判断好，把这个“是否当前”整合到一句里面去。