上海急聘猪场饲养员:如果超出了一页(即分页),点"下一页"的时候就回到Typ
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 23:35:13
想做个分页的页面显示查询结果,有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>
分页代码如下:
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>
这是什么啊?
如果超出了一页(即分页),点"下一页"的时候就回到Typ
ASP分页问题,点"下一页"没有反应,仍在第一页,这是为什么?
ASP+ACCSEE网站搜索中的关键字搜索结果第一页正确,然后点下一下就超出范围了!
ASP.NET开发中,我用<asp:dataGrid>想实现分页,页码能按形成超链接了,但点了之后还在第一页。
ASP中,分页显示的时候,在首页的时候,上一页不能点,到尾页的时候,下一页按钮不能点怎么实现?
vb.net中"索引超出了数组界限"
为什么进入百度后只能看第一页,点了下一页又回到了第一页,而不能显示下一页
网页内容一页不能容纳,怎样制作分页
为什么用access数据库查询后分页只能显示一页
分页时,指定每一页所显示的帖子数目