<% set conn=server.createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("ly/guestbook.mdb") set rs=server.createobject("adodb.recordset") sql="select top 20 * from book where shenhe=1 order by istop,id desc" rs.open sql,conn,1,1 %>
<% i=0 Do While Not rs.EOF if i mod 2=0 then c="p1" c2="" else c="p2" c2="bgcolor=F7F7F7" end if %> <% i=i+1 rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>
> title="<%=rs("title")%>" target="_blank"><%=titleb(rs("title"),32)%> >Òѽâ´ð