泰勒新专辑封面:如果超出了一页(即分页),点"下一页"的时候就回到Typ

来源:百度文库 编辑:高校问答 时间:2024/05/05 07:51:15
想做个分页的页面显示查询结果,有4个查询条件,先通过a.asp输入查询条件,通过b.asp显示,每次传递Type的时候总是传递值6,但是实际查询的时候会按照我们选择的Type值查询(比如:1,2等等),而且,当我查出Type=1的时候,如果超出了一页(即分页),点"下一页"的时候就回到Type=0(0类型设置的是数据库所有记录)里面去了.
分页代码如下:
a. asp提交语句
------------------------------------------------------------
<form id="form1" name="form1" method="post" action="b.asp?Product_id=<%=Request.form("liaohao")%>&Title=<%=Request.form("pinming")%>&Spec=<%=Request.form("guige")%>&Type=<%=Request.form("shiyongjixing")%>" target="_blank">
--------------------------------------------------------------------------
b.asp
---------------------------------------------------------------------------
liaohao=Request.Querystring("Product_id")pinming=Request.Querystring("Title")
guige=Request.Querystring("Spec")
shiyongjixing=Request.Querystring("Type")
rs.open sql,conn,1,1
if rs.RecordCount=0 then
page=Request.QueryString("page")
rs.pagesize=16
total=rs.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page>rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
elser
s.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
<% m=0
For i=1 to rs.PageSize
m=m+1
if rs.EOF then
Exit For
end if
%>
----------------鉴于字数的限定,省略部分语句
</tr>
<%
rs.MoveNext
Next
%>
</table></td>
</tr>
<tr>
<td><%if rs.pagecount<>1 and rs.pagecount<>0 then%><%if page<rs.pagecount then%><%if page=1 then %>[首页] [上一页]
接上
[<a href="show2.asp?Type=<%=Request.QueryString("Type")%>&Product_id=<%=Request.QueryString("Product_id")%>&Title=<%=Request.QueryString("Title")%>&Spec=<%=Request.QueryString("Spec")%>&page=<%=rs.PageCount%>">尾页</a>]
<%else%>
[<a href="show2.asp?Type=<%=Request.QueryString("Type")%>&Product_id=<%=Request.QueryString("Product_id")%>&Title=<%=Request.QueryString("Title")%>&Spec=<%=Request.QueryString("Spec")%>&page=<% = 1%>">首页</a>]
[<a href="show2.asp?Type=<%=Request.QueryString("Type")%>&Product_id=<%=Request.QueryString("Product_id")%>&Title=<%=Request.QueryString("Title")%>&Spec=<%=Request.QueryString("Spec")%>&page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
</td>
</tr>
<% end if
conn.close
set rs=nothing
set conn=nothing%>
</table>

这是什么啊?