<%@language = "vbscript"CodePage = "936"%>
<! doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<헤드>
<metahttp-equiv = "content-type"content = "text/html; charset = gb2312"/>
<title> asp p </title>
<styletype = "text/css">
<!-
.Style1 {font-size : 12px}
->
</스타일> </head>
<body>
<p>
<tableWidth = "186"height = "39"border = "1"CellPadding = "0"CellSpacing = "0">
<tr>
<td> </td>
<td> </td>
</tr>
<%
setrs = server.createobject ( "adodb.recordset")
conn = "dbq ="+server.mappath ( "zheng.mdb")+"; defaultdir =; driver = {microsoftaccessdriver (*. mdb)};"
SQL = "선택*FromUser"
Rs.Opensql, Conn, 1,2
rs.pagesize = 6 '设置页面显示得页数
ifrequest ( "page") <> ""그런 다음
epage = cint (요청 ( "page"))
ifepage <1thenepage = 1
ifepage> rs.pagecountthenepage = rs.pagecount
또 다른
epage = 1
endif
Rs.AbsolutePage = Epage
fori = 0tors.pagesize-1
ifrs.boforrs.eofthenexitfor
%> <tr>
<td> <%= rs ( "이름")%> </td>
<td> <%= rs ( "Pass")%> </td>
</tr>
<%
rs.movenext
다음
%>
</테이블>
<divalign = "left"> <spanclass = "style1">
<formmethod = "get"onsubmit = ""document.location = "c.asp? page = '+this.page.value; returnfalse;'">
<%ifepage = 1thenresponse.write ( "首页") elseresponse.write ( "<ahref = 'c.asp? page = 1'>"& "首页"& "</a>")%>
<%ifepage = 1thenresponse.write ( "上一页") elseresponse.write "<ahref = c.asp? page ="& epage-1 & "> 上一页 </a>"%>
<%ifepage = rs.pagecountthenresponse.write ( "下一页") elseresponse.write "<ahref = c.asp? page ="& epage+1 & "> 下一页 </a>"%>
<%ifepage = rs.pagecountthenresponse.write ( "末页") elseresponse.write "<ahref = c.asp? page ="& rs.pagecount & "> 末页 </a>"%>
现在是第 <fontcolor = "red"> <%= epage%> </font> 页一 页一 有 <fontcolor = "red"> <%= rs.pagecount%> </font> 页