ASP站内搜索代码错误

来源：百度知道 编辑：UC知道 时间：2024/06/15 18:58:59
<%
Set rs= Server.CreateObject("ADODB.Recordset")
if otype="title" then
sql="select * from NEWS where title Like '%"& key &"%' and rs("BigClassName")="class1" and rs("sjlbname")="sjlb1" order by id desc"
elseif otype="msg" then
sql="select * from NEWS where content Like '%"& key &"%' and rs("BigClassName")="class1" and rs("sjlbname")="sjlb1" order by id desc"
else
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>对不起，没有找到相关新闻</p>"
else
%>

错误提示错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/lc/admin/admin_search2.asp, line 35, column 63
sql="select * from NEWS where title Like '%"& key &"%' and rs("BigClassName")="

你这代码简直一塌糊涂

<%
Set rs= Server.CreateObject("ADODB.Recordset")
if otype="title" then
sql="select * from NEWS where title Like '%"& key &"%' and BigClassName='class1' and sjlbname='sjlb1' order by id desc"
elseif otype="msg" then
sql="select * from NEWS where content Like '%"& key &"%' and BigClassName='class1' and sjlbname='sjlb1' order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>对不起，没有找到相关新闻</p>"
else
%>
------------------------------------------------------
邮箱fqmail_cq@qq.com
同时你需要把数据库结构发过来

sql="select * from NEWS where title Like '%"& key &"%' and rs("BigClassName")="class1" and rs("sjlbname")="sjlb1" order by id