'自制小函数
function list_on(pname,str)
if pname=str then
response.Write "<li class='on_bg'>"
else
response.Write "<li>"
end if
end function

用法：

class='on_bg'  这个CSS定义的on_bg 意思就是当前状态。如果你这都不会，那我就无言了


在页面顶部定义一个
pname
<%
pname="about1"

%>
这样的话，你用asp读出来以后就可以按照你说的那样显示了
<%
set aclass=server.CreateObject("adodb.recordset")
aclass.open "select * from case_fl order by px_id asc",conn,1,1
if aclass.eof and aclass.bof then
response.Write("&nbsp;暂无记录 !")
else
while not aclass.eof%>
<%call list_on(pname,"about"&aclass("id")&"")%><a href="/about/?id=<%=Caseclas("id")%> title="<%=aclass("title")%>"><%=aclass("title")%></a></li>
<%
aclass.movenext
wend
end if
aclass.close
set aclass=nothing
%>