% dim i,intPage,page,pre,last,filepath set rs = server.CreateObject("adodb.recordset") sql="select * from VIO_SURVEIL_PART_7 order by xh desc" rs.PageSize = 20 //(HacKpp:这里设定每页显示的记录数 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 //(HacKpp:'这里执行你查询SQL并获得结果记录集 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if %>
|
|