ASP 高分 提问 搜索功能

来源：百度知道 编辑：UC知道 时间：2024/06/03 09:29:12
<!--#include file="conn.asp"-->

<%
dim selectm,selectkey,selectid
selectkey=trim(request.form(trim("selectkey")))
selectm=trim(request.form("selectm"))
if selectkey="" then
selectkey=request.form("selectkey")
end if

if selectm="" then
selectm=request.form("selectm")
end if
set rs=server.CreateObject("adodb.recordset")
select case selectm
case "minc"
rs.open "select * from product where mingc like '%"&selectkey&"%' order by time desc",conn,1,1
case "class"
rs.open "select * from product where daclass like '%"&selectkey&"%' order by time desc",conn,1,1
case "time"
rs.open "select * from product where time like '%"&selectkey&"%' order by time desc",conn,1,1
end select
if rs.eof t

if rs.eof then
response.write "还没有产品!"
end if
dim j
这个有问题

假如 没有值成空？？
case "minc"
sql="select * from product where mingc like '%"&selectkey&"%' order by time desc"
case "class"
sql="select * from product where daclass like '%"&selectkey&"%' order by time desc"
case "time"
sql="select * from product where time like '%"&selectkey&"%' order by time desc"
好好看下

if request("page")="" then
curpage=1
else
curpage=request("page")
end if
if not IsNumeric(curpage) then
response.Write("参数不对!")
response.end
end if

放到
rs.pagesize=18 '******************设置每页显示文章数目***********************

以下试试

//第十四至第二十二行可以改成下面这样试试．
//如果还是不行，可以看看response.write 输入sql看看是什么内容．
set r