Question

asp 组合查询结果分页显示问题

做了一个组合查询页面，可以查出结果，但是点击下一页显示结果就出问题了。本人新手一枚，跪求高手详细告知。
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Yao_Article where 1=1"
if title<>"" then
sql=sql&" and title like '%"&title&"%'"
end if
if CopyFrom<>"" then

sql=sql&" and CopyFrom like '%"&CopyFrom&"%'"
end if
if sfzh<>"" then

if titai<>"" then

sql=sql&" and titai='"&titai&"'"
end if
if KeyWord<>"" then

sql=sql&" and KeyWord like '%"&KeyWord&"%'"
end if
z=1

sql=sql&" order by id"
rs.open sql,conn,1,1

%>

<table width="175" valign="top" border=1>
<tr>
<%
dim page
Set rs1= Server.CreateObject("ADODB.RecordSet")

rs1.Open sql,conn,1,3,1
if rs1.recordcount<>0 then
page=request("page")
rs1.PageSize=10
pagecount=rs1.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs1.AbsolutePage=page
for i=1 to pagecount
%>
<td><a href="List.asp?ID=<%=rs("ID")%>" ><img src='<%=rs("Images")%> 'style=width:175px;height:175px; alt='<%=rs("title")%>'><br><%=rs("Author")%></a>

<input name="xuanze" type="checkbox" class="noborder" id="xuanze" value="<%=rs("ID")%>">
</td>
<%
if z mod 5=0 then
response.write("</tr>")
response.write("<br>")
end if
z=z+1

rs1.movenext
rs.movenext
if rs1.eof then exit for
next
else
Call Alert ("没有符合条件的信息","index.asp")
end if
%>
</table></div>

<INPUT style="WIDTH: 100px" onclick=history.back(); type=button value=返　回 name=B3></div>

</form>

<p align=center>
共<%=rs1.recordcount%>条 <% if page=1 and not page=pagecount then %>首页|前一页<a href="chaxun.asp?page=<%=page+1%>">后一页</a>|<a href="chaxun.asp?page=<%=pagecount%>">末页</a>
<%elseif page<>1 and not page=pagecount then%><a href="chaxun.asp?page=1">首页</a>|<a href="chaxun.asp?page=<%=page-1%>&SearchModel&">前一页</a>|<a href="chaxun.asp?page=<%=page+1%>">后一页</a>|
<a href="chaxun.asp?page=<%=pagecount%>">末页</a><%elseif page=pagecount then%><a href="chaxun.asp?page=1">首页</a>|<a href="chaxun.asp?page=<%=page-1%>">前一页</a>|下一页|末页
<%end if%>

Answer 1

page=request("page")
rs1.PageSize=10
pagecount=rs1.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs1.AbsolutePage=page
for i=1 to pagecount

改为

rs1.pagesize=10
pagecount=rs1.pagecount
if request("page")="" then
page=1
else
page=request("page")
if isnumeric(page) then
if page<1 then
page=1
elseif page>pagecount then
page=pagecount
else
page=clng(page)
end if
else
page=1
end if
end if
rs1.AbsolutePage=page
for i=1 to rs1.pagesize

另外，你这rs和rs1完全就是重复的嘛，为什么要“脱裤子放屁”呢？只需要一个就行了