<%
dim txtname
txtname=request("txtname")
if txtname="" then
response.write("没有输入查询关键字，请重新输入！")
response.end
end if
dim sql
sql=request("list")
select case list
case "title"
sql=title
case "nr"
sql=nr
end select

set conn=Server.CreateObject("ADODB.Connection")
Dbpath=Server.Mappath("abc.asp")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&DBpath
Set rs=server.CreateObject("ADODB.Recordset")
strSql="select * from sc where"&sql&"like'%"&txtname&"%'"
rs.Open strSql,conn,1,3
%>

提示这一句：rs.Open strSql,conn,1,3
FROM 子句语法错误。

版主呀
我把where后面的全去掉，就正常了
不知是怎么搞的，版主，我很菜的呀，帮我分析下吧

谢谢两位大哥
但还是没解决了我的问题，我把我的这个文件贴出来,你们帮我看看吧
文件名：index.asp
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<tr>
<td width="100%"><form action="index.asp" method="post">
<p align="left">
<font color="#FF0000">*</font><select size="1" name="list">
<option value="title">标题</option>
<option value="nr">内容</option>
</select>

<input name="txtname" type="text" id="txtname" value="<%=request("txtname")%>">
&nbsp;<input type="submit" value="查 询" name="submit"> <font color="#FF0000">请选择查询类别或输入查询关键字！</font></p>
</form></td>
</tr>
</table>
</div>
</center>

<%
dim txtname
txtname=request("txtname")
if txtname="" then
response.write("没有输入查询关键字，请重新输入！")
response.end
end if
dim list
list=request("list")
select case list
case "title"
list=title
case "nr"
list=nr
end select

set conn=Server.CreateObject("ADODB.Connection")
Dbpath=Server.Mappath("abc.asp")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&DBpath
Set rs=server.CreateObject("ADODB.Recordset")
strSql="select * from sc where "&list&" like '%"&txtname&"%'"
rs.Open strSql,conn,1,3
'如果记录集不是空的，就执行分页显示
If Not rs.Bof And Not rs.Eof Then

'判断当前显示第几页，如果是第一次打开，为1，否则由传回的参数决定
Dim page_no
If Request.Querystring("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString("page_no"))
End If

'开始分页显示
rs.PageSize=2 '设置每页显示2条记录
rs.AbsolutePage=page_no
Dim I
I=rs.PageSize
Do While Not rs.Eof And I>0
I=I-1

%>

<table border="1" cellpadding="0" cellspacing="0" width="90%" bgcolor="#FFFFFF" bordercolorlight="#EAEAEA" bordercolordark="#FFFFFF" id="table1">
<tr>
<td width="100%" align="center"><%=rs("title")%>　</td>
</tr>
<tr>
<td width="100%" align="center"><%=rs("zz")%>[<%=rs("sd")%>]</td>
</tr>
<tr>
<td width="100%" align="center"><%=rs("nr")%>　</td>
</tr>
<tr>
<td width="100%"><%=rs("zs")%>　</td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>
<%

'显示页数信息

Response.Write"请选择页数"
For I=1 to rs.PageCount
If I=page_no then
Response.Write I &"&nbsp"
Else
Response.Write"<a href='index.asp?page_no="&I&"&txtname="&name&"'>"& I &"</a>&nbsp"
End If
Next

Else
Response.Write"该记录集为空"
End If
'关闭对象
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>

现在提示的错误是：语法错误 (操作符丢失) 在查询表达式'link'%我输入的关键字%''中。
rs.Open strSql,conn,1,3 在这一句

[此贴子已经被作者于2006-8-1 11:40:49编辑过]

谢谢你们了！
这个程序就这一个文件（就是上面代码）再加一个数据库，
strSql="select * from sc where "&list&" like '%"&txtname&"%'"

list和txtname我不会测试，但我把where后的去掉后就都正常了
我问了好多人的， 都还没结果

谢谢hangxj版主
改成strSql="select * from sc where title like '%"&txtname&"%'" 就可以，
那看来是这里有问题了：
dim list
list=request("list")
select case list
case "title"
list=title
case "nr"
list=nr
end select
title和nr都是我数据库的字段，可我看不出问题，不知该怎么改

版主，我按你的改后这一句：strSql="select * from sc where "&list&" like '%"&txtname&"%'"
提示的错误是：语法错误 (操作符丢失) 在查询表达式'link'%我输入的关键字%''中。

太感谢hangxj版主了
终于可以了，
好版主，支持~！