ASP网页编程之asp模块化分页

ASP脚本是采用明文（plaintext）方式来编写的。分页模块化分页

1.查询语句块

<%
获得以后文件名
temp=Split(request.ServerVariables("URL"),"/")
fy=temp(UBound(temp))
setrs=server.createobject("adodb.recordset")
ifnotisempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
endif
sql="select查询语句"
rs.opensql,conn,1,1
rs.pagesize=10分页纪录数
ifpagecount>rs.pagecountorpagecount<=0then
pagecount=1
endif
ifrs.eofandrs.bofthen%>

<divalign="center"class="001"><br>
对不起，没有切合搜刮前提的纪录！<br>
</div>

2.显现纪录块

<%
else
rs.AbsolutePage=pagecount
dowhilenotrs.eof%>

显现的纪录

<%i=i+2
rs.movenext
ifi>=rs.PageSizethenexitdo
loop
%>

3.
分页效果
<tablewidth="778"border="0"align="center"cellpadding="0"cellspacing="0">
<tralign="center">
<%ifrs.pagecount=1then%>
<tdheight="35"colspan="4"class=001><fontcolor="#000000">共有[<fontcolor="#ff0000"><%=rs.recordcount%></font>]条信息以后显现第<fontcolor="red">1～<%=rs.recordcount%></font>条</font></td>
</tr>
<tr>
<%else%>
<tdwidth="19%"height="35"align="center"valign="middle"class=001><fontcolor="#000000">
<%page_start=(pagecount-1)*rs.pagesize
ifpagecount=1thenpage_start=1
page_end=rs.pagesize*pagecount
ifpagecount*rs.pagesize=>rs.recordcountthenpage_end=rs.recordcountendif%>
共有[<fontcolor="#ff0000"><%=rs.recordcount%></font>]信息</font></td>
<tdwidth="58%"height="30"align="center"class="fy"><fontcolor="#000000">
<%
ifpagecount>5andpagecount<rs.PageCount-5andrs.pagecount>10then
qizu=pagecount-4
min=pagecount+5
response.write"<ahref="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"><fontcolor=0000BE>首页</font></a>"
response.write"<ahref="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"><fontcolor=0000BE>上一页</font></a>"
foripage=qizutomin
ifipagepagecountthen
response.write"<ahref="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><fontcolor=0000BE>"+cstr(ipage)+"</font></a>"
else
response.write"<fontcolor=#FF0000>"&ipage&"</font>"
endif
next
response.write"<ahref="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"><fontcolor=0000BE>下一页</font></a>"
response.write"<ahref="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"><fontcolor=0000BE>尾页&lt</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

不能只是将它停留在纸上谈兵的程度上。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。