ITKeyword,专注技术干货聚合推荐

注册 | 登录

简单asp分页显示代码

WINCOL 分享于 2007-08-28

2020腾讯云“6.18”活动开始了!!!(巨大优惠重现!4核8G,5M带宽 1999元/3年),
地址https://cloud.tencent.com/act/cps/redirect?redirect=1059

2020阿里云最低价产品入口,含代金券(新老用户有优惠),
地址https://www.aliyun.com/minisite/goods

<% on error resume next dim rs,sql,i filePath = Server.MapPath("db.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath set rs =Server.CreateObject("adodb.recordset")

sql="select * from info order by id"

rs.open sql,conn,1,1

rs.pagesize=6

page=clng(Request("page"))

if page<1 then page=1

if page>rs.pagecount then page=rs.pagecount

rs.AbsolutePage = page %> <table> <% for i=1 to rs.pagesize %>

<tr>

<td ><% response.write rs("rec1") %></td>

<td ><% response.write rs("rec2") %></td>

</tr> <% rs.movenext

If rs.EOF Then

Exit For

End If

next %> </table> <script Language="JavaScript"> function ChkFields() {

if (document.Myform.page.value=='') {

window.alert ("请输入页数");

Myform.page.focus();

return false

}

Myform.action="aa.asp";

Myform.submit();

return true } </script> <form mehtod="POST" name="Myform" > 输入页数:<input type="text" name="page" size="4"> <input type="button" value="确定" onclick="ChkFields()"> <%

if page>1 then

Response.write("<a href=aa.asp?page=1>第一页</a>&nbsp;")

Response.write("<a href=aa.asp?page="&(page-1)&">上一页</a>&nbsp;")

end if

if page <> rs.pagecount then

Response.write("<a href=aa.asp?page="&(page+1)&">下一页</a>&nbsp;")

Response.write("<a href=aa.asp?page="&rs.pagecount&">最后一页</a>&nbsp;")

end if

for i=1 to rs.pagecount

if i <> page then

response.write "<a href=aa.asp?page="&i&">" &i& "</a>&nbsp;"

else

response.write i&"&nbsp;"

end if

next %> 页数:<% =page %>/<% =rs.pagecount %> </form> 

<% on error resume next dim rs,sql,i filePath = Server.MapPath("db.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

相关阅读排行


相关内容推荐

最新文章

×

×

请激活账号

为了能正常使用评论、编辑功能及以后陆续为用户提供的其他产品,请激活账号。

您的注册邮箱: 修改

重新发送激活邮件 进入我的邮箱

如果您没有收到激活邮件,请注意检查垃圾箱。