ASP教程之ASP完成对旧事的分页例子
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。分页完成对旧事的分页例子，源代码以下：<table>
<%
strCode=Request.QueryString("itemcode")
SetConn=Server.CreateObject("Adodb.Connection")
Conn.OpenApplication("tt18_ConnectionString")
SetRs=Server.CreateObject("Adodb.Recordset")
Sql="select*fromNewsHeadCwhereitemcode=""&strCode&""orderbyTrDateDESC,a.NewsTimeDESC"
Rs.OpenSql,Conn,1,3
Rs.PageSize=15
Count=Rs.PageCount
ifRs.BOForRs.EOFthen
Response.Write"<tr>"&vbCrlf
Response.Write"<tdwidth=120align=leftbgcolor=#538E7B></td>"&vbCrlf
Response.Write"<tdwidth=80%bgcolor=#95D2FF>Σ黄穑]有----相</span>"&vbCrlf
Response.Write"</td></tr>"&vbCrlf
else
Rs.AbsolutePage=page
fori=1toRs.PageSize
Trdate=left(RS("trdate"),4)&"-"&mid(RS("trdate"),5,2)&"-"&right(RS("trdate"),2)
Response.Write"<tr>"&vbCrlf
Response.Write"<tdwidth=120align=leftbgcolor=#C0DAD1>"&Trdate&"</td>"&vbCrlf
Response.Write"<tdwidth=80%bgcolor=#e4e4e4height=20>"&vbCrlf
Response.Write"<ahref=""javascript:goto_jump("&Rs("id")&","&Rs("trdate")&",""&
Rs("Newscode")&"","&Rs("Identity")&")"">"&vbCrlf
Response.WriteRs("HeadLine")&"</a></td>"&vbCrlf
Response.Write"</tr>"&vbCrlf
Rs.MoveNext
IfRs.EOFThenExitFor
next
Response.Write"<tr>"&vbCrlf
Response.Write"<tdalign=rightcolspan=3bgcolor=#99cccc>"&vbCrlf
ifpage1then
Response.Write"<ahref=relnews.asp?page=1&itemcode="&strCode&">首</a>"&vbCrlf
endif
tmppage=page-1
iftmppage<=0then
tmppage=1
else
Response.Write"<ahref=relnews.asp?page="&tmppage&"&itemcode="&strCode&">上一</a>"&vbCrlf
endif
tmppage=page+1
iftmppage>Rs.PageCountthen
tmppage=page
else
Response.Write"<ahref=relnews.asp?page="&tmppage&"&itemcode="&strCode&">下一</a>"&vbCrlf
endif
ifCstr(page)Cstr(Rs.PageCount)then
Response.Write"<ahref=relnews.asp?page="&Rs.PageCount&"&itemcode="&strCode&">尾</a>&vbCrlf
endif
Response.Write"<fontcolor:#ccffcc">第"&page&"</font>"
Response.Write"<fontcolor:#ccffcc">共有："&Rs.PageCount&"</font>"&vbCrlf
Response.Write"<INPUTtype=buttonvalue=P]窗口name=button1height=12size=18
style="BACKGROUND-COLOR:beige;FONT-SIZE:smaller;
HEIGHT:22px;WIDTH:66px"></td>"&vbCrlf
Response.Write"</tr>"&vbCrlf
endif
%>
</table>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的
页:
[1]