求能用的 asp内容翻页代码

本人新手谢谢要使用简单的那种

2025-01-08 12:10:54

推荐回答（2个）

回答1：

<%
dim ThisURL,ThisPage '定义变量
ThisURL="http://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("URL") '取得当前页URL

if not isempty(request("page")) then '如果传递过来的 page 值为空值则
thispage = request("page") 'thispage 的值就是page的值
else '否则
thispage = 1 'thispage 的值为 1
end if '退出

set rs=server.createobject("adodb.recordset")
sqlcmd="select * from news order by id"
rs.open sqlcmd,conn,3,2,1 ' 打开news表

if rs.eof then '如果 news表没有记录则
response.write ("没有添加内容") '输出"没有添加内容"
end if '退出

rs.pagesize = 2 '由于数据库记录比较少，为了能看出效果，所以定义少一点。
rs.absolutepage = thispage '将thispage 转换成rs.absolutepage

%>

列表翻页示例

标题

作者

出处

发布时间

<%
for ipage=1 to rs.pagesize '循环从 1 到 rs.pagesize ,前面我们定义了rs.pagesize=2.
if rs.eof then exit for '如果表中没有记录则退出循环,否则运行下面代码
%>

<%=rs("id")%>

<%=rs("title")%>

<%=rs("writer")%>

<%=rs("from")%>

<%=rs("time")%>

<%
rs.movenext
next
%>

页次:<%=thispage%>/<%=rs.pagecount%>
<%
for i=1 to rs.pagecount
%>
[<%=i%>]
<%next%>
共<%=rs.recordcount%>条信息

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

回答2：

#home a{display:block; float:left; width:25px; height:25px; line-height:25px; text-align:center;border:1px solid #CCC;margin-right:3px; text-decoration:none; color:#000}
#home a:hover{color:#F90}
#home a.current{display:block; float:left; width:25px; height:25px; line-height:25px; text-align:center;border:1px solid #CCC;margin-right:3px; color:#F00}
#home a.current:hover{color:#F90}
#home a.link1{display:block; float:left; width:55px}

<%
DIM page
page=request("page_no")
if page="" then page=1
%>

<<
<%if int(page_no)>1 then %>
上一页
<%else%>
上一页
<%end if%>
<%pageset page,20,"house_info.asp?action="&action&""%> 下一页 >>
<%
function pageset(cpage,tpage,link)
if cpage<10 then
startpage=1

if tpage<10 then
tpage=tpage
else
endpage=10
end if

else
startpage=cpage-4
endpage=cpage+5

if endpage>tpage then
endpage=tpage
startpage=endpage-10
end if

end if

for i=startpage to endpage
if i=clng(cpage) then
response.write ""&i&""
else
response.write ""&i&" "
end if

next
end function
%>

这个是一个高手给我代码。直接调用就OK，很好用，现在给你分享一下。