% set conn = GetConnection() sql = "select * from NewHK_Anal order by ENDDATE desc" set rs = server.createobject("adodb.recordset") rs.open sql,conn,3,3 '-----分頁設定 page = trim(request.form("page")) if not isnumeric(page) then page = 1 if page <= 0 then page = 1 if not rs.eof then page = cint(page) rs.pagesize = 10 '-----每頁筆數 if page > rs.pagecount then page = rs.pagecount rs.absolutepage = page end if %>
|
|||||||||||||||||||||||||||||