做出来了 呵呵
<%
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
%>