网站asp程序有分页的写法

实习编辑 2020年5月8日09:36:00网站asp程序有分页的写法已关闭评论31

【免责声明】

  1、本网站部分文章信息来源于网络转载是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如其他媒体、网站或个人从本网下载使用,必须保留本网注明的“稿件来源”,并自负版权等法律责任。如对稿件内容有疑议,请及时与我们联系。

  2、本网站致力于提供合理、准确、完整的资讯信息,但不保证信息的合理性、准确性和完整性,且不对因信息的不合理、不准确或遗漏导致的任何损失或损害承担责任。本网站所有信息仅供参考,不做交易和服务的根据, 如自行使用本网资料发生偏差,本站概不负责,亦不负任何法律责任。

  3、任何由于黑客攻击、计算机病毒侵入或发作、因政府管制而造成的暂时性关闭等影响网络正常经营的不可抗力而造成的损失,本网站均得免责。由于与本网站链接的其它网站所造成之个人资料泄露及由此而导致的任何法律争议和后果,本网站均得免责。

  4、本网站如因系统维护或升级而需暂停服务时,将事先公告。若因线路及非本公司控制范围外的硬件故障或其它不可抗力而导致暂停服务,于暂停服务期间造成的一切不便与损失,本网站不负任何责任。

  5、本网站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本网站不承担任何责任。

  6、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。

  7、本声明未涉及的问题参见国家有关法律法规,当本声明与国家法律法规冲突时,以国家法律法规为准。

  8、本网站如无意中侵犯了哪个媒体或个人的知识产权,请联系我们QQ:316865155,本网站将立即给予删除。

   <%
page=clng(request("page"))  
Set rs=Server.CreateObject("ADODB.RecordSet")

sql="select * from news where a='"&a&"'   order by pai desc"
rs.Open sql,conn,1,1


if rs.eof and rs.bof then
  response.Write("暂时没有记录")
else
%>


<%
rs.PageSize=24
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page 
for j=1 to rs.PageSize
%>

 

<%if rs("l3")<>"" then%>
<li><p><a href="<%=rs("l3")%>" target="_blank"><%=rs("title")%> </a></p><span><%=year(rs("Infotime"))%>.<%=month(rs("Infotime"))%>.<%=day(rs("Infotime"))%></span></li>
<%else%>
<li><p><a href="newsnw.asp?id=<%=rs("id")%>"><%=rs("title")%> </a></p><span><%=year(rs("Infotime"))%>.<%=month(rs("Infotime"))%>.<%=day(rs("Infotime"))%></span></li>
<%end if%>

<%
rs.movenext
if rs.eof then exit for
next
%>
</div>
<div class="fen"><form method=Post action="?a=<%=a%>&b=<%=b%>">
                          <%if Page<2 then     
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=?a="&a&"&b="&b&"&page=1>首页</a>&nbsp;"
    response.write "<a href=?a="&a&"&b="&b&"&page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=?a="&a&"&b="&b&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=?a="&a&"&b="&b&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"    
%>
                        </form>
                  
</div>
 <%
end if
rs.close
set rs=nothing
%>

 

  • 18922299980
  • 扫一扫加我微信
  • weinxin
  • 公众号:名将VR全景
  • 扫一扫在微信上关注我们
  • weinxin
实习编辑
  • 本文由 发表于 2020年5月8日09:36:00
  • 转载请务必保留本文链接:http://blog.hzzx3d.com/6487.html