ASP网页编程之典范的分页完全程序+正文,对带与不带参...
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，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>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 不能只是将它停留在纸上谈兵的程度上。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
页:
[1]