谁能帮我的asp页面数据显示实现分页啊!

来源:百度知道 编辑:UC知道 时间:2024/06/24 16:21:25
谢谢大家了!
还有一个,能帮我页面分页吗?就是让它每10个数据分一页.!
能帮我改下吗?我有分一定加分的!
代码是:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<ca

<table>
<tr>
<%
eachpage=10 '每页显示10条记录
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_pl where lid<>0 order by tm asc"
rs.open rsppl,conn,1,3
rs.pagesize=eachpage
endpage=rs.pagecount 'endpage为最后一页
if Isnumberic(trim(request("page"))) '判断是否为数字型
page=cint(request("page"))
if page>endpage then
page=endpage
elseif page<=0 then
page=1
end if
else
page=1
end if
if not rs.eof then
rs.Absolutepage=page
i=1 '记录页数
for m=1 to endpage
%>
<td>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td ><a href="XXX.asp"><%=rs("txt")%></a></td></tr>
<tr><td><%=rs("AA")%></td>
<td>