ASP编程：撑持多作风变换的ASP分页类
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。分页 这个分页利用的是0游标，也就是Rs.Open Sql,Conn,0,1。然而感到也快不了几何，10万条数据的分页工夫300多豪秒之间
<%
Class Page
Private CurrPage
Private PageN
Private UrlStr
Private TempStr
Private ErrInfo
Private IsErr
Private TotalRecord
Private TotalPage
PublicPageRs
Private TempA(11)
Private TempB(8)
'------------------------------------------------------------
Private Sub Class_Initialize()
CurrPage=1'//默许显示以后页为第一页
PageN=10'//默许每页显示10条数据
UrlStr="#"
TempStr=""
ErrInfo="ErrInfo:"
IsErr=False
End Sub
Private Sub Class_Terminate()
If IsObject(PageRs) Then
PageRs.Close
Set PageRs=Nothing
End If
Erase TempA
Erase TempB
End Sub
'----------------------------------------------------------
'//获得以后页码
Public Property Let CurrentPage(Val)
CurrPage=Val
End Property
Public Property Get CurrentPage()
CurrentPage=CurrPage
End Property
'//获得每页显示条数
Public Property Let PageNum(Val)
PageN=Val
End Property
Public Property Get PageNum()
PageNum=PageN
End Property
'//获得URL
Public Property Let Url(Val)
UrlStr=Val
End Property
Public Property Get Url()
Url=UrlStr
End Property
'//获得模板
Public Property Let Temp(Val)
TempStr=Val
End Property
Public Property Get Temp()
Temp=TempStr
End Property
'------------------------------------------------------------
Public Sub Exec(Sql,ConnObj)
On Error Resume Next
Set PageRs=Server.CreateObject("ADODB.RecordSet")
PageRs.CursorLocation = 3 '利用客户端游标，可使效力进步
PageRs.PageSize = PageN '界说分页纪录集每页显示纪录数
PageRs.Open Sql,ConnObj,0,1
If Err.Number<>0 Then
Err.Clear
PageRs.Close
Set PageRs=Nothing
ErrInfo=ErrInfo&"创立或翻开纪录集毛病..."
IsErr=True
Response.Write ErrInfo
Response.End
End If
TotalRecord=PageRs.RecordCount'//假如为0呢？
If TotalRecord>=1 Then
'----------------------------------------------------------------------------入手下手
'//盘算总页数,Ps,为何不必PageRs.PageCount呢？
'If TotalRecord Mod PageN=0 Then
'TotalPage=PageRs.RecordCount\PageN
'Else
'TotalPage=PageRs.RecordCount\PageN
'TotalPage=Abs(Int(TotalPage))
'End If
TotalPage=PageRs.PageCount
'//处置以后吸收页码,默许的为1，所以不是数字类型的城市为1
If IsNumeric(CurrPage) Then
CurrPage=CLNg(CurrPage)
If CurrPage<1 Then CurrPage=1
If CurrPage>TotalPage Then CurrPage=TotalPage
Else
'//Dim M:M="":IsNumeric(M)=True
CurrPage=1
End If
'---------------------------------------------------------------------------停止
Else
TotalPage=0
CurrPage=1
End If
'//
PageRs.AbsolutePage = CurrPage 'absolutepage：设置指针指向某页开首
PageRs.PageSize=PageN
End Sub
Private Sub Init()
'Private TempA(10)
TempA(1)="{N1}" '//首页
TempA(2)="{N2}"'//上一页
TempA(3)="{N3}"'//下一页
TempA(4)="{N4}"'//尾页
TempA(5)="{N5}"'//以后页码
TempA(6)="{N6}"'//页码总数
TempA(7)="{N7}"'//每页条数
TempA(8)="{N8}"'//文章总数
TempA(9)="{L}"'//轮回标签入手下手
TempA(10)="{N}"'//轮回内单标签：页码
TempA(11)="{L/}"'//轮回标签停止
'Private TempB(8)
TempB(1)="首页"
TempB(2)="上一页"
TempB(3)="下一页"
TempB(4)="尾页"
TempB(5)=CurrPage'//以后页码
TempB(6)=TotalPage'//页码总数
TempB(7)=PageN'//每页条数
TempB(8)=TotalRecord'//文章总数
End Sub
Public Sub Show(Style)
If IsErr=True Then
Response.Write ErrInfo
Exit Sub
End If
Call Init()
Select Case Style
Case 1
Response.Write StyleA()
Case 2
Response.Write StyleB()
Case 3
Response.Write StyleC()
Case 4
Response.Write StyleD()
Case Else
ErrInfo=ErrInfo&"不存在以后款式..."
Response.Write ErrInfo
End Select
End Sub
Public Function ShowStyle(Style)
If IsErr=True Then
ShowStyle=ErrInfo
Exit Function
End If
Call Init()
Select Case Style
Case 1
ShowStyle= StyleA()
Case 2
ShowStyle= StyleB()
Case Else
ErrInfo=ErrInfo&"不存在以后款式..."
ShowStyle=ErrInfo
End Select
End Function
Private Function StyleA()
'首页 上一页 下一页 尾页本页为第1/20页，共20页，每页10条，文章总数200条
'//分页样例：[首页] [上页] [下页] [尾页] [页次：4/5页] [共86篇 20篇/页] 转到：_ 页
'//标签：{N1} {N2} {N3} {N4} || 共:{N8}笔记录 {N6}页 以后为第{N5}页 每页{N7}条
If IsEmpty(TempStr) Then
ErrInfo=ErrInfo&"模板为空..."
StyleB=ErrInfo
Exit Function
End If
Dim M
If TotalPage>1 Then
If CurrPage>1 Then
M="<a href='"&UrlStr&"Page=1'>"&"首页"&"</a>"
TempStr=WordStr(TempStr,"{N1}",M)
M="<a href='"&UrlStr&"Page="&CurrPage-1&"'>"&"上一页"&"</a>"
TempStr=WordStr(TempStr,"{N2}",M)
If CurrPage<TotalPage Then
M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一页"&"</a>"
TempStr=WordStr(TempStr,"{N3}",M)
M="<a href='"&UrlStr&"Page="&TotalPage&"'>"&"尾页"&"</a>"
TempStr=WordStr(TempStr,"{N4}",M)
Else
TempStr=WordStr(TempStr,"{N3}","下一页")
TempStr=WordStr(TempStr,"{N4}","尾页")
End If
Else
TempStr=WordStr(TempStr,"{N1}","首页")
TempStr=WordStr(TempStr,"{N2}","上一页")
M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一页"&"</a>"
TempStr=WordStr(TempStr,"{N3}",M)
M="<a href='"&UrlStr&"Page="&TotalPage&"'>"&"尾页"&"</a>"
TempStr=WordStr(TempStr,"{N4}",M)
End If
Else
TempStr=WordStr(TempStr,"{N1}","首页")
TempStr=WordStr(TempStr,"{N2}","上一页")
TempStr=WordStr(TempStr,"{N3}","下一页")
TempStr=WordStr(TempStr,"{N4}","尾页")
End If
T=TempStr
T=WordStr(T,"{N8}",TotalRecord)
T=WordStr(T,"{N6}",TotalPage)
T=WordStr(T,"{N5}",CurrPage)
T=WordStr(T,"{N7}",PageN)
TempStr=T
StyleA=TempStr
End Function
Private Function StyleB()
'首页 |< 1 2 3 4 5 6 7 >| 尾页
'//标签:{N1} {N2} {L}{N}{L/}{N3}{N4}
If IsEmpty(TempStr) Then
ErrInfo=ErrInfo&"模板为空..."
StyleB=ErrInfo
Exit Function
End If
Dim ForceNum,BackNum'//以后页的后面和前面显示个数
ForceNum=5
BackNum=4
Dim M
'//首页
M="<a href='"&UrlStr&"Page=1'>"&TempB(1)&"</a>"
TempStr=WordStr(TempStr,"{N1}",M)
'//尾页
M="<a href='"&UrlStr&"Page="&TempB(6)&"'>"&TempB(4)&"</a>"
TempStr=WordStr(TempStr,"{N4}",M)
'//前一页
M="|<"
If CurrPage-1>=1 Then
M="<a href='"&UrlStr&"Page="&CurrPage-1&"'>"&"|<"&"</a>"
End If
TempStr=WordStr(TempStr,"{N2}",M)
'//后一页
M=">|"
If CurrPage+1<=TotalPage Then
M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&">|"&"</a>"
End If
TempStr=WordStr(TempStr,"{N3}",M)
'//掏出轮回标签
Dim N1,N2,N3,N4,N5,N6
If InStr(TempStr,"{L}")>0 Then
N1=InStr(TempStr,"{L}")
End If
If InStr(TempStr,"{L/}")>0 Then
N2=InStr(TempStr,"{L/}")
End If
If N2<=N1 Then
ErrInfo=ErrInfo&"轮回标签失足..."
StyleB=ErrInfo
Exit Function
End If
N3=Mid(TempStr,N1,N2-N1+4)'//贮存包含{L}{L/}轮回标签的模板
N4=WordStr(N3,"{L}","")'//贮存不包含{L}{L/}轮回标签的模板
N4=WordStr(N4,"{L/}","")
'//页码列表
Dim FirstPageNum,LastPageNum
If CurrPage-ForceNum<=1 Then
FirstPageNum=1
PageList=""
Else
FirstPageNum=CurrPage-ForceNum
PageList="... ..."
End If
If CurrPage+BackNum>=TotalPage Then
LastPageNum=TotalPage
PageList_2=""
Else
LastPageNum=CurrPage+BackNum
PageList_2="... ..."
End If
Dim I
For I=FirstPageNum To LastPageNum
If I=CurrPage Then
N5=WordStr(N4,"{N}","<b>"&I&"</b>")
N6=N6&N5
Else
M="<a href='"&UrlStr&"Page="&I&"'>"&I&"</a>"
N5=WordStr(N4,"{N}",M)
N6=N6&N5
End If
Next
TempStr=WordStr(TempStr,N3,N6)
StyleB=TempStr
End Function
Private Function StyleC()
'首页 |< |<< 1 2 3 4 5 6 7 >>| >| 尾页
'//此作风在StyleB的基本上修正，增添两个标签：{N9}上10页 {N10}下10页
'//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
Dim T
T=StyleB()
'//前十页
M="|<<"
If CurrPage-10>=1 Then
M="<a href='"&UrlStr&"Page="&CurrPage-10&"'>"&"|<<"&"</a>"
End If
T=WordStr(T,"{N9}",M)
M=">>|"
If CurrPage+10<=TotalPage Then
M="<a href='"&UrlStr&"Page="&CurrPage+10&"'>"&">>|"&"</a>"
End If
T=WordStr(T,"{N10}",M)
StyleC=T
End Function
Private Function StyleD()
'//此作风在StyleC的基本上修正
'//共{N8}笔记录 {N6}页 以后为第{N5}页 每页{N7}条
'//首页 |< |<< 1 2 3 4 5 6 7 >>| >| 尾页
'//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
Dim T
T=StyleC()
T=WordStr(T,"{N8}",TotalRecord)
T=WordStr(T,"{N6}",TotalPage)
T=WordStr(T,"{N5}",CurrPage)
T=WordStr(T,"{N7}",PageN)
StyleD=T
End Function
End Class
%>
结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 不能只是将它停留在纸上谈兵的程度上。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
页:
[1]