加入收藏 | 设为首页 | 会员中心 | 我要投稿 应用网_阳江站长网 （https://www.0662zz.com/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 站长学院 > Asp教程 > 正文

ASP类库之查询翻页优化 - ASP教程

发布时间：2016-05-20 11:47:25 所属栏目：Asp教程 来源：站长网
导读：SCRIPT language=VBSCRIPT RUNAT=SERVER ''//---- COCOON_自定义类_翻页优化代码 ----//'' Class cc_db_Pager ''-------------------------------- '' COCOON D
<SCRIPT language=VBSCRIPT RUNAT=SERVER>

''//---- COCOON_自定义类_翻页优化代码 ----//''
Class cc_db_Pager
''--------------------------------
'' COCOON Db_Pager 类 (Ver: 1.02)
'' 作者: Sunrise_Chen (sunrise_chen@msn.com)
'' 请保留此信息，谢谢。
''
'' 2003/06 修正一个错误，描述：如果ID不唯一，将产生多条重复记录的错误。
'' 2003.5
''--------------------------------

''//-------------------- 定义变量 --------------------//''
Private sTableName ''//表名
Private sSqlString ''//自定义Sql语句
Private aCondition() ''//查询条件(数组)
Private sCondition ''//查询条件(字符串)
Private iPage ''//当前页码
Private iPageSize ''//每页记录数
Private iPageCount ''//总页数
Private iRecCount ''//当前查询条件下的记录数
Private iTotalRecCount ''//总记录数
Private sFields ''//输出的字段名
Private sOrderBy ''//排序字符串
Private sSql ''//当前的查询语句
Private sPkey ''//主键
Private oConn ''//连接对象
Private iDefPageSize ''//默认每页显示的记录数
Private sProjectName ''/项目名
Private sVersion ''/版本号
Private bShowError ''//是否显示错误信息

''//-------------------- 事件、方法 --------------------//''
''//类初始化事件
Private Sub Class_Initialize()
ReDim aCondition(-1)
iPage = 1
iRecCount = Null
iTotalRecCount = Null
iPageCount = Null
bShowError = True
iPageSize = 10
sFields = "*"
sPkey = "ID"
sCondition = ""
sOrderBy = ""
sSqlString = ""
sProjectName = "COCOON 类系列 数据库翻页优化"
sVersion = "1.02"
End Sub

''//类结束事件
Private Sub Class_Terminate()
Set oConn = Nothing
End Sub

''//错误处理
Public Sub doError(s)
Dim sTmp
sTmp = CLng(Rnd() * 100)
Response.write( "<DIV STYLE=''WIDTH:760;font-size:9pt;cursor:hand''>" )
Response.write( "<LABEL onCLICK=''ERRORDIV"&sTmp&".style.display=(ERRORDIV"&sTmp&".style.display==""""?""none"":"""")''>" )
Response.write( "<SPAN STYLE=''BACKGROUND-COLOR:#CCCC00;COLOR:WHITE;''>〖 CC_db_Pager 提示信息〗</SPAN><BR></LABEL>" )
Response.write( "<DIV ID=''ERRORDIV"&sTmp&"'' STYLE=''DISPLAY:NONE;WIDTH:100%;" )
Response.write( "BORDER: 1PX SOLID #CCCC00;PADDING:5;overflow:hidden;text-overflow:ellipsis;''><NOBR>" )
Response.write( "<SPAN STYLE=''COLOR:RED''>Description</SPAN>: " & s & "<BR>" )
Response.write( "<SPAN STYLE=''COLOR:RED''>Provider</SPAN>: " & sProjectName )
Response.write( " <SPAN STYLE=''COLOR:RED''>Version</SPAN>: " & sVersion & "<BR>" )
Response.write( "</NOBR></DIV></DIV><BR>" )
End Sub

''//产生分页的SQL语句
Public Function getSql()
Dim iStart, iEnd
Call makeCondition()
iStart = ( iPage - 1 ) * iPageSize
iEnd = iStart + iPageSize
getSql = " Select DISTINCT " & sFields & " FROM ["&sTableName&"] " _
& " Where ["&sPKey&"] NOT IN ( " _
& " Select TOP "&iStart&" ["&sPKey&"] FROM ["&sTableName&"] " & sCondition & " " & sOrderBy & " " _
& " )" _
& " AND ["&sPKey&"] IN ( " _
& " Select TOP "&iEnd&" ["&sPKey&"] FROM ["&sTableName&"] " & sCondition & " " & sOrderBy & " " _
& " )" _
& " " & sOrderBy & " "
End Function

