动态导航栏中怎么才能插入CLASS样式，使导航条被点击运用的时候，当前页起背景色变化？
如题。这个导航条是由后台直接控制，所以要在这个导航条中插入一个CLASS=ACTIVE做为背景样式。
导航条上有A,B,C,D,E 五个项
当点击A的时候，A的背景样式为CLASS=ACTIVE，其他的不变
当再点击B的时候，B的背景样式为CLASS=ACTIVE，而A的样式变回原无CLASS=ACTIVE的时候，其他的也不变
===============================================================================================
<%
function Daohang()
dim Daohang1,sqlDaohang1
set Daohang1=Server.CreateObject("ADODB.recordset")
sqlDaohang1="select * from about order by px_id asc"
Daohang1.open sqlDaohang1,conn,1,1
if not Daohang1.bof then
do while not Daohang1.eof
if 这里怎么写（使下面的这个这个class='active'才能正常起作用） then
response.write"<li><ahref='"&Daohang1("url")&"' class='active' >"&Daohang1("title")&"</a></li>"
else
response.write"<li><a href='"&Daohang1("url")&"'>"&Daohang1("title")&"</a></li>"
end if
Daohang1.movenext
loop
else
response.write"<li>暂无栏目内容</li>"
end if
Daohang1.close
end function
%>
