% db.CursorLocation = 3 Sql = "select * from notice " sql = sql & " ORDER BY n_index DESC" set Rs = db.Execute(sql) dim GotoPage ,BlockPage,RecordCount, i RecordCount = RS.RecordCount GotoPage = request("GotoPage") if GotoPage= "" then GotoPage = 1 else GotoPage = GotoPage end if RS.PageSize=10 if RecordCount > 0 then RS.AbsolutePage=GotoPage end if BlockPage = int((GotoPage - 1) / 10) * 10 + 1 i = 0 %>
|
||||||||||||||||||||||||||||||||||||||||