求助分页问题,,
症状:记录能找出来,,假如记录不足1页显示的就没问题,,但分页显示的话,,当点下一页显示就出错了,,,
假如:索引不采用like的话,,而是采用"=" ,则分页按钮又正常了...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.cookies ("abciekbia15wawgiabaaogn6916")="" then
response.write "
"
response.write "
Cookies已清空,请联络管理员谢谢! 或 请点击此处登陆系统!!"
Response.Cookies ("abciekbia15wawgiabaaogn6916")=""
rs.close :set rs=nothing
conn.close:set conn=nothing
response.end
end if
dim page,maxPerPage
maxPerPage=10
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="check_film.asp?="&productSort&""
Set rs = server.createObject("ADODB.Recordset")
rs.open "select * from film where name like '%"&Request.form("name")&"%' order by name",conn,1,1
Set rs1 = server.createObject("ADODB.Recordset")
rs1.Open "select * from huiyuan where name='"&request.cookies ("abciekbia15wawgiabaaogn6916")&"' ",conn,1,1
rs.pagesize=MaxPerPage
%>
所有电影
假如:索引不采用like的话,,而是采用"=" ,则分页按钮又正常了...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.cookies ("abciekbia15wawgiabaaogn6916")="" then
response.write "
"
response.write "
Cookies已清空,请联络管理员谢谢! 或 请点击此处
Response.Cookies ("abciekbia15wawgiabaaogn6916")=""
rs.close :set rs=nothing
conn.close:set conn=nothing
response.end
end if
dim page,maxPerPage
maxPerPage=10
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="check_film.asp?="&productSort&""
Set rs = server.createObject("ADODB.Recordset")
rs.open "select * from film where name like '%"&Request.form("name")&"%' order by name",conn,1,1
Set rs1 = server.createObject("ADODB.Recordset")
rs1.Open "select * from huiyuan where name='"&request.cookies ("abciekbia15wawgiabaaogn6916")&"' ",conn,1,1
rs.pagesize=MaxPerPage
%>
| 你当前的等级:<%=rs1("dengji")%>级会员 1级:编辑电影数据 3级:增加功能 10级:收录 13级:变更 | |
| |||||||||||||||
共<%=rs.recordCount%>项<%=b%> 第<%=page%>/<%=rs.pagecount%> 页 <%if page>1 then%> <%else%> <%end if if rs.recordCount>page*maxPerPage then%> <%else%> <%end if%> | |||||||||||||||
