<% if search_q<>"" then set rs=server.createobject("adodb.recordset") rs.open(s_sql),cn,1,1 %> <% if err.number<>0 then '錯誤處理 response.write "數據庫操作失?。? & err.description err.clear else if not (rs.eof and rs.bof) then '檢測記錄集是否為空 r=cint(rs.RecordCount) '記錄總數 rowcount = 10 '設置每一頁的數據記錄數，可根據實際自定義 rs.pagesize = rowcount '分頁記錄集每頁顯示記錄數 maxpagecount=rs.pagecount '分頁頁數 page=request.querystring("page") if page="" then page=1 end if rs.absolutepage = page rcount1=0 pagestart=page-5 pageend=page+5 if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if rcount=rs.RecordCount %>