收录日期:2020/11/29 22:08:02 时间:2016/08/28 00:11:47 标签:ASP
分页     <%
if not rs.eof then
zgdst = 0
do while not rs.eof
zgdst = zgdst + 1
rs.movenext
loop

rs.pagesize = 9
page = request.querystring("page")
if page = "" then page = 1
if isnumeric(page) then
if clng(page) <1 then page = 1
if clng(page) > rs.pagecount then page = rs.pagecount
else
page = 1
    end if
rs.absolutepage = page

for i = 1 to rs.pagesize
 if rs.eof then exit for   
 
 
%>  
        <div id="zuop1">
         <dl>
          <dt><a href="zpzs.asp?zs_shouid=<%=rs("zp_id")%>"><img src="../<%=rs("zp_tp")%>" width="220" height="225" /></a></dt>
          <dd>客户: <%=rs("zp_qy")%></dd>
          <dd>类型: <%=rs("zp_lx")%></dd>
          <dd>时间: <%=Year(rs("zp_sj"))%></dd>
         </dl>
        </div>
  <%
rs.movenext
next
%>
<div id="page" style=" margin-top:10px; margin-bottom:30px;">
<ul>
                    <li> 共<%=zgdst%>条 | 第<%=page%>页/共<%=rs.pagecount%>页</li>
                <li><a href="qbxs.asp?page=<%=page-1%>&q_shouid=<%=shouid%>">上一页</a></li>
 <%  if page = 1 then
     if rs.pagecount < 8 then
 aikla = rs.pagecount
 else
 aikla = 8
  end if
      for i = 1 to aikla
  %>
      <li class="fku"><a href="qbxs.asp?page=<%=i%>&q_shouid=<%=shouid%>"><%
   if i <> 8 then
    
 response.Write i

   else
    response.Write i&"</li></a><li>..."
   end if%></li>
                      <%next
 elseif page <> 1 and page + 7 < rs.pagecount then
for i = page to page + 7
  zhds = page + 7
%>
                <li class="fku"><a href="qbxs.asp?page=<%=i%>&q_shouid=<%=shouid%>"><%
 if i <> zhds then
  response.Write i
  elseif zhds = rs.pagecount then
  response.Write i
  else
  response.Write i& "</li></a><li>..."
   end if%></li>
                <%next
else
if rs.pagecount < 9 then
 aismdx = 1
 else
 aismdx = rs.pagecount - 7
 end if
for i = aismdx to  rs.pagecount
%>
                <li class="fku"><a href="qbxs.asp?page=<%=i%>&q_shouid=<%=shouid%>"><%=i%> </a></li>
                <%
next
  end if
%>
                <li>
                <a href="qbxs.asp?page=<%
  if page <> rs.pagecount then
response.Write (page + 1)
  end if
%>&q_shouid=<%=shouid%>">下一页</a></li>
                
                <!--<form name="tzym" action="qbxs.asp" method="post">
                <li><input name="tzy" type="text" style="width:50px;" /><input name="tz_send" type="submit" value="跳转" /></li></form> -->
</ul>
</div>
<%
else%>
          <strong style="color:#FF0000; width:100%; text-align:center;">暂时没有商品</strong>

<%
end if
%>
因为我刚毕业做的毕业设计没接触到高层代码所以按自己的思路做了一个简单的分页、但是效果不大好而且代码太多了、谁来改改啊


<效果图:



关键是他点到哪页哪页都不变色、
<%
strContent=content
ArticleID=""
q=1
for each i in Request.QueryString
if i<>"ArticlePage" then
if q=1 then
ArticleID=ArticleID&i&"="&request(i)
else
ArticleID=ArticleID&"&"&i&"="&request(i)
end if
q=q+1
End if
next
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if Instr(strContent,"{nextpage}")<=0 then
response.write (""&replace(strContent,keywords,"<strong>&nbsp;&nbsp;<a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>&nbsp;&nbsp;</strong>")&"")
response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
arrContent=split(""&replace(strContent,keywords,"<font color=green><strong>&nbsp;&nbsp;<a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>&nbsp;&nbsp;</strong></font>")&"","{nextpage}")
pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
if CurrentPage<1 then CurrentPage=1
if CurrentPage>pages then CurrentPage=pages
response.write arrContent(CurrentPage-1)
response.write "</p><p align='center'><b>"
if CurrentPage>1 then
response.write "<a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a> "
end if
for i=1 to pages
if i=CurrentPage then
response.write "<font color='red'>[" & cstr(i) & "]</font> "
else
response.write "<a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a> "
end if
next
if CurrentPage<pages then
response.write " <a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
end if
response.write "</b></p>"
end if
%>
我一直用这个,挺好的 只要文章代码里有   {nextpage}
以{nextpage}为标记,含这个符号就自动分页。
引用 2 楼 EC_Creates 的回复:
以{nextpage}为标记,含这个符号就自动分页。
不是文本、是所有的东西、有图片
引用 1 楼 EC_Creates 的回复:
<%
strContent=content
ArticleID=""
q=1
for each i in Request.QueryString
if i<>"ArticlePage" then
if q=1 then
ArticleID=ArticleID&amp;i&amp;"="&amp;request(i)
else
ArticleID=Arti……

比我的还长、不过我又做了一个、这个完美了不用改了

是兄弟就进来帮一把!我的机器无法断电,没法关机和重起,是否跟病毒有关? 新买的刻录机,可惜不会安装:( 请对比一下PB7和PB9 使用DataGrid时,如需将某列限定显示字数,当鼠标移动到该列上会显示出全部的内容,该怎么做? 大虾请指点,看看我这个为什么错了? ftp问题 [保给100分]帮忙给一个小程序加几个小功能! 大家最需要什么样的软件?尽力为大家开发! 如何安装补丁包? 大家最需要什么样的软件?尽力为大家开发! 大家最需要什么样的软件?尽力为大家开发! 救助 求助:这个SQL语句怎么写?(同时查4个表) 开机memory test fail。。。 MM是什么意思呀?她问我XM(SM?)是什么意思—— 一个开机自动重启的恶作剧 现在买硬盘哪个性价比较高? asp.net高级编程 这本书出过几个版本? 芡粉丧尽还复来(1) 芡粉丧尽还复来(2) 这是什么意思啊,我在VC里用ODBC操作Access的数据库 芡粉丧尽还复来(3) 急!IE的主页怎么改?? 芡粉丧尽还复来(4) 一个奇怪的问题 生日了 如何自动清理文本框中的数据? 生了 ie控制问题 我生了