分頁瀏覽3 - a0939901781 - Xuite 備份站
--<html> -- --<head> --<meta http-equiv="Content-Language" content="zh-tw"> --<meta http-equiv="Content-Type" content="text/html; charset=big5"> --<meta name="GENERATOR" content="Microsoft FrontPage 4.0"> --<meta name="ProgId" content="FrontPage.Editor.Document"> --<title>新網頁1</title> --</head> --<% '分頁瀏覽全部 (降冪排序，由大到小) --Set db = Server.CreateObject("ADODB.Connection") --db.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("1688.mdb") --Set rs = Server.CreateObject("ADODB.Recordset") --rs.Open "select * from test order by id desc",db,1,1 -- --rscount=rs.recordcount '統計總筆數 --rs.movefirst '移到資料庫第一筆 -- --lcount=3 '設定每頁顯示的筆數 --m_page=request("page") --if m_page="" then -- m_page=1 --else -- m_page=cint(m_page) --end if --point=(m_page-1)*lcount+1 --if m_page>1 then -- rs.move point-1 --end if -- --'計算共幾頁 --pagecount=int(rscount/lcount) --if rscount mod lcount >0 then -- pagecount=pagecount+1 --end if -- --%> --<body> -- --<table border="1" width="518"> -- <tr> -- <td width="81">編號</td> -- <td width="109">姓名</td> -- <td width="77">性別</td> -- <td width="223">地址</td> -- </tr> -- <% ln=point -- do while not rs.eof and ln<=(point+lcount)-1 %> -- <tr> -- <td width="81"><%=rs("id")%></td> -- <td width="109"><%=rs("name")%></td> -- <td width="77"><%=rs("sex")%></td> -- <td width="223"><%=rs("addr")%></td> -- </tr> -- <% rs.movenext -- ln=ln+1 -- loop --response.write "</table>" --%> --<br> --<table border=0> --<tr><td> --<% --response.write "(" & m_page & "/" &pagecount &")</td>" --if m_page>1 then -- response.write "<form metdod=post>" -- response.write "<input type=hidden name=pgno value=1>" -- response.write "<input type=hidden name=page value=1>" -- response.write "<td><input type=submit value=第一頁></td>" -- response.write "</form>" -- -- response.write "<form metdod=post>" -- response.write "<input type=hidden name=pgno value=1>" -- response.write "<input type=hidden name=page value="&m_page-1&">" -- response.write "<td><input type=submit value=上一頁></td>" -- response.write "</form>" --end if --if not rs.eof then -- response.write "<form metdod=post>" -- response.write "<input type=hidden name=pgno value=1>" -- response.write "<input type=hidden name=page value="&m_page+1&">" -- response.write "<td><input type=submit value=下一頁></td>" -- response.write "</form>" --end if --if m_page < pagecount then -- response.write "<form metdod=post>" -- response.write "<input type=hidden name=pgno value=1>" -- response.write "<input type=hidden name=page value="&pagecount&">" -- response.write "<td><input type=submit value=最後一頁></td>" -- response.write "</form>" --end if -- --rs.close --db.close --set db=nothing --%> --</table> -- --</body> --</html>