以下代码显示是:页次：1/1页 每页20 共18条记录 分页：[1] 　跳页：
_________________________________________

<%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if

response.write "页次："& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 共"& rs.recordcount &"条记录"&_
" 分页："

if p*10>0 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&p*10&"' title=上十页>[&lt;&lt;]</a> "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
else
response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"'>["+Cstr(ii)+"]</a> "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"' title=下十页>[&gt;&gt;]</a> "
response.write(" 　跳页：<input type=text name=page size=2 maxlength=3 class=wenbenkuang> <input type=submit name=Submit value=Go class=go-wenbenkuang>")
end if%>

_____________________________________________

请教,怎么更改,能将每页显示数量从原来的20个记录,缩减到5条记录呢?,谢谢!

代码太乱了!
建议:
<!--#include file="conn.asp"-->
psize=* '设置每页显示记录
set rs=....
sql="select * from [table]"
rs.open sql,conn,1,1
if rs.reocrdcount<>0 then
x=cint((rs.recordcount/psize+0.5)*100)/100 '总页数
p=request("page") '请求接受的页面
if isnumeric(p) then ' 判断p是否为数字
if p<=0 then p=1
if p*>rs.recordcount then p=x
page=p '赋值给page变量
else
response.end
end if
rs.move page*psize-1 '游标是从0开始,所以-1
for i= 1 to psize
response.write rs("id")
rs.movenext
next
当前:<%=page%>/<%=x%>&nbsp;共:<%=rs.recordcount%>条记录
<a href="index.asp?page=1>上一页</a>
<a href="index.asp?page=<%page-1%>">上一页</a>
<a href="index.asp?page=<%page+1%>">下一页</a>
<a href="index.asp?page=<%=x%>">尾页</a>
'下面是游客自己输入页面
<form name=form1 method=get action="index.asp">
转到:<input type=text name=page value="">
<input type=submit name=submit1 value="Goto">
</form>