ASP网页编程之分页函数

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了分页|函数函数以下：
<%
privatefunctionfenye(rs,pagesize,args)
Dimintcur
Dimintpagesize
Dimtotal
Diminttotal

args=split(args,",")
ifRequest.querystring("page")=""then
intcur=1
page="first"
else
selectcaserequest("page")
case"first"
intcur=1
case"previous"
intcur=cint(request("curpage"))
intcur=intcur-1
case"next"
intcur=cint(request("curpage"))
intcur=intcur+1
case"last"
intcur=cint(request("lastpage"))
caseelse
intcur=request("page")
endselect
endif
%>
<tablewidth="100%"border="0"cellpadding="0"cellspacing="0">
<tr>
<tdcolspan="2"height="58">
<%
ifrs.eofthen
response.write"没有栏目：（"
else
intpagesize=pagesize
rs.pagesize=intpagesize
ifnotrs.eofthen
rs.AbsolutePage=intcur
endif
total=rs.recordcount
inttotal=rs.pagecount
Dimi
i=0
%>
<tableborder=1align=center>

<tr>
<%
Dimn
n=0
dowhilen<=UBound(args)%>
<th>
<%response.writeargs(n)%>
</th>
<%
n=n+1
loop
%>
</tr>
<%
dowhileNOTrs.EOFandi<intpagesize%>
<tr>
<%
Diml
l=0
dowhilel<=UBound(args)
%>
<td>
<%=rs(args(l))%>
</td>
<%
l=l+1
loop
%>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<%
endif%>
</td>
</tr>
</table>
<divalign="center"><br>
<%=intcur%>/<%=inttotal%>
<%ifintcur>1then%>
<ahref="index.asp?page=previous&curpage=<%=intcur%>">上一页</a>
<%else%>
上一页
<%endif
intcur=cint(intcur)
inttotal=cint(inttotal)%>
<%ifintcur<inttotalthen%>
<ahref="index.asp?page=next&curpage=<%=intcur%>">下一页</a>
<%else%>
下一页
<%endif%>
</div>
<%
rs.close
setrs=nothing
endfunction
%>





测试页面以下：
<!--#includefile="fenye.inc"-->
<%
dimconn
dimconnstr
dimrst
onerrorresumenext
connstr="DBQ="+server.mappath("Nwind.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
setconn=server.createobject("ADODB.CONNECTION")
conn.openconnstr
setrst=server.createobject("adodb.recordset")
rst.open"select*fromorders",conn,1,1
callfenye(rst,7,"OrderID,CustomerID,ShipVia")
rst.close
setrst=nothing
conn.close
setconn=nothing
%>

申明：
利用时在asp页面顶部到场
<!--#includefile="fenye.inc">

在必要分页的中央挪用函数：
如：callfenye(rst,7,"OrderID,CustomerID,ShipVia")

函数原型：
variantfenye(recordsetrs,integerpagesize,Stringargs)

参数申明以下：
rs:传进的recordset
n:请求每页显现的纪录数
columns:请求显现的数据库中的字段


做如许一个分页函数是由于偶然本人写分页的时分以为不是那末便利，每一个中央都写一遍很华侈，也看到良多伴侣都在问这个成绩，以是写如许一个函数人人参考一下吧，第一次写这类器材，感到很初级，可是仍是但愿人人恭维。。。。。感谢！！！接待各类定见和倡议！特地说一下，这类ado的分页办法，我以为其实是效力很低，由于我每次只需7笔记录可是却要掏出一个上百条乃至上千条的记录集，假如一个服务器真个数据量少也就而已，假如。。。。唉。。。以是，今后会再做几个分歧道理的分页函数！

</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write