UC知道asp分页，由单页显示100个图片变为分页显示，每页最多12个。怎么改？
来源：百度知道 编辑：UC知道 时间：2024/07/04 07:18:04
<table width="724" height="137" border="0" cellpadding="15" cellspacing="0">
<tr>
<td height="137" class="lineheight22">
<%
sql = "SELECT minipic,ck,name,id FROM desktop ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='3' class='x'><tr><td>相册更新情况:截止到"&now()&"共有 "&rs.RecordCount&" 个文件</td></tr></table>"
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
top=1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
do while no
<tr>
<td height="137" class="lineheight22">
<%
sql = "SELECT minipic,ck,name,id FROM desktop ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='3' class='x'><tr><td>相册更新情况:截止到"&now()&"共有 "&rs.RecordCount&" 个文件</td></tr></table>"
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
top=1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
do while no
我给你改，在线联系
rs.OPEN sql,Conn,1,1
的下面添加以下信息
rs.pagesize=5 '一页显示多少的记录
rs.absolutepage=curpage '当天页
z=rs.recordcount '总记录
y=rs.pagesize
G=z/y '共多少页
需要分页显示。重新变成。花费不少时间。
我们这边提供编程服务，如需可百度HI我。
太繁琐，有问题HI