易心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)