代码:<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
'得到连接对象
dim conn
dim connstr
on error resume next
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("/admin888/db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select top 2 * from in(select top 5 * from news where class_id=1 order by id desc) order by id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<a href="/news/<%=rs("id")%>.html" target="_blank"><%=rs("title")%></a>
<%
rs.movenext
loop
%>
如何修改