ASP编程：关于翻页的函数

想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的翻页|函数   这是一个关于翻页制造的函数，放在page.inc外面，次要用于数据量不长短常大的数据库，个中函数中的HTML格局可以本人更改。

<%
''文件称号：page.inc
''功效：处置数据翻页的函数
''作者：六合无用

Sub ShowPageBar(TotalPage,CurPage,strUrl)
''参数TotalPage：全部页数
''参数CurPage：以后页数
''参数strUrl：翻页利用的毗连地址

DIM strPage
CurPage=GetValidPageNO(TotalPage,CurPage)
Response.Write "<TABLE WIDTH=''100%''>"
Response.Write "<TR><td width=''100%'' align=''right''>"
Response.Write "页数：" & CurPage & "/" & TotalPage & " "
IF InSTR(strUrl,"?")=0 THEN
strPage="?Page="
ELSE
strPage="&Page="
END IF

IF Curpage>1 THEN
Response.Write "<a href=" & strUrl &strPage&"1>第一页</a>|"
ELSE
Response.Write "第一页|"
END IF

IF CurPage>=2 THEN
Response.Write "<a href=" & strUrl & strPage &CurPage-1&">上一页</a>|"
ELSE
Response.Write "上一页|"
END IF

IF cInt(CurPage)<cInt(TotalPage) THEN
Response.Write "<a href=" & strUrl & strPage &CurPage+1&">下一页</a>|"
ELSE
Response.Write "下一页|"
END IF

IF cInt(CurPage) <>cInt(TotalPage) THEN
Response.Write "<a href=" & strUrl & strPage & TotalPage&">最初一页</a>"
ELSE
Response.Write "最初一页"
END IF
Response.Write "</TD></tr></table>"
END SUB

Function GetValidPageNo(PageCount,CurPage)
Dim iPage
iPage=CurPage
IF cInt(CurPage)<1 THEN
iPage= 1
END IF
IF cInt(iPage) > cInt(PageCount) THEN
iPage= PageCount
END IF
GetValidPageNo=iPage
END Function
%>

上面是利用这个函数的例子，文件称号是showinfo.asp
<!--#include Virtual="page.inc"-->
<%
SET objConn=Server.CreateObject("ADODB.CONNECTION")
SET objRst=Server.CreateObject("ADODB.RECORDSET")
objConn.Open APPLICATION("dsn")

strSQL="SELECT * FROM ********"
''这里是你要利用的查询
objRst.Open strSQL,objConn,adOpenStatic
’翻开数据纪录
objRst.PageSize=50
’设置单页的数据纪录数
iPageCount=objRst.PageCount
’界说了一个页码数目的变量
If Len(Request.QueryString("Page"))=0 Then
CurPage=1
Else
CurPage=CInt(Request.Querystring("Page"))
End If
’失掉以后的页码
objRst.AbsolutePage=CurPage
’设置纪录集中确当前页

’入手下手挪用显示翻页的函数
''显示页数栏
''函数原型：ShowPageBar(TotalPage,CurPage,strUrl)
strUrl="showinfo.asp"
''界说毗连的URL，这里完整可以用本人的页面地址，只用一页就能够完成翻页的功效了！
ShowPageBar iPageCount,CurPage,strUrl
''挪用完成

************************
这里显示本人的内容
************************

objConn.Close
SET objRst=NOTHING
SET objConn=NOTHING
%>

接待人人利用，假如有建议或定见请同我接洽，人人一同会商。
</p>  专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。

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

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

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

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

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

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

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

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

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

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

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

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write