下面是我的分页内容:
<%
dim curpage,numpages
if request.QueryString("page")<>"" then
curpage=cint(request.QueryString("page"))
else curpage=1
end if
rs.pagesize=1
numpages=rs.pagecount
if curpage>numpages then curpage=numpages
rs.absolutepage=curpage
rowcount=rs.pagesize
%>
<%
if not rs.eof then
do while not rs.eof and rowcount>0
<%
if curpage>1 then
response.Write "<a href=""chaxun11.asp?page=1"
response.Write """>首页</a>"
response.Write " "
response.Write "<a href=""chaxun11.asp?page="&(curpage-1)
response.Write """>前一页</a>"
response.Write " "
end if
if curpage<numpages then
response.Write "<a href=""chaxun11.asp?page="&(curpage+1)&"""> 下一页</a>"
end if
response.Write "<font size=2>[第"&curpage&"页|共计"&numpages&"页]</font>"
rs.close
set rs=nothing
conn.close
set conn=nothing