|
大家看我写的判断搜索的代码:实现的功能是判断搜索类型,并接受从表单传来的内容,进行搜索。
if request("stype")=singer then
sql="select * from nclass where nclass like '%"&request("keyword")&"%' order by nclassid desc"
elseif request("stype")=music then
sql="select * from musiclist where musicname like '%"&request("keyword")&"%' "
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1 /9行
if not isempty(request.QueryString("page")) then
currentpage=cint(request.QueryString("page"))
else
currentpage=1
end if
if rs.eof and rs.bof then
if request("stype")=singer then
response.Write"<p align='center'><br><br>Sorry,未找到你想要的歌手<br><br><a href="" javascript:history.go(-1)"">点此返回</a><br><br></p>"
elseif request("stype")=music then
response.Write"<p align='center'><br><br>Sorry,未找到你想要的歌曲<br><br><a href="" javascript:history.go(-1)"">点此返回</a><br><br></p>"
end if
else
totalput=rs.recordcount
maxperpage=10
pageurl="search.asp"
if currentpage<1 then currentpage=1
if(currentpage-1)*maxperpage>totalput then
if (totalput mod maxperpage)=0 then
currentpage= totalput \ maxperpage
else
currentpage= totalput \ maxperpage+1
end if
end if
if currentpage=1 then
showpage totalput,maxperpage,pageurl
showcontent
showpage totalput,maxperpage,pageurl
else
if (currentpage-1)*maxperpage<totalput then
rs.move(currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark
showpage totalput,maxperpage,pageurl
showcontent
showpage totalput,maxperpage,pageurl
else
currentpage=1
showpage totalput,maxperpage,pageurl
showcontent
showpage totalput,maxperpage,pageurl
end if
end if
rs.close
end if
%>
问题是:运行后总是报这样的错--
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/search.asp, 第 9 行
我找了半天都看不出原因何在
望哪位帮帮me
谢了 |
|