ASP 分页问题 求救

来源:百度知道 编辑:UC知道 时间:2024/05/22 16:38:55
我做课程设计 购物系统
问题是 我要搜索商品 如果搜索条件为空的话 回弹出警告 然后返回 输入条件页 我输入条件后搜索 显示有记录 显示出了我要的记录 但是我点一下页的时候会弹出 条件为空时候的警告 以下是代码:
<% username=session("username")

if session("username")="" then
response.Write("游客"&":")
else
response.Write(session("username"))
end if

%><hr />
<% dim goodname
goodname = request.QueryString("goodname")
if goodname="" then
response.write"<SCRIPT language=JavaScript>alert('缺少搜索条件!');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
set rs=server.CreateObject("adodb.recordset")
sql ="select * from good where goodname like '%" + goodname + "%'"
rs.open sql,conn,1,1
if not Isnumeric(request("page")) or IsEmpty(request("page")) then

在page参数后加上goodname参数
<% if page>1 then
response.Write"<a href=?page=1&goodname="&request("goodname") &">首页</a>"
response.Write"<a href=?page="&page-1&"&goodname="&request("goodname") &">>上一页</a>"
end if
if page<>rs.pagecount then
response.Write"<a href=?page="&page+1&"&goodname="&request("goodname") &">>下一页</a>"
response.Write"<a href=?page="&rs.pagecount&"&goodname="&request("goodname") &">>尾页</a>"
end if %>