ASP编程：2栏分页显现（附显现的情势[1][2]）

只看该作者 · 发表于 2015-1-16 22:30:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。显现情势：
ID1NAME|ID2NAME
1JULIET|2SPIRIT
3BABY|4BOY
[1][2][3][4]页数：1/4页4条/页总纪录数：13条
代码：


<html>
<bodybgcolor="#FFFFFF"text="#000000">
<tablewidth="60%"border="1"align="center">
<%是有两列的分页（1,2,3,4的情势）。数据表：page，字段：id,testname
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
fori=0tonmsg_per_page-1
forj=1tomsg_per_page
%>
<fontsize="2"color="#006600">
<ahref="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j%>">[<%=i*msg_per_page+j%>]</a></font>
<%
next
next
EndPage=nmodmsg_per_page
forj=1toEndPage
%>
<fontsize="2"color="#006600">
<ahref="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j%>">[<%=i*msg_per_page+j%>]</a></font>
<%next%>
<fontcolor=blackface="arial">
&nbspPage:<%=currentpage%>/<%=n%>pages&nbsp&nbsp<%=msg_per_page%>notes/page&nbspTotal:<%=totalrec%>notes</font>
<%endsub%>

实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。

只看该作者 · 发表于 2015-1-19 15:21:28

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-1-27 09:29:36

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

只看该作者 · 发表于 2015-2-5 06:46:12

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-3-1 23:33:29

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-3-11 01:19:20

那么，ASP.Net有哪些改进呢？

只看该作者 · 发表于 2015-3-17 18:08:23

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

只看该作者 · 发表于 2015-3-24 18:14:03

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

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：2栏分页显现（附显现的情势[1][2]）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子