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("变量名") 不能只是将它停留在纸上谈兵的程度上。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]