分页代码 --不含美工

来源：互联网发布：sql数据库mdf文件下载编辑：程序博客网时间：2024/04/29 00:36

<%set conn=server.createobject("adodb.connection")conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))set rs=server.createobject("adodb.recordset")sql="select * from student"rs.open sql,conn,3rs.pagesize=20if request("page")<>"" then epage=cint(request("page")) if epage<1 then epage=1 if epage>rs.pagecount then epage=rs.pagecountelseepage=1end ifrs.absolutepage=epage%><table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center"><tr bgcolor="#FFFFFF" align="center"><th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th></tr><%for i=0 to rs.pagesize-1if rs.bof or rs.eof then exit for%><tr bgcolor="#FFFFFF" align="center"><td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td></tr><%rs.movenext()next%></table><p align="center"><a href="">首页</a> <a href="index.asp?page=<%=epage-1%>">前一页</a> <a href="index.asp?page=<%=epage+1%>">后一页</a> <a href="index.asp?page=<%=rs.pagecount%>">末页</a></p><p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p><%conn.close()%>

算是比较简单的分页代码

而我今天写一个答题的网页时用的就是这个代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% 'Response.CodePage="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title></title></head><body><div id="body"><div id="head">test</div> <div id="left"></div> <div id="main"> <form action="compete2.asp" method="post"> <table> <%set rs=server.CreateObject("adodb.recordset"):rs.open "select * from Object order by id",conn,1,1%> <% rs.pagesize=2if request("page")<>"" then epage=cint(request("page")) if epage<1 then epage=1 if epage>rs.pagecount then epage=rs.pagecountelseepage=1end ifrs.absolutepage=epage%> <%for i=0 to rs.pagesize-1if rs.bof or rs.eof then exit for %> <tr id="main_q"><td>题<%response.Write(i+(epage-1)*(rs.pagesize+1)&"："&rs("title"))%></td></tr> <tr id="main_a"><td> <input type="radio" value="a" name="ques<%=rs("id")%>" /><%=rs("q1")%> <input type="radio" value="b" name="ques<%=rs("id")%>" /><%=rs("q2")%> <input type="radio" value="c" name="ques<%=rs("id")%>" /><%=rs("q3")%> <input type="radio" value="d" name="ques<%=rs("id")%>" /><%=rs("q4")%> </td></tr> <tr id="main_cut"></tr> <%rs.movenext next%> </table> <%if epage < rs.pagecount then %> <p align="center"> <input type="button" onclick="this.form.action='compete1.asp?page=<%=epage-1%>';this.form.submit();" value="上一页" /><input type="button" onclick="this.form.action='compete1.asp?page=<%=epage+1%>';this.form.submit();" value="下一页" /><input type="button" onclick="this.form.action='compete1.asp?page=<%=rs.pagecount%>';this.form.submit();" value="末页" /> <p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p></p> </form> <%else %> <input type="hidden" value="true" name="step1" /> <input type="submit" value="确认提交，进入第二环节" /> <% end if%><%conn.close()%> </div> <div id="bottom"></div> </div></body></html>

其中我用input的标签来跳转因为我想每进入下一页就处理一个