查询翻页优化第1/2页
【编者按】网学网ASP频道为大家收集整理了“查询翻页优化第1/2页“提供大家参考，希望对大家有所帮助!
复制代码 代码如下:<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''>Ver