菜鸟的小问题,请大家帮忙看看!
遇到了一个问题,下面的程序是分页显示的一段代码,请大家看错在哪里!谢了!!
<!--#include file="cn.asp"-->
<%
dim ps,numpage,curpage,w
ps=10
if request.QueryString("page")="" then
curpage=1
else
curpage = cint(request.querystring("page"))
end if
rst.open "select * from a",conn,1,1
rst.pagesize=ps
numpage=rst.pagecount
if curpage > numpage then
curpage = numpage
rst.absolutepage = curpage
end if
dim a
a=0
do while not rst.eof and a < ps
response.write rst("name")&"<br>"
rst.movenext
a = a + 1
loop
if curpage > 1 then
response.write "<a href=fenye.asp?page="&(curpage-1)&">上一页</a><br>"
end if
if curpage < numpage then
response.write "<a href=fenye.asp?page="&(curpage+1)&">下一页</a>"
end if
rst.close
conn.close
set rst = nothing
set conn = nothing
%>