ASP网站制作之asp分页的一个类

ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。分页asp分页的一个类，

在50,000笔记录下测试过，速率比ado的谁人要快多了

<%

************************************************************************************
详细用法
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"DRIVER={SQLServer};SERVER=(local);UID=sa;PWD=1230;DATABASE=Music"
setrs=mp.Execute("select*fromMusicList",conn,29)
whilenotrs.eof
response.writers2("MusicName")&"<br>"
rs2.MoveNext
wend
mp.pageDispaly()
************************************************************************************
ClassMyPage
privateMyPage_Conn,MyPage_StrSql,MyPage_TotalStrSql,MyPage_RS,MyPage_TotalRS
privateMyPage_PageSize
privateMyPage_PageAbsolute,MyPage_PageTotal,MyPage_RecordTotal
privateMyPage_Url
publicpropertyletconn(strConn)
setMyPage_Conn=strConn
endproperty

publicpropertyletPageSize(intPageSize)
MyPage_PageSize=Cint(intPageSize)
endproperty

publicfunctionPageExecute(strSql)
MyPage_PageAbsolute=MyPage_PageAbsoluteRequest()
MyPage_TotalStrSql=FormatMyPage_TotalStrSql(strSql)
setMyPage_TotalRS=MyPage_Conn.execute(MyPage_TotalStrSql)
MyPage_RecordTotal=MyPage_TotalRS("total")
MyPage_PageTotal=Cint(MyPage_RecordTotal/MyPage_PageSize)
MyPage_StrSql=FormatMyPage_StrSql(strSql)
setMyPage_RS=MyPage_Conn.execute(MyPage_StrSql)
dimi
i=0
whilenotMyPage_RS.eofandi<(MyPage_PageAbsolute-1)*MyPage_PageSize
i=i+1
MyPage_RS.MoveNext
wend
setPageExecute=MyPage_RS
endfunction

publicfunctionExecute(strSql,strConn,intPageSize)
conn=strConn
PageSize=intPageSize
setExecute=PageExecute(strSql)
endfunction

publicfunctionpageDispaly()
MyPage_Url=ReadMyPage_Url
firstPageTag="<fontface=webdings>9</font>"|<<
LastPageTag="<fontface=webdings>:</font>">>|
previewPageTag="<fontface=webdings>7</font>"<<
nextPageTag="<fontface=webdings>8</font>">>
dimstrAnd
ifinstr(MyPage_Url,"?")=0then
strAnd="?"
else
strAnd="&"
endif
response.write"<tablewidth=100%border=0cellspacing=0cellpadding=0>"
response.write"<tr>"
response.write"<tdalign=left>"
response.write"页次:"&MyPage_PageAbsolute&"/"&MyPage_PageTotal&"页&nbsp"
response.write"主题数:"&MyPage_RecordTotal
response.write"</td>"
response.write"<tdalign=right>"
response.write"分页:"
ifMyPage_PageAbsolute>10then
response.write"<ahref="&MyPage_Url&strAnd&"MyPage_PageNo=1>"&firstPageTag&"</a>"
response.write"<a

href="&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute-10)&">"&previewPageTag&"</a>"
else
response.writefirstPageTag
response.writepreviewPageTag
endif
response.write"&nbsp"
dimCurrentStartPage,i
i=1
CurrentStartPage=(Cint(MyPage_PageAbsolute)10)*10+1
ifCint(MyPage_PageAbsolute)mod10=0then
CurrentStartPage=CurrentStartPage-10
endif
whilei<11andCurrentStartPage<MyPage_PageTotal+1
ifCurrentStartPage<10then
FormatCurrentStartPage="0"&CurrentStartPage
else
FormatCurrentStartPage=CurrentStartPage
endif
response.write"<a

href="&MyPage_Url&strAnd&"MyPage_PageNo="&CurrentStartPage&">"&FormatCurrentStartPage&"</a>&nbsp"
i=i+1
CurrentStartPage=CurrentStartPage+1
wend
ifMyPage_PageAbsolute<(MyPage_PageTotal-10)then
response.write"<a

href="&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute+10)&">"&nextPageTag&"</a>"
response.write"<a

href="&MyPage_Url&strAnd&&</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

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

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

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

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

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

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

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

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