asp搜索代码问题!!紧急!!!!!

来源:百度知道 编辑:UC知道 时间:2024/05/28 03:44:18
我自己写的搜索代码,如下:
<%
SQL="Select * from Commodities where name like '%"&Request.QueryString("key")&"%' order by sid and addtime desc"
set rs=server.createobject("Adodb.Recordset")
rs.open SQL,conn,1,1
if not rs.eof then
pages = 8 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0
%>
<%
pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("<br><div align='center'><font color='Red'>没有搜索到指定的信息!</font></div><br>")
End if
rs.Close
Set rs = Nothing
%&

SQL="Select * from Commodities where name like '%"&Request.QueryString("key")&"%' order by sid and addtime desc"
改成
if request.querystring("key")<>0 then
application("key")=request.querystring("key")
end if
SQL="Select * from Commodities where name like '%"&application("key")&"%' order by sid and addtime desc"