% kind=Request("kind") page=Request("page") if page="" then page="1" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConn sql="select * from article where kind=6 order by pubtime desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn,1,1 rs.PageSize=20 if rs.eof=false or rs.bof=false then rs.AbsolutePage=cint(page) end if %>
|
|||||||