ASP教程之用ASP做一个分页程序

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。程序|分页|分页用ASP做一个分页程序
wodeail・CPCW

　　你是不是为了你的站点文章过量而重复做链接上一页、下一页这些啰嗦的事情忧愁呢？如今有了ASP，只需你的主页撑持ASP，你就能够很复杂的完成对文章的办理了，排序、链接、显现这些事情都让ASP往完成吧！这么轻松的主页保护，你是否是也想试一试呢？

请看以下完成ASP分页程序的代码：

<anguage="vbscript"

dimconn

dimconnstr

dimtotalPut

dimCurrentPage

dimTotalPages

dimi,j

dimsql

dimrs

onerrorresumenext

翻开数据库

connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"

setconn=server.createobject("ADODB.CONNECTION")

conn.openconnstr

setrs=server.createobject("adodb.recordset")

界说每页文章显现数

constMaxPerPage=18

ifnotisempty(request("page"))then

currentPage=cint(request("page"))

else

currentPage=1

endif

sql="select*fromlearningorderbyarticleiddesc"

Setrs=Server.CreateObject("ADODB.Recordset")

rs.opensql,conn,1,1

ifrs.eofandrs.bofthen

response.write"<palign=center>还没有任何文章</p>"

else

数据库中文章数totalput

totalPut=rs.recordcount

ifcurrentpage<1then

currentpage=1

endif

统计总页数currentpage

if(currentpage-1)*MaxPerPage>totalputthen

if(totalPutmodMaxPerPage)=0then

currentpage=totalPutMaxPerPage

else

currentpage=totalPutMaxPerPage+1

endif

endif

ifcurrentPage=1then

showpagetotalput,MaxPerPage,"index.asp"

showContent

showpagetotalput,MaxPerPage,"index.asp"

else

if(currentPage-1)*MaxPerPage<totalPutthen

rs.move(currentPage-1)*MaxPerPage

dimbookmark

bookmark=rs.bookmark

showpagetotalput,MaxPerPage,"index.asp"

showContent

showpagetotalput,MaxPerPage,"index.asp"

else

currentPage=1

showpagetotalput,MaxPerPage,"index.asp"

showContent

showpagetotalput,MaxPerPage,"index.asp"

endif

endif

rs.close

endif

setrs=nothing

conn.close

setconn=nothing

subshowContent

dimi

i=0

dowhilenotrs.eof

>

选择显现数据库内容

<ahref="openarticle.asp?id=<=rs("articleid")>"><=rs("title")></a>[点击：<=rs("hits")>]<br>

<

当显现纪录年夜于maxperpage时停止这页

i=i+1

ifi>=MaxPerPagethenexitdo

rs.movenext

loop

endsub

functionshowpage(totalnumber,maxperpage,filename)

求出当每页18篇文章时统共的页数

dimn

iftotalnumbermodmaxperpage=0then

n=totalnumbermaxperpage

else
&nbs</p>ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！

仓酷云

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

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

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。