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

以下是新闻栏目全部显示的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

效果需如下图：

2 个解决方案

#1

判断一下地址栏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

#2

网站导航栏目焦点设置