ASP分页代码：一种方便简单的ASP分页程序

【51Test.NET-ASP分页代码：一种方便简单的ASP分页程序】：

<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={Microsoft access Driver (*.mdb)};dbq=" & DBPath

set rs = server.createobject("adodb.recordset")
sql = "select sap_adon_record.* from sap_adon_record order by s_id desc"
rs.open sql, conn, 1, 1
%>
 
 

<%if rs.EOF then%>
               

                   
               
<%else%>
 
     
     
     
     
     
     
     
 
<%
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount

requestpage=clng(request.querystring("page"))

if requestpage="" or requestpage=0 then
   requestpage=1
end if
if resquestpage>maxpage then
    resquestpage=maxpage
end if

if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof%> 
 

     
     
     
     
     
     
     
 
<%
rs.movenext
if rs.eof then exit for
next
%>

系统中暂时没有记录，请点击此处添加！
111	222	333	444	555	666	777
<%=rs("PRname")%>	<%=rs("trscod")%>	<%=rs("crname")%>	<%=rs("crdate")%>	<%=rs("prtype")%>	<%=rs("fction")%>	编辑

               
                   
               
  
    
  

添加记录   |   EXCEL文件批量导入   |    高级查询

<% if requestpage-1 mod 10=0 then  p=(requestpage-1) \ 10 else  p=(requestpage-1) \ 10 end if if requestpage=1 then  response.write "9" else  response.write "9" end if if p*10>0 then response.write "7" response.write "" for ii=p*10+1 to P*10+10    if ii=requestpage then   response.write ""&ii&" "  else   response.write ""&ii&"   "  end if  if ii=maxpage then exit for next response.write "" if ii8" if requestpage=maxpage then  response.write ":   " else  response.write ":" end if response.write"    总共有"&maxpage&"页   共"&totalrecord&"个记录   每页"&shownum&"个" end if %>

<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

ASP