仓酷云

标题: ASP编程:2栏分页显现(附显现的情势前页,后页)... [打印本页]

作者: 若天明    时间: 2015-1-16 22:30
标题: ASP编程:2栏分页显现(附显现的情势前页,后页)...
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。显现情势:
ID1NAME|ID2NAME
1JULIET|2PALYBOY
3BABY|4TOM
5LENA|6JERY
>>首页前页后页尾页页数:1/46条/页总纪录数:25条
代码:
<!--page1.asp-->
<!--#includefile="conn.asp"-->
<html>
<bodybgcolor="#FFFFFF"text="#000000">
<tablewidth="60%"border="1"align="center">
<%
dimrs
dimsql
msg_per_page=4界说每页显现纪录条数
setrs=server.createobject("adodb.recordset")
sql="select*frompageorderbyid"改成你本人的SQL语句
rs.cursorlocation=3利用客户端游标,可使效力进步

rs.pagesize=msg_per_page界说分页纪录集每页显现纪录数
rs.opensql,conn,0,1

iferr.number0then毛病处置
response.write"数据库操纵失利:"&err.description
err.clear
else
ifnot(rs.eofandrs.bof)then检测纪录集是不是为空
totalrec=RS.RecordCounttotalrec:总纪录条数
ifrs.recordcountmodmsg_per_page=0then盘算总页数,recordcount:数据的总纪录数
n=rs.recordcountmsg_per_pagen:总页数
else
n=rs.recordcountmsg_per_page+1
endif

currentpage=request("page")currentpage:以后页
Ifcurrentpage""then
currentpage=cint(currentpage)
ifcurrentpage<1then
currentpage=1
endif
iferr.number0then
err.clear
currentpage=1
endif
else
currentpage=1
Endif
ifcurrentpage*msg_per_page>totalrecandnot((currentpage-1)*msg_per_page<totalrec)then
currentPage=1
endif
rs.absolutepage=currentpageabsolutepage:设置指针指向某页开首
rowcount=rs.pagesizepagesize:设置每页的数据纪录数

dimi
dimk
%>
<tralign="center"valign="middle">
<tdwidth="25%">ID1</td>
<tdwidth="25%">name1</td>
<tdwidth="25%">ID2</td>
<tdwidth="25%">name2</td>
</tr>
<%dowhilenotrs.eofandrowcount>0%>
<tralign="center"valign="middle">
<tdwidth="25%"><%=rs("id")%></td>
<tdwidth="25%"><%=rs("testname")%></td>
<td>
<%
rowcount=rowcount-1
rs.MoveNext
ifnotrs.EOFthen
%>
<%=rs("id")%>
</td>
<tdwidth="25%"><%=rs("testname")%></td>
</tr>
<%
rowcount=rowcount-1
rs.MoveNext
else
Response.Write"</td><td></td></tr>"
endif
loop
endif
endif
rs.close
setrs=nothing
%>

</table>
<tableborder="0"align="center">
<tr>
<tdalign="center"valign="middle">
<%calllistPages()%>
</td>
</tr>
</table>
</body>
</html>
<%
sublistPages()
ifn<=1thenexitsub
%>
<p><spanclass=smallFont>>>
<%ifcurrentpage=1then%>
<fontcolor=darkgrayface="arial">TopPrevious</font>
<%else%>
<fontcolor=blackface="arial"><ahref="<%=request.ServerVariables("script_name")%>?page=1">Top</font></a>
&nbsp<ahref="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">
<fontcolor=blackface="arial">Previous</a></font>
<%endif%>
<%ifcurrentpage=nthen%>
<fontcolor=darkgrayface="arial">NextBottom</font>
<%else%>
<fontcolor=blackface="arial"><ahref="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">Next</a>
&nbsp<ahref="<%=request.ServerVariables("script_name")%>?page=<%=n%>">Bottom</a></font>
<%endif%>
<fontcolor=blackface="arial">
&nbspPage:<%=currentpage%>/<%=n%>pages&nbsp&nbsp<%=msg_per_page%>notes/page&nbspTotal:<%=totalrec%>notes</font></span></p>
<%endsub%>
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!
作者: 愤怒的大鸟    时间: 2015-1-19 15:21
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
作者: 若天明    时间: 2015-1-27 16:26
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
作者: 活着的死人    时间: 2015-2-5 10:20
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
作者: 小魔女    时间: 2015-3-2 08:42
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
作者: 冷月葬花魂    时间: 2015-3-11 03:06
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
作者: 蒙在股里    时间: 2015-3-17 19:24
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
作者: 飘灵儿    时间: 2015-3-24 21:54
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2