100分 站内搜索代码 出错 急求高手指教一下

来源:百度知道 编辑:UC知道 时间:2024/05/15 04:35:30
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
name=trim(request("keyword"))
if name="" then
response.write "<SCRIPT language=JavaScript>alert('查找字符不能为空!');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if

sql="select * from data WHERE (name Like '%"& name &"%' or item Like '%"& name &"%') and yesno='1' order by id desc"
rs.open sql,conn,1,1

if rs.eof then
response.write "<SCRIPT language=JavaScript>alert('对不起,没有找到您要找的电影!');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content=

sql="select * from data WHERE (name Like '%"& name &"%' or item Like '%"& name &"%') and yesno='1' order by id desc"

应该为:
sql="select * from data WHERE (name Like '%"& name &"%' or item Like '%"& name &"%' and yesno='1' order by id desc)"

一针见血,是trim(request("keyword")) 这个语句有问题!
你看一下前面的那个搜索框的name是keyword的吗?这里应该和那个的一致!

<%@ Language=VBScript codepage="936"%>

<%
'参数keyword c=d表示dowload a表示文章
dim conn,strConn
dim rs,strSql

dim keyword,c
keyword=""
c=""
keyword=request.QueryString("keyword")
c=request.QueryString("c")

dim maxKeyNum
maxKeyNum=5 '最多5个关键词,关键词用空格分开

dim title '表中的字段内容,即文章的标题
%>

<html>
<head>

<%
response.Write "<t