这个超连接变色怎么实现的 ［url］http://www.bpsc.com.cn/chengnuo/chengnuo01.jsp[/url]

我感觉好象用语句实现的　

点击一个变色　，其他的就变回去了呀　

做出来了　　呵呵　
<%
page=request("page")
if page<1 then page=1
if page="" then page=1
if not isnumeric(page) then page=1
page=clng(page)
set rs=server.createobject("adodb.recordset")
rs.pagesize=18
sql="select * from xinwen order by id desc"
rs.open sql,conn,3,2
ipage=0
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
do while not rs.eof and ipage<rs.pagesize
if cint(request("id"))=rs("id") then
color="#ff0000"
else
color="#000000"
end if
%>
      <tr>
        <td width="11%">
        <img border="0" src="image/dian.jpg" width="7" height="7"></td>
        <td width="83%"><a  target=_parent href="waiwen.asp?id=<%=rs("id")%>"><font color="<%=color%>">
        <%=rs("biaoti")%></font></a></td>
       </tr>
<%
ipage=ipage+1
rs.movenext
loop
%>
<tr><td height="31"  colspan="2"><div align=center><% call showpage(rs.recordcount,rs.pagesize,page,"waiwen.asp?")%></div></td></tr>
<%
rs.close
set rs=nothing
%>