分手快乐 发表于 2015-2-3 23:40:22

ASP教程之1栏分页显示(附显示的模式[1][2])

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了分页|显示   显示模式:
ID NAME
1 JULIET
2 SPIRIT
3 GIRL
4 BOY
页数:1/4 页 4条/页 总纪录数:13条
代码:
<!--page4.asp-->
<!--#include file="conn.asp"-->
<html>
<body bgcolor="#FFFFFF" text="#000000">
<table width="60%" border="1" align="center">
<%
dim rs
dim sql
msg_per_page = 4 '界说每页显示纪录条数
set rs = server.createobject("adodb.recordset")
sql = "select * from page order by id" '改成你本人的SQL语句
rs.cursorlocation = 3 '利用客户端游标,可使效力进步

rs.pagesize = msg_per_page '界说分页纪录集每页显示纪录数
rs.open sql,conn,0,1

if err.number<>0 then '毛病处置
response.write "数据库操作掉败:" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测纪录集是不是为空
totalrec = RS.RecordCount 'totalrec:总纪录条数
if rs.recordcount mod msg_per_page = 0 then '盘算总页数,recordcount:数据的总纪录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if

currentpage = request("page") 'currentpage:以后页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage:设置指针指向某页开首
rowcount = rs.pagesize 'pagesize:设置每页的数据纪录数

dim i
dim k
%>
<tr align="center" valign="middle">
<td width="50%">ID</td>
<td width="50%">name</td>
</tr>
<%do while not rs.eof and rowcount > 0%>
<tr align="center" valign="middle">
<td width="25%"><%=rs("id")%></td>
<td width="25%"><%=rs("testname")%></td>
</tr>
<%
rowcount=rowcount-1
rs.MoveNext
loop
end if
end if
rs.close
set rs=nothing
%>

</table>
<table border="0" align="center">
<tr>
<td align="center" valign="middle">
<%call listPages()%>
</td>
</tr>
</table>
</body>
</html>
<%
sub listPages()
if n <= 1 then exit sub
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%>
<font size="2" color="#006600">
<a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</a></font>
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%>
<font size="2" color="#006600">
<a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</a></font>
<%next%>
<font color=black face="arial" >
Page:<%=currentpage%>/<%=n%>pages <%=msg_per_page%>notes/page Total:<%=totalrec%>notes</font>
<%end sub%>

</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

分手快乐 发表于 2015-2-4 05:30:09

完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。

再现理想 发表于 2015-2-8 14:07:18

学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。

蒙在股里 发表于 2015-2-25 15:52:37

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。

只想知道 发表于 2015-3-6 01:23:19

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

小妖女 发表于 2015-3-7 04:35:25

他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。

仓酷云 发表于 2015-3-13 12:09:44

不能只是将它停留在纸上谈兵的程度上。

仓酷云 发表于 2015-3-14 10:28:41

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。

若相依 发表于 2015-3-15 16:01:56

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

深爱那片海 发表于 2015-3-16 14:21:46

接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。

飘灵儿 发表于 2015-3-17 18:08:18

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

爱飞 发表于 2015-3-24 16:22:33

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

第二个灵魂 发表于 2015-3-29 17:47:20

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

兰色精灵 发表于 2015-4-8 12:53:12

哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?

山那边是海 发表于 2015-4-11 06:11:49

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

乐观 发表于 2015-4-17 11:12:51

兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的

活着的死人 发表于 2015-4-27 11:05:56

跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组

admin 发表于 2015-5-6 01:11:42

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

小女巫 发表于 2015-5-6 05:55:08

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

变相怪杰 发表于 2015-5-6 09:10:43

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
页: [1] 2
查看完整版本: ASP教程之1栏分页显示(附显示的模式[1][2])