<% set rs=server.CreateObject("adodb.recordset") sql="select top 4 * from FNews order by id desc" rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then ''''''''''''''''''''''''' page = request("page") if page = "" then page =1 end if if page = 0 then page =1 end if page = int(page) rs.pagesize=10 '--每页显示条数 allpage=int(rs.pagecount) if page>allpage then page=allpage end if if not rs.EOF then rs.AbsolutePage=page allcount=rs.RecordCount end if ''''''''''''''''''''''''''''' j=1 do while j<=rs.pagesize and not rs.eof if len(trim(rs("title")))>18 then subject=left(trim(rs("title")),18)&"…" else subject=rs("title") end if response.write("") rs.movenext j=j+1 loop end if if rs.state=1 then rs.close %>

"&subject&"