ASP网页编程之分页的显现-->前后翻腾10页的完成
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。分页|显现<%setcon=server.CreateObject("ADODB.Connection")
strConnection="DataSource=xxxxxxx;"
con.OpenstrConnection
setrs=Server.CreateObject("ADODB.Recordset")
chartSQL="selectID,name,category_onefromgoods"
rs.OpenchartSQL,con,1,3
ifrs.EOForrs.BOFthen假如为空
response.end
endif
pagesize=10每页显现10笔记录
pagecuont=rs.PageCount总页数
recordcount=rs.RecordCount
dimpagenum以后页码
dimcurrentRecord以后页的纪录数,关于末页其值不即是pagesize
ifRequest.QueryString("pageNum")=""then
pageNum=1
else
pageNum=Request.QueryString("pageNum")
rs.AbsolutePage=trim(Request.QueryString("pageNum"))
endif
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>NewPage1</title>
<SCRIPTLANGUAGE=javascript>
<!--
functionopenwindow(url){
window.open(url,,resizable=no,width=240,height=160,fullscreen=yes)
}
//-->
</SCRIPT>
<linkrel="stylesheet"href="file:///F|/mysourceof17560/CSS.CSS"type="text/css">
</head>
<bodybgcolor=#999999>
<palign="center">商品修正页面</p>
<tableborder="1"width="100%"cellpadding="0"cellspacing="0"bordercolordark="#999999"bordercolorlight="#000000">
<tr>
<tdwidth="10%">
<divalign="center">编号 </div>
</td>
<tdwidth="63%">
<divalign="center">商品名 </div>
</td>
<tdwidth="14%">
<divalign="center">主分类</div>
</td>
<tdwidth="13%">
<divalign="center">操纵 </div>
</td>
</tr>
<%
fori=1tors.PageSize
ifrs.EOForrs.BOFthen本前提判别是不是到了止境
exitfor
endif
%>
<tr>
<tdwidth="10%"align=center><%=rs("ID")%></td>
<tdwidth="63%"align=center><%=rs("name")%> </td>
<tdwidth="14%"align=center><%=rs("category_one")%></td>
<tdwidth="13%">
<divalign="center">
<INPUTtype="button"value="Button"id=button1name=button1
ID")%>&zfenlei=<%=rs("category_one")%>,,resizable=no,width=240,height=160)">
</div>
</td>
</tr>
<%
currentRecord=currentRecord+1取确当前页的纪录数
rs.MoveNext
next
rs.Close
%>
</table>
<divalign="center"class="bfont">算计<%=recordCount%>笔记录|第
<%
pageNum_record=(pageNum-1)*pageSize+1初始纪录地位
pageNum_record_=pageNum_record+currentRecord-1末纪录地位
Response.WritepageNum_record
%>
-<%=pageNum_record_%>条|第<%=pageNum%>页|共<%=pagecuont%>页
<%
ifpagecuont>0then避免以后前往的为空纪录，即数据库中该数据集为空
ifpageNum>1then%>
<ahref="modifychart.asp?pageNum=1"><fontcolor="#FFFFFF">首页</font></a>
<%
elseResponse.Write"首页"
endif
ifpageNum>10then
若有必要，请在这里添上假如不敷10页时该完成前n页的代码，
请参考上面的假如前面不敷10页时该怎样处置的代码和思绪
%>
<ahref="modifychart.asp?pageNum=<%=(pageNum-10)%>"><fontcolor="#FFFFFF">前10页</font></a>
<%
endif
if(pageNum+10)<pagecuontthen
这里也不异参考上面的思绪
%>
<ahref="modifychart.asp?pageNum=<%=(pageNum+10)%>"><fontcolor="#FFFFFF">下10页</font></a>
<%
endif
if(pageNum+10)<pagecuontthen
这里判别前面是不是另有10页
endpage=pageNum+9
else
endpage=pageCount
endif
fori=pageNumtoendPage
%>
<ahref="modifychart.asp?pageNum=<%=i%>">第<%=i%>页</a>
<%
next
ifpageNumpageCountthen
%>
<ahref="modifychart.asp?pageNum=<%=pagecuont%>"><fontcolor="#FFFFFF">末页</font></a>
<%
endif
endifendof--->ifpageCount>0then
%>
</div>
</body>
</html>缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。
页:
[1]