保时捷卡宴提车作业:帮帮忙ASP分页问题

自己编了个ASP网页，产品分3类，我点击任一类时，可显示当前类的所有产品，分页可以继续显示（大类中的所有小类产品），没问题。，可在点击当前类中的小类时，只能显示一页小类，点分页，又转到刚才大类的所有产品的分页上去，谁能教教我，不胜感激。
<!--#include File="ConnDB.asp"-->
<>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'显示小类名称
sql = "Select SmallClassName From smallclass where smallclassid =4"
Set rs = Conn.Execute(sql)
If rs.Eof Then
%>
<tr>  没有分类</tr>
<%Else%>
<% '显示小类
sql1 = "Select * From smallclass where smallclassid =4 order by SmallClassID"
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs1 = Conn.Execute(sql1)
Do While Not rs1.Eof
title = rs1("SmallClassName")
If Len(SmallClassName )>11 Then
title = Left(title,11)
%>
<a href="?BigClassName=MENS&SmallClassName=<% rs1("SmallClassName") %>">
<%else%>
<a href="p3.asp?BigClassName=MENS&SmallClassName=<%=rs1("SmallClassName")%>">
<font face="Verdana"><%=title%></font></a></span></td>
</tr>
<%
end if
rs1.movenext
LOOP
rs1.close
end if
rs.close
%>
</td>
<%
dim SmallClassName,SqlClass
SmallClassName=Trim(Request("SmallClassName"))
if SmallClassName="" then
SqlClass=""
else
SqlClass="and SmallClass like '"&SmallClassName&"'"
end if
%>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from Goods where typeid = 2 "&SqlClass&" order by Id desc"
rs.open sql,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.write "<tr><td align=center>No Goods.<br></td></tr>"
else
dim page
page=clng(request("page"))
rs.pagesize=6
if page<1 then page=1

if page>=rs.pagecount then page=rs.pagecount

rs.absolutepage=page

rowcount=rs.pagesize
do while not rs.eof and rowcount>0
if rowcount=3 then
response.write "<>"
end if
%>
<%
If isNull(rs("ImageFile")) Then
<a href="ViewImage.asp?id=<%=rs("id")%>" onClick="return newswin(this.href)">
<%end if%>
<td>SmallClass<%=rs("smallclass")%>
<%
rs.movenext()
rowcount=rowcount-1
loop
%>

<%
if rs.pagecount>1 then
response.write "分页："
for i=1 to rs.pagecount
response.write "<td><a href=p3.asp?page=" &i& ">"
response.write "[<b>"&i&"</b>]"
next
response.write "</tr></table>"
end if
end if
set rs=nothing
%>
我改成这样,可以显示了.可是还有问题,就是点小类的分页最后一页,会出意外,所以我只能改成小类分页最后一页在回到firstpage
是什么原因啊
<%rs.movenext()
rowcount=rowcount-1
loop
%>
<%if len(trim(SmallClassName))=0 then
if rs.pagecount>1 then
response.write "<table border='0'><tr><td><b>MORE：</b></td>"
for i=1 to rs.pagecount
response.write "<td><a href=man.asp?page=" &i& ">"
response.write "[<b>"&i&"</b>]</a></td>"
next
response.write "</tr></table>"
end if
else
if rs.pagecount>1 then
response.write "<table border='0'><tr><td><b>MORE：</b></td>"
for i=1 to rs.pagecount
if rs.eof then
rs.movefirst
response.write "<td><a href=man.asp?SmallClassName="&rs("smallclass")&"&page=" &i& ">"
response.write "[<b>First Page</b>]</a></td>"
exit for
else
response.write "<td><a href=man.asp?SmallClassName="&rs("smallclass")&"&page=" &i& ">"
response.write "[<b>"&i&"</b>]</a></td>"
end if
next
response.write "</tr></table>"
end if
end if
end if
set rs=nothing
%>