易心asp分页类 v1.0

esize
if Ex_rs.eof then exit for
if(i=1)then
Ex_Ids=Ex_rs("id")
else
Ex_Ids=Ex_Ids &","&Ex_rs("id")
end if
Ex_rs.movenext
next
end if
Ex_Rs.close
end sub
''返回本页要用到的记录集
public function execute
ids
Ex_Sql=Ex_Columns&" "&Ex_dataFrom&" "&Ex_strWhere&" and id in("&Ex_ids&") "&Ex_order
Ex_Rs.open Ex_Sql,Ex_conn,1,1
Set execute=Ex_Rs
end function
end class
%>