''//产生条件字符串
Private Sub makeCondition()
If UBound(aCondition)>=0 Then
sCondition = " Where " & Join(aCondition, " AND ")
End If
End Sub

''//计算总记录数（带条件）
Private Sub CaculateRecCount()
On Error Resume Next
Dim oRs
Call makeCondition()
Set oRs = oConn.Execute( "Select COUNT(["&sPKey&"]) FROM [" & sTableName & "]" & sCondition )
If Err Then
doError Err.Description
Response.End()
End If
iRecCount = oRs.Fields.Item(0).value
Set oRs = Nothing
End Sub

''//计算总记录数（不带条件）
Private Sub CaculateTotalRecCount()
On Error Resume Next
Dim oRs
Set oRs = oConn.Execute( "Select COUNT(["&sPKey&"]) FROM [" & sTableName & "]" )
If Err Then
doError Err.Description
Response.End()
End If
iTotalRecCount = oRs.Fields.Item(0).value
Set oRs = Nothing
End Sub

''//计算页数
Private Sub CaculatePageCount()
If isNull(iRecCount) Then CaculateRecCount()
If iRecCount = 0 Then iPageCount = 0 : Exit Sub
iPageCount = Abs( Int( 0 - (iRecCount / iPageSize) ) )
End Sub

''//增加条件
Public Sub AddCondition(s)
If Len(s)<0 Then Exit Sub
ReDim Preserve aCondition(UBound(aCondition)+1)
aCondition(UBound(aCondition)) = s
End Sub

''//版本信息
Public Function Information()
doError "Coding by <A HREF=''MAILTO:sunrise_chen@msn.com''>Sunrise_Chen</A> @ <A HREF=''http://www.ccopus.com''>http://www.ccopus.com<;/A> ."
End Function

''//-------------------- 输入属性 --------------------//''
''//定义连接对象
Public Property Set ActiveConnection(o)
Set oConn = o
End Property

''//定义查询表名
Public Property Let TableName(s)
sTableName = s
End Property

''//定义需要输出的字段名
Public Property Let Fields(s)
sFields = s
End Property

''//定义主键
Public Property Let Pkey(s)
sPkey = s
End Property

''//定义排序规则
Public Property Let OrderBy(s)
sOrderBy = " ORDER BY " & s & " "
End Property

''//定义每页的记录条数
Public Property Let PageSize(s)
iPageSize = s
If Not isNumeric(iPageSize) Then iPageSize = iDefaultPageSize
If CLng(iPageSize)<1 Then iPageSize = iDefaultPageSize
End Property

''//定义当前页码
Public Property Let Page(s)
iPage = s
If Not isNumeric(iPage) Then iPage = 1
If CLng(iPage)<1 Then iPage = 1
Call CaculatePageCount()
If CLng(iPage)>CLng(iPageCount) And iPageCount>0 Then iPage = iPageCount
End Property

''//自定义查询语句
Public Property Let Sql(s)
sSqlString = s
End Property

''//-------------------- 输出属性 --------------------//''
''//取得当前条件下的记录数
Public Property Get RecordCount
If isNull(iRecCount) Then CaculateRecCount()
RecordCount = iRecCount
End Property

''//取得当前页码
Public Property Get Page
Page = iPage
End Property

''//取得当前页码
Public Property Get AbsolutePage
AbsolutePage = iPage
End Property

''//取得当前查询的条件
Public Property Get Condition
If Len(sCondition)<1 Then makeCondition()
Condition = sCondition
End Property

''//取得总的记录数
Public Property Get TotalRecordCount
If isNull(iTotalRecCount) Then CaculateTotalRecCount()
TotalRecordCount = iTotalRecCount
End Property

''//取得总页数
Public Property Get PageCount
If isNull(iPageCount) Then CaculatePageCount()
PageCount = iPageCount
End Property

''//得到分页后的记录集
Public Property Get Recordset
On Error Resume Next
sSql = getSql()
Set Recordset = oConn.Execute( sSql )
If Err Then
If bShowError Then doError Err.Description
If Len(sSqlString)>0 Then
Set Recordset = oConn.Execute( sSqlString )
If Err Then
doError Err.Description
Response.End()
End If
Else
doError Err.Description
End If
End If
Err.Clear()
End Property

''//版本信息
Public Property Get Version
Version = sVersion
End Property

End Class

</SCRIPT>

（编辑：应用网_阳江站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
      站长推荐
      热点阅读

        【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

        建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

        Copygight © 2008-2022 https://www.0662zz.com/ All Rights Reserved. 应用网_阳江站长网