自己常用的分页程序-优快云博客

本文介绍了一种在 ASP.NET 中实现数据分页的方法。通过使用 SQL 查询和 ADO.NET 对象模型，实现了对数据库中数据的有效分页显示。文章详细展示了如何构建 SQL 查询语句以实现模糊查询，并通过循环读取记录集来分页展示数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

dim rs,sql,key,strsql,page,i,x
key=request("key") '搜索关键字
strsql="?key="&key
page=cint(request("page"))
if page="" or page<=0 or isnumeric(page)=false then page=1
set rs=.....
sql="..... where .. like'%"%key&"%' or ... like'%"&key&"%'...."
rs.open sql......
if not rs.eof then
rs.movefirst
.....
i=0
do while not rs.eof and i<rs.pagesize
i=i+1
.........
.......
.....
..
rs.movenext
loop
else
page=0
end if
response.Write("共计"&rs.recordcount&"条 ")
response.Write("每页"&rs.pagesize&"条 ")
response.Write("第"&page&"/"&rs.pagecount&"页 ")
if page>1 and page<=rs.pagecount then response.Write("<a href="&strurl&"&page="&page-1&" class=l9>上一页</a> ")
if page<rs.pagecount and rs.pagecount>1 then response.Write("<a href="&strurl&"&page="&page+1&" class=l9>下一页</a>")
if rs.pagecount>1 then
response.Write(" 转到第<select onchange='javascript:location.href=this.options[selectedIndex].value'>")
for x=1 to rs.pagecount
if cint(page)=x then
response.Write("<option value="&strurl&"&page="&x&" selected>"&x&"</option>")
else
response.Write("<option value="&strurl&"&page="&x&">"&x&"</option>")
end if
next
response.Write("</select>页")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing