Question

asp分页问题，可以正常搜索，如果数据库有内容会显示出来，但没有内容现在出现了错误页面。请高手解答。

<%
wd=server.htmlencode(request("s?wd"))

if len(wd)>0 then
dim conn
set conn=server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("../sjk/access.mdb")

sql="select * from [coun] where title like '%"&wd&"%' or nr like '%"&wd&"%'"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
end if
rs.PageSize=10
pagecount=rs.PageCount
page=int(request.QueryString("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>

Answer 1

懂你的意思了，首先你要明白，查询用到的记录集rs负责存放查询到的记录，如果有，则按照你给的代码，进行页面每10条记录赋值的等操作，如果没有，你没给出这个假设，所以会出现错误页面，建议你这样修改：

<%
wd=server.htmlencode(request("s?wd"))

if len(wd)>0 then
dim conn
set conn=server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("../sjk/access.mdb")

sql="select * from [coun] where title like '%"&wd&"%' or nr like '%"&wd&"%'"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
end if

If rs.Eof And rs.Bof Then '如果查询到记录集为空，则显示没有记录
Response.write "抱歉，没有查询到相关数据！"
Else '否则，显示如果代码
rs.PageSize=10
pagecount=rs.PageCount
page=int(request.QueryString("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录

End if '记住这里是结束如果查询到数据的显示结束的End If，不能少
%>

Answer 2

那还是你的搜索地方写错了，你调试一下你的代码，看是不是在搜索为空的时候返回是不是null

Answer 3

这个是ASP的代码啊+_+雾水，期待楼下