UC知道ASP中的一个分页程序问题
来源：百度知道 编辑：UC知道 时间：2024/06/28 20:42:35
现在有一个问题,直接从数据库读信息,然后来分页,功能都好使,但是做了一个搜索页,把这个分页程序用到搜索页里,不报错,但是点页码2...点完了,地址栏出现http://127.1/search.asp?page=2,页面一片空白.不报错.帮我看看.解决完了追加50分.
<!--#include file="inc/conn.asp"-->
<%
keyword=request.Form("keyword")
set rs=server.CreateObject("adodb.recordset")
if request("radiobutton")="精确" then
exec="select * from diary where title='"&keyword&"'"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.Write("没有找到任何信息")
end if
rs.pagesize=2
totalpage=rs.pagecount
rs.movefirst
nowpage=request.QueryString("page")
if nowpage="" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
n=1
while not rs.eof and n<=rs.pagesize
%>
<%=rs("title")%>
<!--#include file="inc/conn.asp"-->
<%
keyword=request.Form("keyword")
set rs=server.CreateObject("adodb.recordset")
if request("radiobutton")="精确" then
exec="select * from diary where title='"&keyword&"'"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.Write("没有找到任何信息")
end if
rs.pagesize=2
totalpage=rs.pagecount
rs.movefirst
nowpage=request.QueryString("page")
if nowpage="" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
n=1
while not rs.eof and n<=rs.pagesize
%>
<%=rs("title")%>
<%
keyword=request.Form("keyword")
set rs=server.CreateObject("adodb.recordset")
if request("radiobutton")="精确" then
exec="select * from diary where title='"&keyword&"'"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.Write("没有找到任何信息")
end if
rs.pagesize=2
totalpage=rs.pagecount
rs.movefirst
nowpage=request.QueryString("page")
if nowpage="" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
n=1
while not rs.eof and n<=rs.pagesize
%>
<%=rs("title")%>
<%
n=n+1
rs.movenext
wend
%>
<div align="center">共<%=totalpage%>页 当前是第<%=nowpage%>页
<%if nowpage<>1 then%>
<a href="search.asp?page=1&keyword=<%=keyword