：：自己写的一个超简单的ASP分页代码：：

最新推荐文章于 2017-08-04 11:02:32 发布

OenAuth.Core

最新推荐文章于 2017-08-04 11:02:32 发布

阅读量1.7k

点赞数

文章标签： asp vbscript html user table 文档

本文链接：https://blog.csdn.net/anglecloudy/article/details/1598807

版权

< %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%set conn=server.CreateObject("adodb.connection")
conn.open strConn

set rs=server.CreateObject("adodb.Recordset")
rs.open "select * from user_info",conn,1,3

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%if rs.recordcount>0 then
rs.pagesize=5
num=rs.recordcount
pagenum=rs.pagecount
page=Cint(request("page"))
if page<=0 then page=1 end if
rs.absolutepage=page

if page<>pagenum then
lablenum=rs.pagesize
else lablenum=num-(page-1)*rs.pagesize
end if%>
<table width="200">
<%for i=1 to lablenum%>
<tr>
<td><%=rs("user_name")%></td>
<td><%=rs("user_password")%></td>
</tr>
<%rs.movenext
next%>
</table>
<br>
共有<%=num%>个记录|
<a href="?page=1">首页</a>|
<%if page>1 then%><a href="?page=<%=page-1%>">上一页</a>|<%end if%>
<%if page<pagenum then%><a href="?page=<%=page+1%>">下一页</a>|<%end if%>
<a href="?page=<%=pagenum%>">尾页</a>
|第<%=page%>页|
共<%=pagenum%>页|
<%else%>
 
<%end if%>
</body>
</html>

OenAuth.Core

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
：：自己写的一个超简单的ASP分页代码：：

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> conn.open strConn set rs=server.CreateObject("adodb.Recordset") rs.open "select * from user_info",conn,1,3 %>http://www.w3.org/TR/html4/loose.dtd">无标题文档0 t
复制链接

扫一扫