模块化分页
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 if
sql="select  查询语句"
rs.open sql,conn,1,1 
rs.pagesize=10  分页记录数
if pagecountrs.pagecount or pagecount<=0 then              
pagecount=1              
end if             
if rs.eof and rs.bof then%