asp模块化分页

asp模块化分页 模块化分页 1.查询语句块   <%取得当前文件名temp = Split(request.ServerVariables("URL"), "/")fy = temp(UBound(temp))set rs=server.createobject("adodb.recordset") if not isempty(request("page")) then   pagecount=cint(request("page"))   else   pagecount=1   end ifsql="select  查询语句"rs.open sql,conn,1,1 rs.pagesize=10  分页记录数if pagecount>rs.pagecount or pagecount<=0 then              pagecount=1              end if             if rs.eof and rs.bof then%><div align="center" class="001"><br>对不起，没有符合搜索条件的记录！<br