神马品牌网qt进度条样式:asp搜索后翻页后又回到了全部内容,帮我看看代码哪里有错!谢谢!
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 04:11:56
title=trim(Request.Form("title"))
if title<>"" then
sqlstr="where (title like '%"&title&"%')"
end if
Sql="select * from learning "&sqlstr&" order by articleid desc"
if len(cstr(Request("ClassID")))>0 then
'记住条件
session("hygl_sql")=sql
else
'如果没有查询条件又是第一页，那么清空SESSION。
if cstr(page)="0" or isnull(page) or isempty(page) then
session("hygl_sql")=""
end if
end if
if len(cstr(page))>0 and session("hygl_sql")<>"" then
'如果是在翻页同时SESSION又不为空，那么使用SESSION作为查询条件。
re_sql=session("hygl_sql")
else
'即使有了新的查询条件，此时SESSION=SQL也可以用SQL查询。
re_sql=sql
end if
if title<>"" then
sqlstr="where (title like '%"&title&"%')"
end if
Sql="select * from learning "&sqlstr&" order by articleid desc"
if len(cstr(Request("ClassID")))>0 then
'记住条件
session("hygl_sql")=sql
else
'如果没有查询条件又是第一页，那么清空SESSION。
if cstr(page)="0" or isnull(page) or isempty(page) then
session("hygl_sql")=""
end if
end if
if len(cstr(page))>0 and session("hygl_sql")<>"" then
'如果是在翻页同时SESSION又不为空，那么使用SESSION作为查询条件。
re_sql=session("hygl_sql")
else
'即使有了新的查询条件，此时SESSION=SQL也可以用SQL查询。
re_sql=sql
end if
因为你翻页没有得到获到Title转来的字符,所以
你在翻页的链接上加上一条
title="&title&"&这样就把你搜索的内容发送出去了
你的获取方法也要改,
title=trim(Request("title"))
结尾如果存在两页`
session("title")=request("title")
来保存`SESSION
if len(cstr(Request("ClassID")))>0 then
对呀,你翻页后没有将 title的值再次传过去呀,这样title就会变成空值了,方法有两种:
1.可以用session 来保存title的值,在开头第一句执行:
session("title")=trim(Request.Form("title"))
sqlstr="where (title like '%"& session("title")&"%')"
2.可以在翻页的链接的url上加上 "&title="&title
这样就可以在开头第一句获取到title的值了.
网页名.asp?page=页码&title=网页标题
最好不要用session,如果用的多了，服务器会减慢。