关于应用ASP完成分页显示
当没有Where条件约束时,分页显示完全正确。
而当在查询中加入Where条件时,只有第一页显示正常,第二页没有错误,
但不显示数据,附源代码如下:请指教!<%="<p> <center> <font color=#FF00FF> <b>记录查询分页显示</b></font></center><p>"%>
<% Name = Request("Name")
PSize=10
Set conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("cuiq.mdb")
sql = "Select CuiqNo,Extract,Formular From Cuiq WHERE Extract='"&Name&"' Order By ID"
rs.open sql,Conn,3,1
if rs.RecordCount=0 then
response.write "<P> <center> Sorry, no data can be get!</center> </P>"
else
rs.PageSize=Cint(PSize)
PageN=Request("tempage")
if PageN="" then
PageN=1
end if
SA=Request("Coms")
if SA="上一页" then
PageN=PageN-1
elseif SA="下一页" then
PageN=PageN+1
elseif SA="确定" then
PageN=Request("p")
end if
rs.AbsolutePage=PageN
response.write "<center>"
pagebegin=rs.PageSize*(PageN-1)+1
if rs.PageSize*PageN<rs.RecordCount then
pageend=rs.PageSize*PageN
else
pageend=rs.RecordCount
end if
n=1
Total=rs.PageCount
response.write "<P> <font color=#FF00FF><b>数据库查询结果:</b>"
response.write "(共有"&rs.RecordCount&"条符合条件的信息,分"&Total&"页,显示第"&PageN&"页["&pagebegin&"-"&pageend&"])</font></P>"
%>
<form name="form1" method="get" action="fenye1.asp">
<input type="hidden" name="tempage" value="<%=PageN%>">
<%
if PageN>1 then
response.write "<input type=submit name='Coms'value='上一页'>"
end if
if PageN<>Total then
response.write "<input type=submit name='Coms'value='下一页'>"
end if
'response.write "<br>"
response.write "显示第<input type=text name='p' size=5>页"
response.write "<input type=submit name='Coms'value='确定'>"
response.write "</form>"
end if
%>
</form>
<%
response.write "<TABLE width=620 border=1 cellpadding=4 cellspacing=0 bgcolor=#FFFFFF>"
response.write "<tr bgcolor=#aabbff><font size=2><td><b>cuiqNo</b></td><td><b>Extract</b></td><td><b>Formular</b></td></font><tr bgcolor=#ffffff>"
RC=rs.PageSize
Do While Not rs.EOF and RC>0
if n=1 then
response.write "<tr bgcolor=#ffffff>"
else
response.write "<tr bgcolor=#eeeeee>"
end if
n=1-n%>
<td> <%=rs("CuiqNo")%></td>
<td> <%=rs("Extract")%></td>
<td> <%=rs("Formular")%></td>
<% response.write"</tr>" %>
<% RC=RC-1
rs.MoveNext
Loop
Conn.Close
set rs=nothing
set Conn=nothing
%>
<% response.write" </table>" %>