仓酷云
标题:
ASP教程之一段分页程序实例代码!
[打印本页]
作者:
透明
时间:
2015-1-16 23:38
标题:
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是怎么工作的。
作者:
莫相离
时间:
2015-1-20 10:47
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
作者:
金色的骷髅
时间:
2015-1-27 06:55
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
作者:
仓酷云
时间:
2015-1-30 11:15
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
作者:
老尸
时间:
2015-2-2 20:18
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
作者:
小魔女
时间:
2015-2-8 04:52
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者:
柔情似水
时间:
2015-2-24 05:46
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
作者:
透明
时间:
2015-3-7 11:28
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
作者:
爱飞
时间:
2015-3-15 02:33
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
作者:
灵魂腐蚀
时间:
2015-3-21 16:21
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2