ASP分页代码:一种方便简单的ASP分页程序
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 12:36:38 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") <%if rs.EOF then%> requestpage=clng(request.querystring("page")) if requestpage="" or requestpage=0 then if not requestpage=1 then
sql = "select sap_adon_record.* from sap_adon_record order by s_id desc"
rs.open sql, conn, 1, 1
%>
系统中暂时没有记录,请点击此处添加!
<%else%>
111
222
333
444
555
666
777
<%
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof%>
<%=rs("PRname")%>
<%=rs("trscod")%>
<%=rs("crname")%>
<%=rs("crdate")%>
<%=rs("prtype")%>
<%=rs("fction")%>
编辑
<%
rs.movenext
if rs.eof then exit for
next
%>
添加记录 | 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 ii
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
%>