asp分页（自己整理的2个分页程序）

2020-06-20 13:10:52

字体：大中小

来源：转载

供稿：网友

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>asp分页程序</title>
<style type="text/css">

</style></head>

<body>
<p>
<table width="186" height="39" border="1" cellpadding="0" cellspacing="0">
<tr>
  <td>姓名</td>
<td>密码</td>
</tr>
  <%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("zheng.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from user"

rs.open sql,conn,1,2
rs.pagesize=6 '设置页面显示得页数
   if request("page")<>"" then
     epage=cint(request("page"))
      if epage<1 then epage=1
      if epage>rs.pagecount then epage=rs.pagecount
   else
   epage=1
   end if
   rs.absolutepage=epage
   for i=0 to rs.pagesize-1
   if rs.bof or rs.eof then exit for
%><tr>
  <td><%=rs("name")%></td>
  <td><%=rs("pass")%></td>
</tr>

<%
rs.movenext
next
%>
</table>
<div align="left"><span class="STYLE1">
<form method="get" onsubmit=""document.location ="c.asp?Page='+ this.page.value;return false;'">
  <%if epage=1 then response.Write("首页")else response.Write("<a href='c.asp?page=1'>"&"首页"&"</a>")%>

  <%if epage=1 then response.write("上一页")else response.write"<a href=c.asp?page="&epage-1&">上一页</a>"%>

  <%if epage = rs.pagecount then response.write("下一页")else response.write"<a href=c.asp?page="&epage+1&">下一页</a>"%>

  <%if epage = rs.pagecount then response.write("末页")else response.write"<a href=c.asp?page="&rs.pagecount&">末页</a>"%>
    现在是第<font color="red"><%=epage%></font>页一共有<font color="red"><%=rs.pagecount%></font>页

上一篇：关于Asp代码与页面的分离模板技术第1/3页

下一篇：利用MSXML2.XmlHttp和Adodb.Stream采集图片

学习交流

robots.txt详细介绍

robots.txt详细介绍...

热门图片

猜你喜欢的新闻

猜你喜欢的关注