<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!-- #include file="conn.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Student"
rs.open sql,conn,1,1
rs.pagesize=5
if request("page")<>"" then
page = cint(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
else
page=1
end if
rs.absolutepage=page
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>無標題文檔</title>
</head>
<body>
<form name="form1" method="post" action="">
<table width="418" border="1">
<tr>
<td>ID</td>
<td>姓名</td>
<td>性別</td>
<td>年齡</td>
<td>操作</td>
</tr>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<tr>
<td><%=rs("Id")%></td>
<td><%=rs("UserName")%></td>
<td><%=rs("Age")%></td>
<td><%=rs("Sex")%></td>
<td>
<a></a>
<a href="http://www.jscss8.com/baomingDelete.asp?id=<%=rs("Id")%>&page=<%=page%>" onClick="return confirm('確定刪除嗎?')">刪除</a>
</td>
</tr>
<%
rs.movenext()
next
%>
<tr>
<td colspan="5">
<p align="center">
<a href="http://www.jscss8.com/baomingList.asp?page=1">首頁</a>
<a href="http://www.jscss8.com/baomingList.asp?page=<%=page-1%>">前一頁</a>
<a href="http://www.jscss8.com/baomingList.asp?page=<%=page+1%>">後一頁</a>
<a href="http://www.jscss8.com/baomingList.asp?page=<%=rs.pagecount%>">末頁</a>
</p>
<p align="center">現在是第<%=page%>頁一共有<%=rs.pagecount%>頁</p>
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close()
%>
</body>
</html>