易心asp分頁類 v1.0
2024-05-04 11:01:11
供稿：網友
易心asp分頁類v1.0
復制代碼 代碼如下:
<%
class Ex_SplitPageCls
'==========================================================================
'易心asp分頁類v1.0
'作者:易心 QQ:343931221
'個人網站 www.ex123.net www.bo56.com
'演示地址:www.ex123.net/show/page
'轉載請保留此信息
'==========================================================================
dim Ex_Rs
dim Ex_columns'要提取的字段
dim Ex_datafrom'數據表名
dim Ex_strWhere'記錄篩選條件
dim Ex_order'sql排序
dim Ex_idcount'記錄總數
dim Ex_pageSize'每頁條數
dim Ex_pageCount'總頁數
dim Ex_ids'獲得本頁要用到的id
dim Ex_Sql'構造的sql語句
dim Ex_page'當前顯示頁碼
dim Ex_Conn'數據庫聯接對象
dim Ex_index'數據庫記錄當前位置
dim Ex_id'主鍵字段
private sub class_initialize
set Ex_Rs=server.CreateObject("adodb.recordset")
Ex_id="id"
Ex_pageSize=20
end sub
private sub class_terminate
Ex_rs.close
set Ex_rs=nothing
end sub
'屬性賦值:
public property let letConn(str)
Ex_conn=str
end property
'屬性賦值:sql語句 要查詢的字段 帶select
public property let letColumns(str)
Ex_Columns=str
end property
'屬性賦值:sql語句篩選條件部分 帶where
public property let letWhere(str)
Ex_strWhere=str
end property
'屬性賦值:sql語句數據表 帶from
public property let letDataFrom(str)
Ex_dataFrom=str
end property
'屬性賦值:sql語句排序部分 帶order by
public property let letOrder(str)
Ex_order=str
end property
'屬性賦值:每頁記錄數
public property let letPageSize(str)
Ex_pageSize=str
end property
'屬性賦值:當前頁數
public property let letPage(str)
Ex_page=str
end property
'屬性賦值:主表主鍵字段
public property let letId(str)
Ex_Id=str
