ASP教程之一段分页程序实例代码!
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。程序|分页明天学了个ASP分页,也拿出来和人人分享吧!!<%
以下程序是我的网站中的编程手艺文章体系的部分代码,
侧重凸起分页,因而其他无用代码被扫除,您可修正后使用
本页程序的完全典范请上岸我网站http://www.lshdic.com的“手艺文章”栏目检察
onerrorresumenext避免用户随便修正网址形成毛病
ifrequest.querystring("page")=""thenpage=1:else:page=cint(request.querystring("page"))
的到网址中的页数page=?
setlink1=server.createobject("ADODB.Connection")毗连数据库
link1.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.mappath("数据库1.mdb")
setrs=server.createobject("adodb.recordset")
rs.open"select*from表1",link1,1,1
这几句界说纪录集的游标及每页存储的纪录条数和以后页设定,很主要
rs.pagesize=12
rs.AbsolutePage=page
iferr.number0then避免了用户歹意修正网址,和数据库无纪录的毛病
response.write"呈现非常毛病"
response.end
endif
%>
<basetarget=_blank><!--使内容在新窗口弹出-->
<tableborder=1>
<%
fori=0tors.pagesize-1
显现详细的数据内容了,i+(page*13-13)+1这个办理分页后显现详细的编号
ifrs.eofthenexitfor
response.write"<tr><Td>"&i+(page*13-13)+1&":<Ahref="&rs("毗连")&">&rs("作者")&"</a></td></tr>"
rs.movenext
next
%>
<tr><Tdalign=right>
<basetarget=_top><!--使分页毗连不在新窗口弹出,以下是我要侧重讲的完善分页程序的完全程序了
,您可依据必要修正-->
<%
pagelen=split(request.ServerVariables("Query_String"),"&")失掉网址?号前面的参数网址
ifUBound(pagelen)<1then假如网址是xxx.asp?page=1或xxx.asp范例的则用尺度的分页办法
ifpage>1thenresponse.write"<Ahref=a.asp?page=1>首页</a><ahref=a.asp?page="&page-1&">上页</a>":else:response.write"首页上页"
ifpage<rs.pagecountthenresponse.write"<ahref=a.asp?page="&page+1&">下页</a><ahref=a.asp?page="&rs.pagecount&">尾页</a>":else:response.write"下页尾页"
fori=1tors.pagecount
ifi=pagethenresponse.writei&"":else:response.write"<Ahref=a.asp?page="&i&">"&i&"</a>"
next
else假如网址是xxx.asp?str1=参数&page=1的范例则举行其他分页办法
ifpage>1thenresponse.write"<Ahref=a.asp?"&pagelen(0)&"&page=1>首页</a><ahref=a.asp?"&pagelen(0)&"&page="&page-1&">上页</a>":else:response.write"首页上页"
ifpage<rs.pagecountthenresponse.write"<ahref=a.asp?"&pagelen(0)&"&page="&page+1&">下页</a><ahref=a.asp?"&pagelen(0)&"&page="&rs.pagecount&">尾页</a>":else:response.write"下页尾页"
fori=1tors.pagecount
ifi=pagethenresponse.writei&"":else:response.write"<Ahref=a.asp?"&pagelen(0)&"&page="&i&">"&i&"</a>"
next
endifpagelen(0)即是str1=参数
pagelen(1)即是page=1
rs.close开释资本
setrs=nothing
setlink1=nothing
%>
</table></body></html>
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
页:
[1]