分頁瀏覽1 - 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>分頁瀏覽</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 "test",db,1,1 -- --lcount=5 '設定每頁顯示的列數 --m_page=request("page") --if m_page="" then -- m_page=1 --end if --point=(m_page-1)*lcount+1 --if m_page>1 then -- rs.move point-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"><%=ln%></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> --<% --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>1 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 --rs.close --db.close --set db=nothing --%> --</table> -- --</body> --</html>