asp模块化分页制作详解,asp模块化分页制作详解
【 tulaoshi.com - ASP 】
模块化分页
1.查询语句块
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)<%
取得当前文件名
temp = Split(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
sql="select 查询语句"
rs.open sql,conn,1,1
rs.pagesize=10 分页记录数
if pagecountrs.pagecount or pagecount<=0 then
pagecount=1
end if
if rs.eof and rs.bof then%
<div align="center" class="001"<br
对不起,没有符合搜索条件的记录!<br
</div
2.显示记录块
<%
else
rs.AbsolutePage=pagecount
do while not rs.eof %
显示的记录
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)<% i=i+2
rs.movenext
if i=rs.PageSize then exit do
loop
'www.knowsky.com
%
3.
分页效果
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0"
<tr align="center"
<% if rs.pagecount=1 then %
<td height="35" colspan="4" class=001<font color="#000000"共有[<font color="#ff0000"<%=rs.recordcount%</font]条信息 当前显示第 <font color="red"1~<%=rs.recordcount%</font条</font</td
</tr
<tr
<%else%
<td width="19%" height="35" align="center" valign="middle" class=001<font color="#000000"
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=rs.recordcount then page_end=rs.recordcount end if%
共有[<font color="#ff0000"<%=rs.recordcount%</font]信息</font</td
<td width="58%" height="30" align="center" class="fy"<font color="#000000"
<%
if pagecount5 and pagecount< rs.PageCount-5 and rs.pagecount10 then
qizu=pagecount-4
min=pagecount+5
response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"
<font color='0000BE'首页</font</a "
response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"
<font color='0000BE'上一页</font</a "
for ipage=qizu to min
if ipage<pagecount then
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"<font color='0000BE'"+cstr(ipage)+"</font</a "
else
response.write "<font color='#FF0000'"&ipage&"</font "
end if
&nbs
来源:http://www.tulaoshi.com/n/20160129/1507346.html
看过《asp模块化分页制作详解》的人还看了以下文章 更多>>